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

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
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))))