;;; -*- lexical-binding: t -*-

;; Time-stamp: <2026-07-31 11h44 BST (51019882)>

(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"
           ("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" (or (mode . python-mode)
                         (mode . python-ts-mode)))
           ("rust") (or (mode .  rust-mode)
                        (mode . rust-ts-mode))
           ("REPL" (name . "^\\*.*REPL.*\\*$"))
           ("shell" (mode . sh-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))))