From e87a42046f66882d02252cbb75342887062f0f78 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Sat, 19 Apr 2014 22:01:12 -0400 Subject: Add command: km/display-compilation-other-window --- lisp/init-external.el | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/lisp/init-external.el b/lisp/init-external.el index 02cabbe..c9d39ae 100644 --- a/lisp/init-external.el +++ b/lisp/init-external.el @@ -24,6 +24,12 @@ other window when an asynchronous command is run." (interactive) (ansi-term "/bin/zsh")) +(defun km/display-compilation-other-window () + (interactive) + (-if-let (comp-buffer (get-buffer "*compilation*")) + (display-buffer comp-buffer) + (error "No compilation buffer"))) + (define-key external-map "a" 'km/zsh-ansi-term) (define-key external-map "t" 'km/open-external-terminal) (define-key external-map "r" 'shell-command-on-region) @@ -32,6 +38,7 @@ other window when an asynchronous command is run." (define-key external-map "c" 'compile) (define-key external-map "g" 'recompile) +(define-key external-map "o" 'km/display-compilation-other-window) (define-key external-map "w" 'woman) -- cgit v1.2.3