diff options
Diffstat (limited to 'playlist.lisp')
| -rw-r--r-- | playlist.lisp | 27 |
1 files changed, 13 insertions, 14 deletions
diff --git a/playlist.lisp b/playlist.lisp index e23fb70..08c2bbb 100644 --- a/playlist.lisp +++ b/playlist.lisp @@ -94,19 +94,19 @@ (defun start-playback (ctl) (when-let (tr (now-playing-track ctl)) (play-media (audio tr)) - (setf (text (np-play ctl)) "||"))) + (setf (text (np-play ctl)) "⏸"))) (defun pause-playback (ctl) (when-let (tr (now-playing-track ctl)) (pause-media (audio tr)) - (setf (text (np-play ctl)) "|>"))) + (setf (text (np-play ctl)) "⏵"))) (defun stop-playback (ctl) (when-let (tr (now-playing-track ctl)) (pause-media (audio tr)) (setf (media-position (audio tr)) 0 (now-playing-track ctl) nil - (text (np-play ctl)) "|>"))) + (text (np-play ctl)) "⏵"))) ;;; CLIENT CONTROL @@ -121,7 +121,7 @@ (let ((tr (track track-ctl))) (setf (text (np-title ctl)) (track-title tr) (text (np-artist ctl)) (if (track-artist tr) - (format nil "~a |" (track-artist tr)) + (format nil "~a" (track-artist tr)) "") (url-src (np-thumb ctl)) (or (track-thumb-url tr) "") (text (np-dur ctl)) (secs-to-hms (or (track-duration tr) 0)) @@ -228,11 +228,10 @@ (defun create-now-playing-display (parent ctl) (with-clog-create parent - (div (:class "now-playing-display") + (div () (section (:h3 :content "Now Playing")) (img (:bind thumb)) (section (:h4) - (span (:content " | ")) (span (:bind title)) (span (:content " | ")) (span (:bind artist))) @@ -240,9 +239,9 @@ (span (:bind time)) (span (:content " / ")) (span (:bind dur))) - (button (:content "<<" :bind back)) - (button (:content "|>" :bind play)) - (button (:content ">>" :bind forward))) + (button (:content "⏮" :bind back )) + (button (:content "⏵" :bind play )) + (button (:content "⏭" :bind forward ))) (setf (np-title ctl) title (np-artist ctl) artist (np-thumb ctl) thumb @@ -269,16 +268,15 @@ (defun create-track-list-item (list track ctl) (with-clog-create list - (list-item (:bind container) + (list-item (:bind container ) (div (:bind edit-controls) (button (:content "delete " :bind delbtn)) (button (:content "↓" :bind downbtn)) (button (:content "↑" :bind upbtn))) - (div (:bind item) + (div (:bind item ) (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))) (let ((track-ctl (make-instance 'track-ctl @@ -287,7 +285,6 @@ :track track))) (setf (tracks ctl) (insert-nth track-ctl -1 (tracks ctl) t)) - (cond ((editorp ctl) (set-on-click delbtn (thunk* (remove-track track-ctl))) @@ -302,7 +299,8 @@ (defun create-track-listing (parent pl) (when-let (ctl (cur-playlist-ctl parent)) - (let ((ol (create-ordered-list parent))) + (create-section parent :h3 :content "TRACKS") + (let ((ol (create-ordered-list parent ))) (setf (pl-tracks ctl) ol) (dolist (track (playlist-tracks pl)) (create-track-list-item ol track ctl))))) @@ -397,6 +395,7 @@ (let ((ctl (install-new-playlist-ctl pl body))) (add-playlist-viewer ctl) + (include-style body) (with-clog-create body (div () (navigation-header ()) |