diff options
Diffstat (limited to 'playlist.lisp')
| -rw-r--r-- | playlist.lisp | 54 |
1 files changed, 36 insertions, 18 deletions
diff --git a/playlist.lisp b/playlist.lisp index 88da89e..5d0dc24 100644 --- a/playlist.lisp +++ b/playlist.lisp @@ -17,7 +17,7 @@ (:documentation "Holds the complete state for this session's viewing of a particular playlist.")) (defclass/std track-ctl () - ((track audio container info-edit-ctl edit-save-btn editing? :std nil)) + ((track listing-line audio container info-edit-ctl edit-save-btn editing? :std nil)) (:documentation "The state of a particular track in this session's viewing of a playlist.")) (defun audio-for-track (ctl track) @@ -227,23 +227,39 @@ ;; swap list items in the dom (place-after (container cur) (container next))))))) +(defun open-track-editor (track-ctl) + (setf (text (edit-save-btn track-ctl)) "save ") + (with-slots (artist album title) (track track-ctl) + (with-clog-create (info-edit-ctl track-ctl) + (div (:class "track-edit-inputs column") + ;; (label (:content "Artist" :bind artist-label)) + (form-element (:text :bind artist-input)) + ;; (label (:content "Album" :bind album-label)) + (form-element (:text :bind album-input)) + ;; (label (:content "Title" :bind title-label)) + (form-element (:text :bind title-input))) + (setf (place-holder artist-input) (or artist "Artist") + (place-holder album-input) (or album "Album") + (place-holder title-input) (or title "Title")) + ;; (label-for artist-input artist-label) + ;; (label-for album-input album-label) + ;; (label-for title-input title-label) + + (set-on-click + (edit-save-btn track-ctl) + (thunk* (update-track-info + (track track-ctl) (value artist-input) (value album-input) (value title-input)) + (toggle-track-editor track-ctl)))))) + +(defun close-track-editor (track-ctl) + (setf (display (info-edit-ctl track-ctl)) "none" + (text (listing-line track-ctl)) (track-listing-line (track track-ctl)) + (text (edit-save-btn track-ctl)) "edit ")) + (defun toggle-track-editor (track-ctl) (setf (editing? track-ctl) (not (editing? track-ctl))) - (if (editing? track-ctl) - (progn - (setf (text (edit-save-btn track-ctl)) "save ") - (with-clog-create (info-edit-ctl track-ctl) - (div (:class "track-edit-inputs") - (form-element (:text :bind artist-input)) - (form-element (:text :bind album-input)) - (form-element (:text :bind title-input))) - (set-on-click - (edit-save-btn track-ctl) - (thunk* (update-track-info - (track track-ctl) (value artist-input) (value album-input) (value title-input)) - (toggle-track-editor track-ctl))))) - (setf (display (info-edit-ctl track-ctl)) "none" - (text (print (edit-save-btn track-ctl))) "edit "))) + (if (editing? track-ctl) (open-track-editor track-ctl) + (close-track-editor track-ctl))) (defun add-zipped-playlist-link (pl-ctl playlist) "Adds the link to a zipped playlist to the DOM." @@ -308,7 +324,7 @@ (list-item (:bind container) (div (:bind item :class "track-list-item") - (section (:pre :content (track-listing-line track)))) + (section (:pre :bind listing-line))) (div (:bind info-edit-ctl :class "track-list-edit")) (div (:bind edit-controls) (button (:content "edit " :bind edit-save-btn)) @@ -319,13 +335,15 @@ (let ((track-ctl (make-instance 'track-ctl :container container + :listing-line listing-line :audio audio :track track :info-edit-ctl info-edit-ctl :edit-save-btn edit-save-btn :editing? nil))) (setf (tracks ctl) - (insert-nth track-ctl -1 (tracks ctl) t)) + (insert-nth track-ctl -1 (tracks ctl) t) + (text listing-line) (track-listing-line track)) (cond ((editorp ctl) (setf (attribute downbtn "title") "move track down" |