awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

core-lib: add-transient-hook! add support for appending hooks/advice

Browse Source
This commit is contained in:
Henrik Lissner
2017-05-12 11:48:37 +02:00
parent 3ee1108c4a
commit eb064887a5
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
core/core-lib.el
View File

@ -99,14 +99,15 @@ compilation."
advised instead). These forms will be evaluated only once when that
function/hook is first invoked, then it detaches itself."
(declare (indent 1))
(let ((fn (intern (format "doom--transient-hook-%s" hook))))
(let ((fn (intern (format "doom--transient-hook-%s" hook)))
(append (eq (car forms) :after)))
`(progn
(defun ,fn (&rest _)
,@forms
,(cond ((functionp hook) `(advice-remove #',hook #',fn))
((symbolp hook) `(remove-hook ',hook #',fn))))
,(cond ((functionp hook) `(advice-add #',hook :before #',fn))
((symbolp hook) `(add-hook ',hook #',fn))))))
,(cond ((functionp hook) `(advice-add #',hook ,(if append :after :before) #',fn))
((symbolp hook) `(add-hook ',hook #',fn ,append))))))
(defmacro add-hook! (&rest args)
"A convenience macro for `add-hook'. Takes, in order: