From c6bfcaa305259a07a046b8bfa380419180f6be45 Mon Sep 17 00:00:00 2001
From: Grant Shangreaux <shoshin@cicadas.surf>
Date: Wed, 22 Feb 2023 21:02:48 -0600
Subject: Add: WIP track info editing

---
 model.lisp | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'model.lisp')

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))))
-- 
cgit v1.2.3