💥 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!
This commit is contained in:
Henrik Lissner 2018-06-18 02:26:05 +02:00
parent 4e5c8b6052
commit 6808c46b58
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
26 changed files with 356 additions and 351 deletions

View file

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

View file

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

View file

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

View file

@ -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"

View file

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

View file

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

View file

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