diff options
| author | Grant Shangreaux <shoshin@cicadas.surf> | 2023-02-24 22:54:10 -0600 |
|---|---|---|
| committer | Grant Shangreaux <shoshin@cicadas.surf> | 2023-02-24 22:54:10 -0600 |
| commit | 28bf73a53ed740b4e4ba6d4de999fff29bd92550 (patch) | |
| tree | 577bf14f40ab7fd02513ede561b77af97fdf3887 /playlist.lisp | |
| parent | 98a92f5c8fe8d4326226a0af3ee9cd1499676196 (diff) | |
Fix: do placeholder/value stuff correctly and don't write ""
Empty string values were getting set on the track object when the
inputs were empty. this won't do that now
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)) |