Add: edit playlist title

1 files changed, 29 insertions, 2 deletions

diff --git a/playlist.lisp b/playlist.lisp
index 82f6f49..b71e4d7 100644
--- a/playlist.lisp
+++ b/playlist.lisp
@@ -70,6 +70,10 @@
   (with-transaction ()
     (make-instance 'playlist :title title :user user)))
 
+(defun update-playlist-title (playlist title)
+  (with-transaction ()
+    (setf (playlist-title playlist) title)))
+
 ;;; CLIENT STATE 
 
 (defclass/std playlist-ctl ()
@@ -372,9 +376,32 @@
             (install-new-playlist-ctl pl body)))
       (with-clog-create body
           (div ()
-               (section (:h2 :content (playlist-title-content pl) :bind title-elem))
+               (section (:h2 :content (playlist-title pl) :bind title-elem))
+               (form ()
+                     (form-element (:text :bind input)))
                (now-playing-display (ctl))
                (track-listing (pl))
                (new-track-form (pl)))
-        (setf (pl-title ctl) title-elem)
+        (setf (pl-title ctl) title-elem
+              (display input) "none")
+
+        (set-on-blur
+         input
+         (alambda
+             (when (plusp (length (value input)))
+               (update-playlist-title pl (value input))
+               (setf (text title-elem) (value input)))
+             (setf (display input) "none"
+                   (display title-elem) "block")))
+        
+        (set-on-click
+         title-elem
+         (alambda
+             (setf (value input) (text title-elem)
+                   (display input) "inline"
+                   (display title-elem) "none")
+           (focus input)))
+
         (initialize-now-playing body)))))
+
+(create-form-element )