Quickrun+popwin integration
This commit is contained in:
parent
96de09aff5
commit
2bfe7670c2
2 changed files with 10 additions and 2 deletions
|
@ -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
|
||||
|
|
|
@ -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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue