From 90ca7751ed5ea723a465b73665894e0863988fce Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Thu, 11 Sep 2014 00:28:04 -0400
Subject: Add recompile-current-compilation

---
 lisp/init-external.el | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'lisp/init-external.el')

diff --git a/lisp/init-external.el b/lisp/init-external.el
index dbf1862..cea0d1f 100644
--- a/lisp/init-external.el
+++ b/lisp/init-external.el
@@ -68,11 +68,19 @@ monitor setup)."
       (display-buffer comp-buffer)
     (user-error "No compilation buffer")))
 
+(defun km/recompile-current-compilation ()
+  (interactive)
+  (-if-let (comp-buffer (get-buffer "*compilation*"))
+      (with-current-buffer comp-buffer
+        (recompile))
+    (user-error "No compilation buffer")))
+
 (define-prefix-command 'km/compile-map)
 (global-set-key (kbd "C-c c") 'km/compile-map)
 
 (define-key km/compile-map "c" 'compile)
 (define-key km/compile-map "g" 'recompile)
+(define-key km/compile-map "r" 'km/recompile-current-compilation)
 (define-key km/compile-map "o" 'km/display-compilation-other-window)
 
 ;;; Diff
-- 
cgit v1.2.3