ui/popup: refactor :popup/:popups settings
And move org popup settings to lang/org
This commit is contained in:
parent
f3c7dac997
commit
fa17de9f19
3 changed files with 64 additions and 62 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue