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

Quickrun+popwin integration

Browse source
This commit is contained in:
Henrik Lissner 2015-10-23 04:41:27 -04:00
parent 96de09aff5
commit 2bfe7670c2
2 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

10
core/core-quickrun.el
View file

@ -9,7 +9,15 @@
quickrun-replace-region quickrun-replace-region
helm-quickrun) helm-quickrun)
:config :config
(add-to-list 'quickrun-file-alist '("\\.gvy$" . "groovy"))) (setq quickrun-focus-p nil)
(add-to-list 'quickrun-file-alist '("\\.gvy$" . "groovy"))
(defun narf*quickrun-close-popwin ()
(when (get-buffer quickrun/buffer-name)
(quickrun/kill-quickrun-buffer)
(popwin:close-popup-window-if-necessary)))
(advice-add 'quickrun :before 'narf*quickrun-close-popwin)
(advice-add 'quickrun-region :before 'narf*quickrun-close-popwin))
(provide 'core-quickrun) (provide 'core-quickrun)
;;; core-quickrun.el ends here ;;; core-quickrun.el ends here

2
core/core-ui.el
View file

@ -77,7 +77,7 @@
:config :config
(setq popwin:popup-window-height 25) (setq popwin:popup-window-height 25)
(mapc (lambda (rule) (push rule popwin:special-display-config)) (mapc (lambda (rule) (push rule popwin:special-display-config))
'(("*quickrun*" :position bottom :height 15) '(("*quickrun*" :position bottom :height 10 :stick t)
("*scratch*" :position bottom :height 20 :stick t :dedicated t) ("*scratch*" :position bottom :height 20 :stick t :dedicated t)
("*helm-ag-edit*" :position bottom :height 20 :stick t) ("*helm-ag-edit*" :position bottom :height 20 :stick t)
(help-mode :position bottom :height 15 :stick t) (help-mode :position bottom :height 15 :stick t)