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

New macro: with-popup-rules!

Browse Source
This commit is contained in:
Henrik Lissner
2017-07-04 19:54:50 +02:00
parent 2b5eb5763f
commit 576a91b66c
1 changed files with 9 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
core/autoload/popups.el
View File

@ -180,3 +180,12 @@ only close popups that have an :autoclose property in their rule (see
:file ,(buffer-file-name buffer) :file ,(buffer-file-name buffer)
:rules ,(window-parameter window 'popup) :rules ,(window-parameter window 'popup)
:size ,(doom-popup-size window)))) :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)))