emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add λ!! (lambda!!) macro

Browse source 
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
1 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
core/core-lib.el
View file

@ -157,7 +157,15 @@ Accepts the same arguments as `message'."
(declare (doc-string 1)) (declare (doc-string 1))
`(lambda () (interactive) ,@body)) `(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! 'λ!)
(defalias 'lambda!! 'λ!!)
(defmacro pushnew! (place &rest values) (defmacro pushnew! (place &rest values)
"Like `cl-pushnew', but will prepend VALUES to PLACE. "Like `cl-pushnew', but will prepend VALUES to PLACE.