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

Update shackle definitions + correct function name

Browse source
This commit is contained in:
Henrik Lissner 2015-12-29 23:13:45 -05:00
parent 938f47bcb6
commit 6711ca09fb
1 changed files with 8 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

18
core/core-popup.el
View file

@ -5,7 +5,7 @@
(shackle-mode 1) (shackle-mode 1)
(setq shackle-rules (setq shackle-rules
'(;; Plugins '(;; Plugins
("\\` ?\\*[hH]elm.*?\\*\\'" :regexp t :align below :size 0.25 :select t) ("\\` ?\\*[hH]elm.*?\\*\\'" :regexp t :align below :size 20 :select t)
("*Flycheck errors*" :align below :size 15 :select t) ("*Flycheck errors*" :align below :size 15 :select t)
(" *NeoTree*" :align left :select t) (" *NeoTree*" :align left :select t)
("*evil-registers*" :align below :size 0.3) ("*evil-registers*" :align below :size 0.3)
@ -26,15 +26,15 @@
("^\\*Org-Babel.*\\*$" :regexp t :align below :size 0.4) ("^\\*Org-Babel.*\\*$" :regexp t :align below :size 0.4)
(org-agenda-mode :align below :size 0.4) (org-agenda-mode :align below :size 0.4)
("*Agenda Commands*" :align below :size 0.5) ("*Agenda Commands*" :align below :size 0.5)
(" *Org todo*" :align below :size 3 :noselect t) (" *Org todo*" :align below :size 5 :noselect t)
("*Org Links*" :align below :size 2) ("*Org Links*" :align below :size 5)
;; Emacs ;; Emacs
("^\\*.+-Profiler-Report .+\\*$" :regexp t :align below :size 0.3) ("^\\*.+-Profiler-Report .+\\*$" :regexp t :align below :size 0.3)
("*Backtrace*" :align below :size 0.25 :noselect t) ("*Backtrace*" :align below :size 0.25 :noselect t)
("*scratch*" :align below :size 0.3 :select t) ("*scratch*" :align below :size 0.3 :select t)
("*Help*" :align below :size 15) ("*Help*" :align below :size 15)
("*Messages*" :align below :size 0.35 :select t) ("*Messages*" :align below :size 20 :select t)
(debugger-mode :align below :size 0.25 :noselect t) (debugger-mode :align below :size 0.25 :noselect t)
(compilation-mode :noselect t) (compilation-mode :noselect t)
@ -43,9 +43,7 @@
(when (featurep 'repl-toggle) (when (featurep 'repl-toggle)
(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 :size 12) :popup t :align below :size 12)))
))
(after! helm (after! helm
;; This is a good alternative to either popwin or shackle, specifically for helm. If ;; This is a good alternative to either popwin or shackle, specifically for helm. If
@ -79,14 +77,14 @@
(after! quickrun (after! quickrun
;; This allows us to run code several times in a row without having to close the popup ;; This allows us to run code several times in a row without having to close the popup
;; window and move back to the code buffer. ;; window and move back to the code buffer.
(defun narf*quickrun-close-popwin (&optional _ _ _ _) (defun narf*quickrun-close-popup (&optional _ _ _ _)
(let* ((buffer (get-buffer quickrun/buffer-name)) (let* ((buffer (get-buffer quickrun/buffer-name))
(window (and buffer (get-buffer-window buffer)))) (window (and buffer (get-buffer-window buffer))))
(when buffer (when buffer
(shut-up! (quickrun/kill-running-process)) (shut-up! (quickrun/kill-running-process))
(narf/popup-close window nil t)))) (narf/popup-close window nil t))))
(advice-add 'quickrun :before 'narf*quickrun-close-popwin) (advice-add 'quickrun :before 'narf*quickrun-close-popup)
(advice-add 'quickrun-region :before 'narf*quickrun-close-popwin) (advice-add 'quickrun-region :before 'narf*quickrun-close-popup)
;; Turns on `yascroll-bar-mode' and `nlinum-mode', and ensures window is scrolled to ;; Turns on `yascroll-bar-mode' and `nlinum-mode', and ensures window is scrolled to
;; EOF and that the scrollbar is showing. ;; EOF and that the scrollbar is showing.