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

Refactor add-transient-hook!

Browse Source 
Use gensym instead of counter (and unintern the function symbol after
it's been used).
This commit is contained in:
Henrik Lissner
2018-06-15 23:54:07 +02:00
parent 8e6519ef1a
commit 2047a52fcd
1 changed files with 5 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
core/core-lib.el
View File

@ -262,7 +262,6 @@ compilation. This will no-op on features that have been disabled by the user."
(save-silently t))
,@forms))))
(defvar doom--transient-counter 0)
(defmacro add-transient-hook! (hook &rest forms)
"Attaches transient forms to a HOOK.
@ -272,17 +271,17 @@ invoked, then never again.
HOOK can be a quoted hook or a sharp-quoted function (which will be advised)."
(declare (indent 1))
(let ((append (if (eq (car forms) :after) (pop forms)))
(fn (intern (format "doom|transient-hook-%s"
(if (not (symbolp (car forms)))
(cl-incf doom--transient-counter)
(pop forms))))))
(fn (if (symbolp (car forms))
(intern (format "doom|transient-hook-%s" (pop forms)))
(gensym "doom|transient-hook-"))))
`(progn
(fset ',fn
(lambda (&rest _)
,@forms
(cond ((functionp ,hook) (advice-remove ,hook #',fn))
((symbolp ,hook) (remove-hook ,hook #',fn)))
(fmakunbound ',fn)))
(fmakunbound ',fn)
(unintern ',fn nil)))
(cond ((functionp ,hook)
(advice-add ,hook ,(if append :after :before) #',fn))
((symbolp ,hook)