Collected changes for Zig, Gemini, theming

1 files changed, 68 insertions, 67 deletions

diff --git a/emacs/inits/13-ibuffer.el b/emacs/inits/13-ibuffer.el
index 0b36bcc..f94e1a5 100644
--- a/emacs/inits/13-ibuffer.el
+++ b/emacs/inits/13-ibuffer.el
@@ -1,73 +1,74 @@
-;; Time-stamp: <2020-12-30 17h58 EST (hobbies)>
+;; Time-stamp: <2021-03-21 22h32 EDT (hobbies)>
 
 (use-package ibuffer
-  :bind (("C-x C-b" . ibuffer))
-  :hook (ibuffer-mode .  (lambda ()
-                           (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")))
-           ("c" (or (mode . c-mode)
-                    (mode . makefile-gmake-mode)))
-           ("coq" (or (mode . coq-mode)
-                      (mode . coq-goals-mode)
-                      (mode . coq-response-mode)
-                      (mode . coq-shell-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\\*$")))
-           ("exwm" (mode . exwm-mode))
-           ("help" (or (mode . helpful-mode)
-                       (name . "^\\*Help\\*$")))
-           ("irc" (mode . rcirc-mode))
-           ("magit" (name . "^magit[:-]"))
-           ("media" (or (mode . image-mode)
-                        (mode . doc-view-mode)))
-           ("org" (mode . org-mode))
-           ("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))))))
+	:bind (("C-x C-b" . ibuffer))
+	:hook (ibuffer-mode .  (lambda ()
+													 (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")))
+					 ("c" (or (mode . c-mode)
+										(mode . makefile-gmake-mode)))
+					 ("coq" (or (mode . coq-mode)
+											(mode . coq-goals-mode)
+											(mode . coq-response-mode)
+											(mode . coq-shell-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\\*$")))
+					 ("exwm" (mode . exwm-mode))
+					 ("help" (or (mode . helpful-mode)
+											 (name . "^\\*Help\\*$")))
+					 ("irc" (mode . rcirc-mode))
+					 ("magit" (name . "^magit[:-]"))
+					 ("media" (or (mode . image-mode)
+												(mode . doc-view-mode)))
+					 ("org" (mode . org-mode))
+					 ("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" (mode . zig-mode)))))
 
-  (defadvice ibuffer-update-title-and-summary (after remove-column-titles)
-    (with-current-buffer "*Ibuffer*"
-      (read-only-mode -1)
-      (goto-char 1)
-      (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))
-      (read-only-mode 1)))
+	(defadvice ibuffer-update-title-and-summary (after remove-column-titles)
+		(with-current-buffer "*Ibuffer*"
+			(read-only-mode -1)
+			(goto-char 1)
+			(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))
+			(read-only-mode 1)))
 
-  (ad-activate 'ibuffer-update-title-and-summary)
+	(ad-activate 'ibuffer-update-title-and-summary)
 
-  (define-ibuffer-column size-h
-    (:name "Size" :inline t)
-    (cond
-     ((> (buffer-size) 1000000) (format "%7.1fM" (/ (buffer-size) 1000000.0)))
-     ((> (buffer-size) 100000) (format "%7.0fk" (/ (buffer-size) 1000.0)))
-     ((> (buffer-size) 1000) (format "%7.1fk" (/ (buffer-size) 1000.0)))
-     (t (format "%8d" (buffer-size)))))
+	(define-ibuffer-column size-h
+		(:name "Size" :inline t)
+		(cond
+		 ((> (buffer-size) 1000000) (format "%7.1fM" (/ (buffer-size) 1000000.0)))
+		 ((> (buffer-size) 100000) (format "%7.0fk" (/ (buffer-size) 1000.0)))
+		 ((> (buffer-size) 1000) (format "%7.1fk" (/ (buffer-size) 1000.0)))
+		 (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))))
+	(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))))