diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2015-02-09 22:44:46 -0500 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2015-02-09 22:44:46 -0500 |
| commit | 7c084296fa00b3e0986b2642dc96e407b438f7d0 (patch) | |
| tree | 038c1d33defcf7601c196c61e13d1fc27fdd0d87 /lisp/init-external.el | |
| parent | 747c21d27dd3c23c2babd629357d490d93b2ad6f (diff) | |
| download | emacs.d-7c084296fa00b3e0986b2642dc96e407b438f7d0.tar.gz | |
Add command compile-in-home-dir
Diffstat (limited to 'lisp/init-external.el')
| -rw-r--r-- | lisp/init-external.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lisp/init-external.el b/lisp/init-external.el index a4bfbb2..f228ecf 100644 --- a/lisp/init-external.el +++ b/lisp/init-external.el @@ -129,6 +129,11 @@ monitor setup)." (save-window-excursion ad-do-it) ad-do-it)) +(defun km/compile-in-home-dir () + (interactive) + (let ((default-directory "~/")) + (call-interactively #'compile))) + (defadvice recompile (around prevent-window-on-compilation activate) "Prevent recompiling from spawning new windows." (save-window-excursion ad-do-it)) @@ -181,6 +186,7 @@ Otherwise, if ARG is non-nil, prompt with buffers from (global-set-key (kbd "C-c c") 'km/compile-map) (define-key km/compile-map "c" 'compile) +(define-key km/compile-map "h" 'km/compile-in-home-dir) (define-key km/compile-map "g" 'recompile) (define-key km/compile-map "o" 'km/compilation-display-buffer) (define-key km/compile-map "r" 'km/compilation-recompile) |