Update 5 drones
[~bandali/configs] / lisp / bandali-ibuffer.el
CommitLineData
4c05c418
AB
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
679463c6
AB
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)))))
3d7cc479
AB
44 (declare-function ibuffer-switch-to-saved-filter-groups "ibuf-ext"
45 (name))
679463c6
AB
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
679463c6
AB
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)
4c05c418 105;;; bandali-ibuffer.el ends here