Add λ!! (lambda!!) macro

For quick inline commands for keybinds that simply call a
command (interactively) with a prefix argument.
This commit is contained in:
Henrik Lissner 2019-07-09 02:33:31 +02:00
parent e146cba00e
commit c3c282f0a4
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -157,7 +157,15 @@ Accepts the same arguments as `message'."
(declare (doc-string 1))
`(lambda () (interactive) ,@body))
(defmacro λ!! (command &optional arg)
"Expands to a command that interactively calls COMMAND with prefix ARG."
(declare (doc-string 1))
`(lambda () (interactive)
(let ((current-prefix-arg ,arg))
(call-interactively ,command))))
(defalias 'lambda! 'λ!)
(defalias 'lambda!! 'λ!!)
(defmacro pushnew! (place &rest values)
"Like `cl-pushnew', but will prepend VALUES to PLACE.