Add: WIP track info editing

1 files changed, 7 insertions, 0 deletions

diff --git a/model.lisp b/model.lisp
index de1ea10..65968cb 100644
--- a/model.lisp
+++ b/model.lisp
@@ -178,3 +178,10 @@
 (defun update-playlist-title (playlist title)
   (with-transaction ()
     (setf (playlist-title playlist) title)))
+
+(defun update-track-info (track new-artist new-album new-title)
+  (with-transaction ()
+    (with-slots (artist album title) track
+      (setf artist new-artist
+	    album new-album
+	    title new-title))))