From 576a91b66ca57f0ce6da6f2610c4d5ffc3fa0dab Mon Sep 17 00:00:00 2001
From: Henrik Lissner <henrik@lissner.net>
Date: Tue, 4 Jul 2017 19:54:50 +0200
Subject: [PATCH] New macro: with-popup-rules!

---
 core/autoload/popups.el | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/core/autoload/popups.el b/core/autoload/popups.el
index 8d3c89db9..c258053ba 100644
--- a/core/autoload/popups.el
+++ b/core/autoload/popups.el
@@ -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)))