From 28bf73a53ed740b4e4ba6d4de999fff29bd92550 Mon Sep 17 00:00:00 2001
From: Grant Shangreaux <shoshin@cicadas.surf>
Date: Fri, 24 Feb 2023 22:54:10 -0600
Subject: 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
---
 model.lisp    |  6 +++---
 playlist.lisp | 12 ++++++------
 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))
-- 
cgit v1.2.3