;; 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)))
					 ("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)))

	(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)))))

	(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))))