Abstract popwin defuns

This commit is contained in:
Henrik Lissner 2015-11-19 05:55:21 -05:00
parent 0cd60e5ae8
commit 5193970d8f
13 changed files with 39 additions and 110 deletions

View file

@ -9,15 +9,9 @@
quickrun-replace-region
helm-quickrun)
:config
(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))
(setq quickrun-focus-p t)
(add-hook! quickrun/mode 'linum-mode)
(add-to-list 'quickrun-file-alist '("\\.gvy$" . "groovy")))
(provide 'core-quickrun)
;;; core-quickrun.el ends here