💥 Change set-popup-rule! usage

Now accepts a flat plist of all its former parameters, including new
:parameters and :actions properties to increase your control over the
fate of your windows.

The old usage of set-popup-rule! is deprecated and may not work right!

The :ui popup module has also seen a major refactor to improve
efficiency and load times.

Sorry! This is the last "big" change before 2.1!

modules/lang/clojure/config.el

@@ -30,7 +30,7 @@
          (figwheel-sidecar.repl-api/start-figwheel!)
          (figwheel-sidecar.repl-api/cljs-repl))")
 
-  (set-popup-rule! "^\\*cider-repl" nil '((quit) (select)))
+  (set-popup-rule! "^\\*cider-repl" :quit nil :select nil)
   (set-repl-handler! 'clojure-mode #'+clojure/repl)
   (set-eval-handler! 'clojure-mode #'cider-eval-region)
   (set-lookup-handlers! 'clojure-mode

modules/lang/latex/config.el

@@ -33,7 +33,7 @@
         font-latex-fontify-sectioning 1.15)
   (setq-default TeX-master nil)
   ;; Display the output of the latex commands in a popup.
-  (set-popup-rule! " output\\*$" '((size . 15)))
+  (set-popup-rule! " output\\*$" :size 15)
 
   ;; TeX Font Styling
   ;; (def-package! tex-style :defer t)

modules/lang/org/+babel.el

@@ -73,17 +73,17 @@ string). Stops at the first function to return non-nil.")
   :config
   (set-popup-rules!
     '(("^\\*Org Src"
-       ((size . 100) (side . right) (slot . -1) (window-height . 0.6))
-       ((quit) (select . t) (modeline)))
+       :side 'right :size 100  :height 0.6 :slot -1
+       :quit nil :select t)
       ("^\\*Python"
-       ((slot . 0) (side . right) (size . 100))
-       ((select) (quit) (transient)))
+       :slot 0 :side 'right :size 100
+       :select nil :quit nil :ttl nil)
       ("\\*ob-ipython.*"
-       ((slot . 2) (side . right) (size . 100) (window-height . 0.2))
-       ((select) (quit) (transient)))
+       :slot 2 :side 'right :size 100 :height 0.2
+       :select nil :quit nil :transient nil)
       ("\\*Python:.*"
-       ((slot . 0) (side . right) (size . 100))
-       ((select) (quit) (transient)))))
+       :slot 0 :side 'right :size 100
+       :select nil :quit nil :transient nil)))
   ;; TODO Add more popup styles
 
   ;; advices for remote kernel and org-src-edit

modules/lang/org/config.el

@@ -140,17 +140,10 @@ unfold to point on startup."
   "Defines popup rules for org-mode (does nothing if :ui popup is disabled)."
   (set-popup-rules!
     '(("^\\*\\(?:Agenda Com\\|Calendar\\|Org \\(?:Links\\|Export Dispatcher\\|Select\\)\\)"
-       ((slot . -1) (vslot . -1) (size . +popup-shrink-to-fit))
-       ((transient . 0)))
-      ("^\\*Org Agenda"
-       ((size . 0.35))
-       ((select . t) (transient)))
-      ("^\\*Org Src"
-       ((size . 0.3))
-       ((quit) (select . t)))
-      ("^CAPTURE.*\\.org$"
-       ((size . 0.2))
-       ((quit) (select . t))))))
+       :slot -1 :vslot -1 :size #'+popup-shrink-to-fit :ttl 0)
+      ("^\\*Org Agenda"    :size 0.35 :select t :ttl nil)
+      ("^\\*Org Src"       :size 0.3 :quit nil :select t)
+      ("^CAPTURE.*\\.org$" :size 0.2 :quit nil :select t))))
 
 (defun +org|setup-pretty-code ()
   "Setup the default pretty symbols for"

modules/lang/plantuml/config.el

@@ -6,7 +6,7 @@
   (setq plantuml-jar-path (concat doom-etc-dir "plantuml.jar")
         org-plantuml-jar-path plantuml-jar-path)
   :config
-  (set-popup-rule! "^\\*PLANTUML" '((size . 0.4)) '((select) (transient . 0))))
+  (set-popup-rule! "^\\*PLANTUML" :size 0.4 :select nil :ttl 0))
 
 
 (def-package! flycheck-plantuml

modules/lang/python/config.el

@@ -98,7 +98,7 @@ environment variables."
   (add-hook 'python-mode-hook #'anaconda-mode)
   (add-hook 'anaconda-mode-hook #'anaconda-eldoc-mode)
   (set-company-backend! 'python-mode '(company-anaconda))
-  (set-popup-rule! "^\\*anaconda-mode" nil '((select)))
+  (set-popup-rule! "^\\*anaconda-mode" :select nil)
   (set-lookup-handlers! 'python-mode
     :definition #'anaconda-mode-find-definitions
     :references #'anaconda-mode-find-references
@@ -130,7 +130,7 @@ environment variables."
   :init
   (associate! nose-mode :match "/test_.+\\.py$" :modes (python-mode))
   :config
-  (set-popup-rule! "^\\*nosetests" '((size . 0.4)) '((select)))
+  (set-popup-rule! "^\\*nosetests" :size 0.4 :select nil)
   (set-yas-minor-mode! 'nose-mode)
   (map! :map nose-mode-map
         :localleader

modules/lang/rest/config.el

@@ -3,7 +3,7 @@
 (def-package! restclient
   :mode ("\\.http\\'" . restclient-mode)
   :config
-  (set-popup-rule! "^\\*HTTP Response" '((size . 0.4)) '((quit . other)))
+  (set-popup-rule! "^\\*HTTP Response" :size 0.4 :quit 'other)
   (map! :mode restclient-mode
         :n [M-return] 'restclient-http-send-current
         :localleader