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

New library macro: setq-hook!

Browse source
This commit is contained in:
Henrik Lissner 2018-05-07 22:35:14 +02:00
parent 78dde79622
commit 878b413885
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 18 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

18
core/core-lib.el
View file

@ -177,8 +177,26 @@ Body forms can access the hook's arguments through the let-bound variable
(defmacro remove-hook! (&rest args) (defmacro remove-hook! (&rest args)
"Convenience macro for `remove-hook'. Takes the same arguments as "Convenience macro for `remove-hook'. Takes the same arguments as
`add-hook!'." `add-hook!'."
(declare (indent defun) (debug t))
`(add-hook! :remove ,@args)) `(add-hook! :remove ,@args))
(defmacro setq-hook! (hooks &rest rest)
"Convenience macro for setting buffer-local variables in a hook.
(setq-hook! 'markdown-mode-hook
line-spacing 2
fill-column 80)"
(declare (indent 1))
(unless (= 0 (% (length rest) 2))
(signal 'wrong-number-of-arguments (length rest)))
`(add-hook! ,hooks
,@(let (forms)
(while rest
(let ((var (pop rest))
(val (pop rest)))
(push `(setq-local ,var ,val) forms)))
(nreverse forms))))
(defmacro associate! (mode &rest plist) (defmacro associate! (mode &rest plist)
"Associate a minor mode to certain patterns and project files." "Associate a minor mode to certain patterns and project files."
(declare (indent 1)) (declare (indent 1))