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

shackle: update rules + go to EOF when opening :messages

Browse source
This commit is contained in:
Henrik Lissner 2015-12-23 02:42:45 -05:00
parent 3abd28fc36
commit eb6901fbfe
1 changed files with 29 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

50
core/core-popup.el
View file

@ -5,44 +5,45 @@
(shackle-mode 1) (shackle-mode 1)
(setq shackle-rules (setq shackle-rules
'(;; Plugins '(;; Plugins
("*Flycheck errors*" :align below :ratio 0.3 :select t) ("\\` ?\\*[hH]elm.*?\\*\\'" :regexp t :align below :size 0.25 :select t)
("\\` ?\\*[hH]elm.*?\\*\\'" :regexp t :align below :ratio 0.25 :select t) ("*Flycheck errors*" :align below :size 15 :select t)
(" *NeoTree*" :align left :select t) (" *NeoTree*" :align left :select t)
("*evil-registers*" :align below :ratio 0.3) ("*evil-registers*" :align below :size 0.3)
("*quickrun*" :align below :ratio 0.1 :noselect t) ("*quickrun*" :align below :size 15 :noselect t)
("*eval*" :align below :ratio 0.25) ("*eval*" :align below :size 15)
;; vcs ;; vcs
("^\\*git-gutter.+\\*$" :regexp t :align below :ratio 0.4 :noselect t) ("^\\*git-gutter.+\\*$" :regexp t :align below :size 0.4 :noselect t)
("*vc-diff*" :align below :ratio 0.4 :noselect t) ("*vc-diff*" :align below :size 0.4 :noselect t)
("*vc-change-log*" :align below :select t) ("*vc-change-log*" :align below :select t)
(vc-annotate-mode :same t) (vc-annotate-mode :same t)
("*Apropos*" :align below :ratio 0.3) ("*Apropos*" :align below :size 0.3)
("*minor-modes*" :align below :ratio 0.5 :noselect t) ("*minor-modes*" :align below :size 0.5 :noselect t)
;; Org ;; Org
("^\\*Org Src .+\\*$" :regexp t :align below :ratio 0.4 :select t) ("^\\*Org Src .+\\*$" :regexp t :align below :size 0.4 :select t)
("^\\*Org-Babel.*\\*$" :regexp t :align below :ratio 0.4) ("^\\*Org-Babel.*\\*$" :regexp t :align below :size 0.4)
(org-agenda-mode :align below :ratio 0.4) (org-agenda-mode :align below :size 0.4)
("*Agenda Commands*" :align below :ratio 0.5) ("*Agenda Commands*" :align below :size 0.5)
(" *Org todo*" :align below :noselect t) (" *Org todo*" :align below :size 3 :noselect t)
("*Org Links*" :align below :ratio 0.05) ("*Org Links*" :align below :size 2)
;; Emacs ;; Emacs
("^\\*.+-Profiler-Report .+\\*$" :regexp t :align below :ratio 0.3) ("^\\*.+-Profiler-Report .+\\*$" :regexp t :align below :size 0.3)
("*Backtrace*" :align below :ratio 0.25 :noselect t) ("*Backtrace*" :align below :size 0.25 :noselect t)
("*scratch*" :align below :ratio 0.3 :select t) ("*scratch*" :align below :size 0.3 :select t)
("*Help*" :align below :ratio 0.25) ("*Help*" :align below :size 15)
("*Messages*" :align below :ratio 0.35 :select t) ("*Messages*" :align below :size 0.35 :select t)
(debugger-mode :align below :ratio 0.25 :noselect t) (debugger-mode :align below :size 0.25 :noselect t)
(compilation-mode :noselect t) (compilation-mode :noselect t)
;; REPLs ;; REPLs
((:custom (lambda (b &rest _) ((:custom (lambda (b &rest _)
(when (bound-and-true-p repl-p)
(when (string-prefix-p "*" (buffer-name (get-buffer b))) (when (string-prefix-p "*" (buffer-name (get-buffer b)))
(with-current-buffer b repl-p)))) (with-current-buffer b repl-p)))))
:popup t :align below :ratio 0.3) :popup t :align below :size 0.3)
)) ))
@ -215,7 +216,8 @@
(defun narf/popup-messages () (defun narf/popup-messages ()
(interactive) (interactive)
(narf/popup-buffer "*Messages*"))) (narf/popup-buffer "*Messages*")
(goto-char (point-max))))
;; (use-package popwin ;; (use-package popwin
;; :disabled t ;; :disabled t