aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--playlist.lisp31
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 )