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

Revise shackle-rule precedence; add Info+shackle

Browse source
This commit is contained in:
Henrik Lissner 2017-05-27 13:26:47 +02:00
parent 94f8e7768b
commit c381b800cb
1 changed files with 16 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

25
core/core-popups.el
View file

@ -68,20 +68,21 @@ is enabled/disabled.'")
("^\\*doom:" :regexp t :size 0.35 :noesc t :select t :modeline t) ("^\\*doom:" :regexp t :size 0.35 :noesc t :select t :modeline 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)
("*Backtrace*" :size 20 :noselect t)
("*Warnings*" :size 5 :noselect t :autokill t :autoclose t)
("*Messages*" :size 12 :noselect t :autokill nil)
("*Help*" :size 0.3)
("^\\*.*Shell Command.*\\*$" :regexp t :size 20 :noselect t :autokill t)
("^\\*" :regexp t :noselect t :autokill t)
("^ \\*" :regexp t :size 12 :noselect t :autokill t :autoclose t)
(apropos-mode :size 0.3 :autokill t :autoclose t) (apropos-mode :size 0.3 :autokill t :autoclose t)
(Buffer-menu-mode :size 20 :autokill t) (Buffer-menu-mode :size 20 :autokill t)
(comint-mode :noesc t) (comint-mode :noesc t)
(grep-mode :size 25 :noselect t :autokill t) (grep-mode :size 25 :noselect t :autokill t)
(profiler-report-mode :size 0.3 :regexp t :autokill t :modeline minimal) (profiler-report-mode :size 0.3 :regexp t :autokill t :modeline minimal)
(tabulated-list-mode :noesc t) (tabulated-list-mode :noesc t)
(special-mode :noselect t :autokill t :autoclose t))) (special-mode :noselect t :autokill t :autoclose t)
("*info*" :size 0.5 :select t :autokill t)
("*Backtrace*" :size 20 :noselect t)
("*Warnings*" :size 5 :noselect t :autokill t :autoclose t)
("*Messages*" :size 12 :noselect t :autokill nil)
("*Help*" :size 0.3)
("^\\*.*Shell Command.*\\*$" :regexp t :size 20 :noselect t :autokill t)
("^\\*" :regexp t :noselect t :autokill t)
("^ \\*" :regexp t :size 12 :noselect t :autokill t :autoclose t)))
:config :config
(if (display-graphic-p) (if (display-graphic-p)
@ -253,7 +254,13 @@ properties."
(doom-popup-buffer buf) (doom-popup-buffer buf)
(with-current-buffer buf (with-current-buffer buf
(setq mode-line-format "Commands: d, s, x, u; f, o, 1, 2, m, v; ~, %; q to quit; ? for help.")))) (setq mode-line-format "Commands: d, s, x, u; f, o, 1, 2, m, v; ~, %; q to quit; ? for help."))))
(advice-add #'buffer-menu :override #'doom*buffer-menu)) (advice-add #'buffer-menu :override #'doom*buffer-menu)
(defun doom*suppress-pop-to-buffer-same-window (orig-fn &rest args)
(cl-letf (((symbol-function 'pop-to-buffer-same-window)
(symbol-function 'pop-to-buffer)))
(apply orig-fn args)))
(advice-add #'info :around #'doom*suppress-pop-to-buffer-same-window))
(after! comint (after! comint