Quickrun+popwin integration

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

View file

@ -9,7 +9,15 @@
quickrun-replace-region
helm-quickrun)
: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)
;;; core-quickrun.el ends here

View file

@ -77,7 +77,7 @@
:config
(setq popwin:popup-window-height 25)
(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)
("*helm-ag-edit*" :position bottom :height 20 :stick t)
(help-mode :position bottom :height 15 :stick t)