emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Update popup rules + doc comments

Browse source
This commit is contained in:
Henrik Lissner 2017-05-17 01:32:19 +02:00
parent 374d5e0504
commit 199432c0ac
1 changed files with 7 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

15
core/core-popups.el
View file

@ -63,8 +63,9 @@ is enabled/disabled.'")
;; :autoclose If non-nil, close popup if ESC is pressed from outside ;; :autoclose If non-nil, close popup if ESC is pressed from outside
;; the popup window. ;; the popup window.
shackle-rules shackle-rules
'(("^\\*ftp " :size 8 :noselect t :autokill t :noesc t) '(("^\\*ftp " :size 8 :noselect t :autokill t :noesc t)
;; doom ;; doom
("*doom:scratch*" :size 0.35 :noesc t :select t :modeline t)
("^\\*doom:" :regexp t :size 0.35 :noesc t :select t) ("^\\*doom:" :regexp t :size 0.35 :noesc t :select t)
("^\\*doom " :regexp t :noselect t :autokill t :autoclose t) ("^\\*doom " :regexp t :noselect t :autokill t :autoclose t)
;; built-in (emacs) ;; built-in (emacs)
@ -77,9 +78,10 @@ is enabled/disabled.'")
(profiler-report-mode :size 0.3 :regexp t :autokill t) (profiler-report-mode :size 0.3 :regexp t :autokill t)
("*Backtrace*" :size 20 :noselect t) ("*Backtrace*" :size 20 :noselect t)
("*Warnings*" :noselect t :autokill t) ("*Warnings*" :noselect t :autokill t)
("*Messages*" :noselect t :autokill nil)
("*Help*" :size 0.3) ("*Help*" :size 0.3)
("^\\*.*Shell Command.*\\*$" :regexp t :size 20 :noselect t :autokill t) ("^\\*.*Shell Command.*\\*$" :regexp t :size 20 :noselect t :autokill t)
("^\\*" :regexp t :noselect t) ("^\\*" :regexp t :noselect t :autokill t)
("^ \\*" :regexp t :size 12 :noselect t :autokill t :autoclose t))) ("^ \\*" :regexp t :size 12 :noselect t :autokill t :autoclose t)))
:config :config
@ -446,7 +448,7 @@ you came from."
;; Ensure these settings are attached to org-load-hook as late as possible, ;; Ensure these settings are attached to org-load-hook as late as possible,
;; giving other modules to add their own hooks. ;; giving other modules a chance to add their own hooks.
(add-hook! 'after-init-hook (add-hook! 'after-init-hook
(add-hook! 'org-load-hook (add-hook! 'org-load-hook
(set! :popup (set! :popup
@ -465,11 +467,8 @@ you came from."
'("^CAPTURE.*\\.org$" :regexp t :size 20)) '("^CAPTURE.*\\.org$" :regexp t :size 20))
;; Org has its own window management system with a scorched earth philosophy ;; Org has its own window management system with a scorched earth philosophy
;; I'm not fond of. i.e. it kills all windows and greedily monopolizes the ;; I'm not fond of. i.e. it kills all windows and monopolizes the frame. No
;; frame. No thanks. We can do better with shackle's help. ;; thanks. We can do better with shackle's help.
;; Save the emacsverse from armageddon by suppressing `delete-other-windows'
;; in org functions.
(defun doom*suppress-delete-other-windows (orig-fn &rest args) (defun doom*suppress-delete-other-windows (orig-fn &rest args)
(cl-letf (((symbol-function 'delete-other-windows) (cl-letf (((symbol-function 'delete-other-windows)
(symbol-function 'ignore))) (symbol-function 'ignore)))