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

Update popwin config

Browse source
This commit is contained in:
Henrik Lissner 2015-11-30 16:50:04 -05:00
parent 4e97761974
commit 80df654c42
1 changed files with 10 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

16
core/core-popup.el
View file

@ -12,16 +12,20 @@
("*evil-registers*" :position bottom :height 0.3 :stick t) ("*evil-registers*" :position bottom :height 0.3 :stick t)
("*scratch*" :position bottom :height 20 :stick t) ("*scratch*" :position bottom :height 20 :stick t)
("*Apropos*" :position bottom :height 40 :stick t) ("*Apropos*" :position bottom :height 40 :stick t)
("*quickrun*" :position bottom :height 15 :stick t)
("*Backtrace*" :position bottom :height 15 :stick t) ("*Backtrace*" :position bottom :height 15 :stick t)
("^\\*CPU-Profiler-Report .+\\*$" :regexp t :position bottom :height 0.35)
("*Flycheck errors*" :position bottom :height 15 :stick t) ("*Flycheck errors*" :position bottom :height 15 :stick t)
("*quickrun*" :position bottom :height 15 :stick t)
;; Helm
("^\\*[Hh]elm.*?\\*\\'" :regexp t :position bottom :height 0.2) ("^\\*[Hh]elm.*?\\*\\'" :regexp t :position bottom :height 0.2)
("*helm-mode-find-file-at-point*" :position bottom :height 10)
("*helm-mode-ffap*" :position bottom :height 10)
;; Org
("^\\*Org-Babel.*\\*$" :regexp t :position bottom :height 15 :tail t) ("^\\*Org-Babel.*\\*$" :regexp t :position bottom :height 15 :tail t)
;; ("^\\*org .*\\*$" :regexp t :position bottom :height 15 :stick t)
("*Agenda Commands*" :position bottom :height 0.5) ("*Agenda Commands*" :position bottom :height 0.5)
(" *Org todo*" :position bottom :height 5) (" *Org todo*" :position bottom :height 5)
("*Org Links*" :position bottom :height 2) ("*Org Links*" :position bottom :height 2)
("^\\*CPU-Profiler-Report .+\\*$" :regexp t :position bottom :height 0.35)
("*ruby*" :position bottom :height 0.3 :stick t) ("*ruby*" :position bottom :height 0.3 :stick t)
("*ielm*" :position bottom :height 0.3 :stick t) ("*ielm*" :position bottom :height 0.3 :stick t)
)) ))
@ -49,7 +53,6 @@
(with-current-buffer buf (with-current-buffer buf
(evil-resize-window 5) (evil-resize-window 5)
(funcall cb) (funcall cb)
;; (yascroll-bar-mode +1)
(setq mode-line-format nil))) (setq mode-line-format nil)))
(defun narf/quickrun-after-run () (defun narf/quickrun-after-run ()
@ -68,8 +71,9 @@
"Minimalistic split-fn; leaves popwin to handle helm buffers." "Minimalistic split-fn; leaves popwin to handle helm buffers."
popwin:popup-window) popwin:popup-window)
(setq helm-split-window-default-side 'other (setq-default
helm-split-window-preferred-function 'narf/helm-split-window) helm-split-window-preferred-function 'narf/helm-split-window
helm-display-function 'popwin:pop-to-buffer)
(defadvice helm-ag--edit-abort (around helm-ag-edit-abort-popwin-compat activate) (defadvice helm-ag--edit-abort (around helm-ag-edit-abort-popwin-compat activate)
(cl-letf (((symbol-function 'select-window) 'ignore)) ad-do-it)) (cl-letf (((symbol-function 'select-window) 'ignore)) ad-do-it))