aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorGrant Shangreaux <shoshin@cicadas.surf>2023-02-24 22:54:10 -0600
committerGrant Shangreaux <shoshin@cicadas.surf>2023-02-24 22:54:10 -0600
commit28bf73a53ed740b4e4ba6d4de999fff29bd92550 (patch)
tree577bf14f40ab7fd02513ede561b77af97fdf3887
parent98a92f5c8fe8d4326226a0af3ee9cd1499676196 (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
-rw-r--r--model.lisp6
-rw-r--r--playlist.lisp12
2 files changed, 9 insertions, 9 deletions
diff --git a/model.lisp b/model.lisp
index 65968cb..dcaf780 100644
--- a/model.lisp
+++ b/model.lisp
@@ -182,6 +182,6 @@
(defun update-track-info (track new-artist new-album new-title)
(with-transaction ()
(with-slots (artist album title) track
- (setf artist new-artist
- album new-album
- title new-title))))
+ (setf artist (if (equal "" new-artist) nil new-artist)
+ album (if (equal "" new-album) nil new-album)
+ title (if (equal "" new-title) nil new-title)))))
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))