2015-06-15 15:05:52 +08:00
|
|
|
;;; core-quickrun.el
|
|
|
|
|
|
|
|
|
|
(use-package quickrun
|
|
|
|
|
:commands (quickrun
|
|
|
|
|
quickrun-region
|
|
|
|
|
quickrun-with-arg
|
|
|
|
|
quickrun-shell
|
|
|
|
|
quickrun-compile-only
|
|
|
|
|
quickrun-replace-region
|
2015-06-24 21:39:13 +08:00
|
|
|
helm-quickrun)
|
|
|
|
|
:config
|
2015-10-23 16:41:27 +08:00
|
|
|
(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))
|
2015-06-15 15:05:52 +08:00
|
|
|
|
|
|
|
|
(provide 'core-quickrun)
|
|
|
|
|
;;; core-quickrun.el ends here
|
