Add: delete track from playlist feature

1 files changed, 24 insertions, 8 deletions

diff --git a/playlist.lisp b/playlist.lisp
index 3579c83..cd9533e 100644
--- a/playlist.lisp
+++ b/playlist.lisp
@@ -45,6 +45,13 @@
   (with-transaction ()
     (add-track tr pl)))
 
+(defun delete-track-at (pl pos)
+  (when-let (tr (nth pos (playlist-tracks pl)))
+    (with-transaction ()
+      (setf (playlist-tracks pl)
+            (delete tr (playlist-tracks pl)))
+      t)))
+
 (defun new-track (file trackinfo)
   "Trackinfo is a plist containing information about the track to create."
   (with-transaction ()
@@ -187,6 +194,13 @@
           (load-now-playing-display ctl tr))))))
 
 
+(defun remove-track (track-ctl)
+  (when-let ((ctl (get-playlist-ctl (container track-ctl))))
+    (when (delete-track-at (playlist ctl) (position track-ctl (tracks ctl))) 
+      (setf (tracks ctl)
+            (delete track-ctl (tracks ctl)))
+      (destroy (container track-ctl)))))
+
 ;;; CLIENT UI
 
 (defun playlist-title-content (playlist)
@@ -237,18 +251,20 @@
   (with-clog-create list
       (list-item (:bind container)
                  (p ()
+                    (span (:content "[X] " :hidden t :bind delbtn))
                     (span (:content (track-listing-line track)))
                     (span (:content " -- "))
                     (span (:content (secs-to-hms (or (track-duration track) 0)))))
                  (audio (:source (media-url-path track) :controls nil :bind audio)))
-    (setf (tracks ctl)
-          (insert-nth
-           (make-instance 'track-ctl
-                          :container container
-                          :audio audio
-                          :track track)
-           -1
-           (tracks ctl)))
+    (let ((track-ctl
+            (make-instance 'track-ctl
+                           :container container
+                           :audio audio
+                           :track track)))
+      (setf (tracks ctl)
+            (insert-nth track-ctl -1 (tracks ctl) t)) 
+      (setf (visiblep delbtn) t)
+      (set-on-click delbtn (alambda (remove-track track-ctl))))
     (set-on-time-update audio 'update-now-playing-time)
     (set-on-ended audio 'advance-now-playing)
     (set-on-click container (alambda (play-this-audio audio)))))