diff options
Diffstat (limited to 'emacs/work_inits/13-ibuffer.el')
| -rw-r--r-- | emacs/work_inits/13-ibuffer.el | 56 |
1 files changed, 56 insertions, 0 deletions
diff --git a/emacs/work_inits/13-ibuffer.el b/emacs/work_inits/13-ibuffer.el new file mode 100644 index 0000000..1562f29 --- /dev/null +++ b/emacs/work_inits/13-ibuffer.el @@ -0,0 +1,56 @@ +;; Time-stamp: <2022-06-13 10h46 CDT (radix)> + +(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))) + ("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" (mode . python-mode)) + ("REPL" (name . "^\\*.*REPL.*\\*$"))))) + + (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)))) |