aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--model.lisp5
1 files changed, 5 insertions, 0 deletions
diff --git a/model.lisp b/model.lisp
index 5a06fe2..de1ea10 100644
--- a/model.lisp
+++ b/model.lisp
@@ -38,6 +38,11 @@
((source file title artist album thumb-url duration codec :with)
(playlists :with :std (list) :doc "A list of playlists in which this track appears")))
+(defun track-file (track)
+ (with-slots (file) track
+ (merge-pathnames
+ (path:basename file)
+ (merge-pathnames "media/" (static-directory *config*)))))
;;; MODEL OPERATIONS