Assimilate 2 drones, update my znc fork's url
[~bandali/configs] / lisp / bandali-ibuffer.el
1 ;;; bandali-ibuffer.el --- bandali's Ibuffer setup -*- lexical-binding: t; -*-
2
3 ;; Copyright (C) 2018-2020 Amin Bandali
4
5 ;; Author: Amin Bandali <bandali@gnu.org>
6 ;; Keywords: tools
7
8 ;; This program is free software; you can redistribute it and/or modify
9 ;; it under the terms of the GNU General Public License as published by
10 ;; the Free Software Foundation, either version 3 of the License, or
11 ;; (at your option) any later version.
12
13 ;; This program is distributed in the hope that it will be useful,
14 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
15 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 ;; GNU General Public License for more details.
17
18 ;; You should have received a copy of the GNU General Public License
19 ;; along with this program. If not, see <https://www.gnu.org/licenses/>.
20
21 ;;; Commentary:
22
23 ;; My Ibuffer setup.
24
25 ;;; Code:
26
27 (use-package ibuffer
28 :bind
29 (("C-x C-b" . ibuffer)
30 :map ibuffer-mode-map
31 ("P" . ibuffer-backward-filter-group)
32 ("N" . ibuffer-forward-filter-group)
33 ("M-p" . ibuffer-do-print)
34 ("M-n" . ibuffer-do-shell-command-pipe-replace))
35 :config
36 ;; Use human readable Size column instead of original one
37 (define-ibuffer-column size-h
38 (:name "Size" :inline t)
39 (cond
40 ((> (buffer-size) 1000000) (format "%7.1fM" (/ (buffer-size) 1000000.0)))
41 ((> (buffer-size) 100000) (format "%7.0fk" (/ (buffer-size) 1000.0)))
42 ((> (buffer-size) 1000) (format "%7.1fk" (/ (buffer-size) 1000.0)))
43 (t (format "%8d" (buffer-size)))))
44 (declare-function ibuffer-switch-to-saved-filter-groups "ibuf-ext"
45 (name))
46 :custom
47 (ibuffer-saved-filter-groups
48 '(("default"
49 ("dired" (mode . dired-mode))
50 ("org" (mode . org-mode))
51 ("gnus"
52 (or
53 (mode . gnus-group-mode)
54 (mode . gnus-summary-mode)
55 (mode . gnus-article-mode)
56 ;; not really, but...
57 (mode . message-mode)))
58 ("web"
59 (or
60 (mode . mhtml-mode)
61 (mode . css-mode)
62 (mode . scss-mode)
63 (mode . js2-mode)))
64 ("shell"
65 (or
66 (mode . eshell-mode)
67 (mode . shell-mode)
68 (mode . term-mode)))
69 ("programming"
70 (or
71 (mode . python-mode)
72 (mode . c-mode)
73 (mode . c++-mode)
74 (mode . java-mode)
75 (mode . emacs-lisp-mode)
76 (mode . scheme-mode)
77 (mode . haskell-mode)
78 (mode . lean-mode)
79 ;; (mode . go-mode)
80 (mode . alloy-mode)))
81 ("tex"
82 (or
83 (mode . bibtex-mode)
84 (mode . latex-mode)))
85 ("emacs"
86 (or
87 (name . "^\\*scratch\\*$")
88 (name . "^\\*Messages\\*$")))
89 ("exwm" (mode . exwm-mode))
90 ("erc" (mode . erc-mode)))))
91 (ibuffer-formats
92 '((mark modified read-only locked " "
93 (name 72 72 :left :elide)
94 " "
95 (size-h 9 -1 :right)
96 " "
97 (mode 16 16 :left :elide)
98 " " filename-and-process)
99 (mark " "
100 (name 16 -1)
101 " " filename)))
102 :hook (ibuffer . (lambda () (ibuffer-switch-to-saved-filter-groups "default"))))
103
104 (provide 'bandali-ibuffer)
105 ;;; bandali-ibuffer.el ends here