summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2015-02-09 22:44:46 -0500
committerKyle Meyer <kyle@kyleam.com>2015-02-09 22:44:46 -0500
commit7c084296fa00b3e0986b2642dc96e407b438f7d0 (patch)
tree038c1d33defcf7601c196c61e13d1fc27fdd0d87 /lisp
parent747c21d27dd3c23c2babd629357d490d93b2ad6f (diff)
downloademacs.d-7c084296fa00b3e0986b2642dc96e407b438f7d0.tar.gz
Add command compile-in-home-dir
Diffstat (limited to 'lisp')
-rw-r--r--lisp/init-external.el6
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)