diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-10-27 13:46:56 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-10-27 13:46:56 -0500 |
| commit | 7ec9075c8a20b4a8f2b1c0de9e5b86e18ad4ae8e (patch) | |
| tree | 19930b67e358630a698275ff1dc506020c83d1b6 /playlist.lisp | |
| parent | 75926d0ed50473efc106fa83231c862063d0f0c3 (diff) | |
Add: auth-pages via a middleware page serving function
Diffstat (limited to 'playlist.lisp')
| -rw-r--r-- | playlist.lisp | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/playlist.lisp b/playlist.lisp index c2350d1..d7b08f1 100644 --- a/playlist.lisp +++ b/playlist.lisp @@ -319,24 +319,24 @@ (pl-dur ctl) dur-elem (display input) "none" (display title-elem) "inline") - + (set-on-blur input (thunk* - (when (plusp (length (value input))) - (update-playlist-title pl (value input)) - (setf (text title-elem) (value input))) - (setf (display input) "none" - (display title-elem) "inline"))) + (when (plusp (length (value input))) + (update-playlist-title pl (value input)) + (setf (text title-elem) (value input))) + (setf (display input) "none" + (display title-elem) "inline"))) (set-on-click title-elem (thunk* - (setf (value input) (text title-elem) - (display title-elem) "none" - (display input) "inline") + (setf (value input) (text title-elem) + (display title-elem) "none" + (display input) "inline") (focus input))) - + (initialize-now-playing body))))) |