From f3698889e04d90b346e79338ec6afa56ccf385dd Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Thu, 27 Oct 2022 09:55:44 -0500 Subject: Rename: alambda to thunk* --- playlist.lisp | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'playlist.lisp') diff --git a/playlist.lisp b/playlist.lisp index 0d6e589..c2350d1 100644 --- a/playlist.lisp +++ b/playlist.lisp @@ -239,12 +239,12 @@ (setf (tracks ctl) (insert-nth track-ctl -1 (tracks ctl) t)) (setf (visiblep delbtn) t) - (set-on-click delbtn (alambda (remove-track track-ctl))) - (set-on-click downbtn (alambda (move-track-down track-ctl))) - (set-on-click upbtn (alambda (move-track-up track-ctl)))) + (set-on-click delbtn (thunk* (remove-track track-ctl))) + (set-on-click downbtn (thunk* (move-track-down track-ctl))) + (set-on-click upbtn (thunk* (move-track-up track-ctl)))) (set-on-time-update audio 'update-now-playing-time) (set-on-ended audio 'advance-now-playing) - (set-on-click item (alambda (play-this-audio audio))))) + (set-on-click item (thunk* (play-this-audio audio))))) (defun create-track-listing (parent pl) (when-let (ctl (cur-playlist-ctl parent)) @@ -272,7 +272,7 @@ (setf (place-holder url-input) "https://www.youtube.com/watch?v=dQw4w9WgXcQ") (set-on-click button - (alambda + (thunk* (let* ((url (value url-input)) (notice @@ -322,7 +322,7 @@ (set-on-blur input - (alambda + (thunk* (when (plusp (length (value input))) (update-playlist-title pl (value input)) (setf (text title-elem) (value input))) @@ -331,7 +331,7 @@ (set-on-click title-elem - (alambda + (thunk* (setf (value input) (text title-elem) (display title-elem) "none" (display input) "inline") -- cgit v1.2.3