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

Add let-advice!! test macro

Browse source
This commit is contained in:
Henrik Lissner 2018-01-03 14:10:31 -05:00
parent f1268b130f
commit b7d21fb256
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 14 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

15
core/autoload/test.el
View file

@ -159,8 +159,21 @@ marker. e.g. {2} can be retrieved with (point!! 2)."
marker-list))) marker-list)))
(defmacro with-minor-mode!! (mode &rest body) (defmacro with-minor-mode!! (mode &rest body)
"TODO" "Activate a minor mode while in BODY, deactivating it after."
(declare (indent defun)) (declare (indent defun))
`(progn (,mode +1) `(progn (,mode +1)
,@body ,@body
(,mode -1))) (,mode -1)))
(defmacro let-advice!! (binds &rest body)
"Temporarily bind advice in BINDS while in BODY.
e.g. (old-fn :before advice-fn)
(old-fn :around advice-fn)"
(declare (indent defun))
`(progn
,@(cl-loop for (target type advice) in binds
collect `(advice-add #',target ,type #',advice))
,@body
,@(cl-loop for (target type advice) in binds
collect `(advice-remove #',target #',advice))))