ui/popup: refactor :popup/:popups settings

And move org popup settings to lang/org
This commit is contained in:
Henrik Lissner 2018-05-26 23:26:35 +02:00
parent f3c7dac997
commit fa17de9f19
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
3 changed files with 64 additions and 62 deletions

View file

@ -39,6 +39,7 @@
(add-hook! 'org-load-hook
#'(org-crypt-use-before-save-magic
+org|setup-ui
+org|setup-popups-rules
+org|setup-agenda
+org|setup-keybinds
+org|setup-hacks))
@ -130,6 +131,22 @@ unfold to point on startup."
org-agenda-start-on-weekday nil
org-agenda-start-day "-3d"))
(defun +org|setup-popups-rules ()
"Defines popup rules for org-mode (does nothing if :ui popup is disabled)."
(set! :popups
'("^\\*\\(?: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)))))
(defun +org|setup-ui ()
"Configures the UI for `org-mode'."
(setq-default