Revert "[emacs] don’t display *compilation* on successful builds"

[~bandali/configs] / init.org

diff --git a/init.org b/init.org
index ae1a6e6..b5f0618 100644 (file)
--- a/init.org
+++ b/init.org
@@ -646,35 +646,18 @@ Enable =winner-mode=.
 (winner-mode 1)
 #+end_src
 
 (winner-mode 1)
 #+end_src
 

-*** Don’t display =*compilation*= on success
-
-From https://stackoverflow.com/a/17788551.
+*** Close =*compilation*= on success

 
 #+begin_src emacs-lisp
 
 #+begin_src emacs-lisp

-(defun amin--compilation-finish-function (buffer outstr)
-  (unless (string-match "finished" outstr)
-    (switch-to-buffer-other-window buffer))
-  t)
-
-(setq compilation-finish-functions #'amin--compilation-finish-function)
-
-(require 'cl)
-
-(defadvice compilation-start
-    (around inhibit-display
-            (command &optional mode name-function highlight-regexp))
-  (if (not (string-match "^\\(find\\|grep\\)" command))
-      (flet ((display-buffer)
-             (set-window-point)
-             (goto-char))
-        (fset 'display-buffer   'ignore)
-        (fset 'goto-char        'ignore)
-        (fset 'set-window-point 'ignore)
-        (save-window-excursion
-          ad-do-it))
-    ad-do-it))
-
-(ad-activate 'compilation-start)
+(setq compilation-exit-message-function
+      (lambda (status code msg)
+        "Close the compilation window if successful."
+        ;; if M-x compile exits with 0
+         (when (and (eq status 'exit) (zerop code))
+           (bury-buffer)
+           (delete-window (get-buffer-window (get-buffer "*compilation*"))))
+         ;; return the result of compilation-exit-message-function
+         (cons msg code)))

 #+end_src
 
 *** Search for non-ASCII characters
 #+end_src
 
 *** Search for non-ASCII characters


@@ -1472,19 +1455,11 @@ instead.
   :hook (web-mode css-mode html-mode sgml-mode))
 #+end_src
 
   :hook (web-mode css-mode html-mode sgml-mode))
 #+end_src
 

-** Nix
-
-#+begin_src emacs-lisp
-(use-package nix-mode
-  :defer t
-  :mode "\\.nix\\'")
-#+end_src
-
-** Java
+** COMMENT Java

 
 *** meghanada
 
 
 *** meghanada
 

-#+begin_src emacs-lisp :tangle no
+#+begin_src emacs-lisp

 (use-package meghanada
   :bind
   (:map meghanada-mode-map
 (use-package meghanada
   :bind
   (:map meghanada-mode-map


@@ -1511,7 +1486,7 @@ tree-mode
 treemacs
 #+end_comment
 
 treemacs
 #+end_comment
 

-#+begin_src emacs-lisp :tangle no
+#+begin_src emacs-lisp

 (use-package treemacs
   :config (setq treemacs-never-persist t))
 
 (use-package treemacs
   :config (setq treemacs-never-persist t))
 


@@ -1561,6 +1536,23 @@ treemacs
   :after (treemacs))
 #+end_src
 
   :after (treemacs))
 #+end_src
 

+** geiser
+
+#+begin_src emacs-lisp
+(use-package geiser)
+
+(use-package geiser-guile
+  :config
+  (setq geiser-guile-load-path "~/src/git/guix"))
+#+end_src
+
+** guix
+
+#+begin_src emacs-lisp
+(use-package guix
+  :load-path "lib/guix/elisp")
+#+end_src
+

 * Emacs Enhancements
 
 ** [[https://github.com/justbur/emacs-which-key][which-key]]
 * Emacs Enhancements
 
 ** [[https://github.com/justbur/emacs-which-key][which-key]]


@@ -1776,11 +1768,10 @@ Make =*scratch*= and =*Messages*= unkillable.
 
 Also see [[https://www.emacswiki.org/emacs/rebox2][rebox2]].
 
 
 Also see [[https://www.emacswiki.org/emacs/rebox2][rebox2]].
 

-** [[https://github.com/DarthFennec/highlight-indent-guides][highlight-indent-guides]]
+** COMMENT [[https://github.com/DarthFennec/highlight-indent-guides][highlight-indent-guides]]

 
 #+begin_src emacs-lisp
 (use-package highlight-indent-guides
 
 #+begin_src emacs-lisp
 (use-package highlight-indent-guides

-  :disabled t

   :defer 3
   :hook ((prog-mode . highlight-indent-guides-mode)
          ;; (org-mode  . highlight-indent-guides-mode)
   :defer 3
   :hook ((prog-mode . highlight-indent-guides-mode)
          ;; (org-mode  . highlight-indent-guides-mode)


@@ -1813,12 +1804,6 @@ Also see [[https://www.emacswiki.org/emacs/rebox2][rebox2]].
         ("l"   . image-forward-hscroll)))
 #+end_src
 
         ("l"   . image-forward-hscroll)))
 #+end_src
 

-** anzu
-
-#+begin_src emacs-lisp
-(use-package anzu)
-#+end_src
-

 ** typo.el
 
 #+begin_src emacs-lisp
 ** typo.el
 
 #+begin_src emacs-lisp


@@ -1869,13 +1854,12 @@ Also see [[https://www.emacswiki.org/emacs/rebox2][rebox2]].
         ""))))
 #+end_src
 
         ""))))
 #+end_src
 

-** slack
+** COMMENT slack

 
 Hopefully temporary.
 
 #+begin_src emacs-lisp
 (use-package slack
 
 Hopefully temporary.
 
 #+begin_src emacs-lisp
 (use-package slack

-  :disabled t

   :commands (slack-start)
   :init
   (eval-when-compile                    ; silence the byte-compiler
   :commands (slack-start)
   :init
   (eval-when-compile                    ; silence the byte-compiler


@@ -2000,8 +1984,10 @@ Hopefully temporary.
  read-mail-command   'gnus)
 
 (use-package gnus
  read-mail-command   'gnus)
 
 (use-package gnus

-  :bind (("s-m" . gnus)
-         ("s-M" . gnus-unplugged))
+  :bind (("C-c m" . gnus)
+         ("C-c M" . gnus-unplugged)
+         ("s-m"   . gnus)
+         ("s-M"   . gnus-unplugged))

   :init
   (setq
    gnus-select-method '(nnnil "")
   :init
   (setq
    gnus-select-method '(nnnil "")


@@ -2221,11 +2207,10 @@ I tried using =borg-elpa= instead of doing it like this, but it added
   (bbdb-initialize 'gnus 'message))
 #+end_src
 
   (bbdb-initialize 'gnus 'message))
 #+end_src
 

-** message-x
+** COMMENT message-x

 
 #+begin_src emacs-lisp
 (use-package message-x
 
 #+begin_src emacs-lisp
 (use-package message-x

-  :disabled t

   :custom
   (message-x-completion-alist
    (quote
   :custom
   (message-x-completion-alist
    (quote


@@ -2237,11 +2222,10 @@ I tried using =borg-elpa= instead of doing it like this, but it added
       . message-expand-group)))))
 #+end_src
 
       . message-expand-group)))))
 #+end_src
 

-** gnus-harvest
+** COMMENT gnus-harvest

 
 #+begin_src emacs-lisp
 (use-package gnus-harvest
 
 #+begin_src emacs-lisp
 (use-package gnus-harvest

-  :disabled t

   :commands gnus-harvest-install
   :demand t
   :config
   :commands gnus-harvest-install
   :demand t
   :config


@@ -2287,4 +2271,5 @@ Display how long it took to load the init file.
 * COMMENT Local Variables                                           :ARCHIVE:
 # Local Variables:
 # eval: (add-hook 'after-save-hook #'amin/async-babel-tangle 'append 'local)
 * COMMENT Local Variables                                           :ARCHIVE:
 # Local Variables:
 # eval: (add-hook 'after-save-hook #'amin/async-babel-tangle 'append 'local)

+# eval: (typo-mode -1)

 # End:
 # End: