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