From 7ec9075c8a20b4a8f2b1c0de9e5b86e18ad4ae8e Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Thu, 27 Oct 2022 13:46:56 -0500 Subject: Add: auth-pages via a middleware page serving function --- playlist.lisp | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) (limited to 'playlist.lisp') 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))))) -- cgit v1.2.3