New macro: with-popup-rules!

This commit is contained in:
Henrik Lissner 2017-07-04 19:54:50 +02:00
parent 2b5eb5763f
commit 576a91b66c
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -180,3 +180,12 @@ only close popups that have an :autoclose property in their rule (see
:file ,(buffer-file-name buffer)
:rules ,(window-parameter window 'popup)
:size ,(doom-popup-size window))))
;;;###autoload
(defmacro with-popup-rules! (rules &rest body)
(declare (indent defun))
`(let ((old-shackle-rules shackle-rules))
,@(cl-loop for rule in rules
collect `(set! :popup ,@rule))
,@body
(setq shackle-rules old-shackle-rules)))