X-Git-Url: http://47.100.26.94:8080/?a=blobdiff_plain;f=emacs.d%2Fconfig.org;h=13470799e34ab0f1e86322ca5ef073914380a8c5;hb=67504d8dfe08cb4c204decc202b4b07b02ad37f7;hp=10d8c9a9d9593672b6d8cac307862d395b8f97bd;hpb=947aafc31d5b313ffc8f4bf16f90b4625eb628df;p=dotfiles.git

diff --git a/emacs.d/config.org b/emacs.d/config.org
index 10d8c9a..1347079 100644
--- a/emacs.d/config.org
+++ b/emacs.d/config.org
@@ -3142,6 +3142,19 @@ Kill the help window and buffer when quit.
 
   ;; (advice-add 'man :after (lambda (man-args) (other-window 1)))
   (advice-add 'man :after (apply-partially 'other-window 1))
+
+
+  (require 'shell-command-output-mode)
+
+  (defun my/shell-command-after (command &optional output-buffer error-buffer)
+    (let* ((buffer (get-buffer "*Shell Command Output*"))
+           (window (get-buffer-window buffer)))
+      (if buffer (with-current-buffer buffer
+                   (shell-command-output-mode)))
+      (if window
+          (select-window window))))
+
+  (advice-add 'shell-command :after 'my/shell-command-after)
 #+END_SRC
 
 ** Motion