[emacs] misc config updates

1 files changed, 32 insertions, 45 deletions

diff --git a/emacs/inits/13-ibuffer.el b/emacs/inits/13-ibuffer.el
index 55387dd..6db2a3c 100644
--- a/emacs/inits/13-ibuffer.el
+++ b/emacs/inits/13-ibuffer.el
@@ -1,44 +1,31 @@
-;; Time-stamp: <2021-09-27 08h47 EDT (hobbies)>
+;; Time-stamp: <2022-08-19 11h19 CEST (anchor)>
 
 (use-package ibuffer
   :bind (("C-x C-b" . ibuffer))
   :hook (ibuffer-mode .  (lambda ()
-			   (ibuffer-switch-to-saved-filter-groups "default")))
+                           (ibuffer-switch-to-saved-filter-groups "default")))
   :config
   (setq ibuffer-display-summary nil
-	ibuffer-saved-filter-groups
-	'(("default"
-	   ("agda" (or (mode . agda2-mode)
-		       (name . "^\\*[aA]gda")))
-	   ("coq" (or (mode . coq-mode)
-		      (mode . coq-goals-mode)
-		      (mode . coq-response-mode)
-		      (mode . coq-shell-mode)))
-	   ("c" (or (mode . c-mode)
-		    (mode . makefile-gmake-mode)))
-	   ("dired" (mode . dired-mode))
-	   ("elisp" (or (mode . emacs-lisp-mode)
-			(name . "^\\*Backtrace\\*")))
-	   ("emacs" (or (name . "^\\*scratch\\*$")
-			(name . "^\\*Messages\\*$")
-			(name . "^\\*init log\\*$")
-			(name . "^\\*Compile-Log\\*$")
-			(mode . helpful-mode)
-			(name . "^\\*Help\\*$")))
-	   ("irc" (mode . rcirc-mode))
-	   ("magit" (name . "^magit[:-]"))
-	   ("REPL" (name . "^\\*.*REPL.*\\*$"))
-	   ("rust" (mode . rust-mode))
-	   ("slime" (name . "^\\*slime-[^*]*\\*$"))
-	   ("tex" (mode . latex-mode))
-	   ("web" (or (mode . js2-mode)
-		      (mode . js-mode)
-		      (mode . html-mode)
-		      (mode . css-mode)
-		      (mode . mhtml-mode)))
-	   ("zig" (or (mode . zig-mode)
-		      (name . "^\\*zig.*\\*$")
-		      (name . "^\\*zls.*\\*$"))))))
+        ibuffer-saved-filter-groups
+        '(("default"
+           ("c{,++}" (or (mode . c-mode)
+                         (mode . c++-mode)
+                         (mode . makefile-gmake-mode)))
+           ("config" (or (mode . json-mode)
+                         (mode . jinja2-mode)))
+           ("dired" (mode . dired-mode))
+           ("elisp" (or (mode . emacs-lisp-mode)
+                        (name . "^\\*Backtrace\\*")))
+           ("emacs" (or (name . "^\\*scratch\\*$")
+                        (name . "^\\*Messages\\*$")
+                        (name . "^\\*init log\\*$")
+                        (name . "^\\*Compile-Log\\*$")
+                        (mode . helpful-mode)
+                        (name . "^\\*Help\\*$")))
+           ("magit" (name . "^magit[:-]"))
+           ("python" (mode . python-mode))
+           ("REPL" (name . "^\\*.*REPL.*\\*$"))
+           ("shell" (mode . sh-mode)))))
 
   (defadvice ibuffer-update-title-and-summary (after remove-column-titles)
     (with-current-buffer "*Ibuffer*"
@@ -47,8 +34,8 @@
       (search-forward "-\n" nil t)
       (delete-region 1 (point))
       (let ((window-min-height 1))
-	;; save a little screen estate
-	(shrink-window-if-larger-than-buffer))
+        ;; save a little screen estate
+        (shrink-window-if-larger-than-buffer))
       (read-only-mode 1)))
 
   (ad-activate 'ibuffer-update-title-and-summary)
@@ -62,11 +49,11 @@
      (t (format "%8d" (buffer-size)))))
 
   (setq ibuffer-formats
-	'((mark modified read-only locked " "
-		(name 18 18 :left :elide)
-		" "
-		(size-h 9 -1 :right)
-		" "
-		(mode 16 16 :left :elide)
-		" "
-		filename-and-process))))
+        '((mark modified read-only locked " "
+                (name 18 18 :left :elide)
+                " "
+                (size-h 9 -1 :right)
+                " "
+                (mode 16 16 :left :elide)
+                " "
+                filename-and-process))))