diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-10-27 09:55:44 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-10-27 09:55:44 -0500 |
| commit | f3698889e04d90b346e79338ec6afa56ccf385dd (patch) | |
| tree | e5fcab40a0f1a4f07564cf8acd986f28a8947e49 /playlist.lisp | |
| parent | f4dbd7e0a7067e96b2db143171b06d0a127643cc (diff) | |
Rename: alambda to thunk*
Diffstat (limited to 'playlist.lisp')
| -rw-r--r-- | playlist.lisp | 14 |
1 files changed, 7 insertions, 7 deletions
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") |