diff options
Diffstat (limited to 'playlist.lisp')
| -rw-r--r-- | playlist.lisp | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/playlist.lisp b/playlist.lisp index 0f2f8ac..092c224 100644 --- a/playlist.lisp +++ b/playlist.lisp @@ -234,9 +234,9 @@ (editing? track-ctl) t) (with-slots (artist-input album-input title-input) track-ctl (with-slots (artist album title) (track track-ctl) - (setf (value artist-input) (or artist "Artist") - (value album-input) (or album "Album") - (value title-input) (or title "Title")) + (setf (place-holder artist-input) (or artist "Artist") + (place-holder album-input) (or album "Album") + (place-holder title-input) (or title "Title")) (set-on-click (edit-save-btn track-ctl) (thunk* (update-track-info @@ -321,11 +321,11 @@ (div (:bind info-edit-ctl :class "track-list-edit") (div (:class "track-edit-inputs column") ;; (label (:content "Artist" :bind artist-label)) - (form-element (:text :bind artist-input)) + (form-element (:text :bind artist-input :value (track-artist track))) ;; (label (:content "Album" :bind album-label)) - (form-element (:text :bind album-input)) + (form-element (:text :bind album-input :value (track-album track))) ;; (label (:content "Title" :bind title-label)) - (form-element (:text :bind title-input)))) + (form-element (:text :bind title-input :value (track-title track))))) (div (:bind edit-controls) (button (:content "edit " :bind edit-save-btn)) (button (:content "delete " :bind delbtn)) |