Add causuel-ibuffer and some ibuffer bindings

1 files changed, 17 insertions, 2 deletions

diff --git a/.emacs.d/lisp/init-windows.el b/.emacs.d/lisp/init-windows.el
index 96c4109..2378e91 100644
--- a/.emacs.d/lisp/init-windows.el
+++ b/.emacs.d/lisp/init-windows.el
@@ -5,14 +5,29 @@
 (use-feature emacs
   :custom
   (switch-to-buffer-obey-display-actions t)
-  :bind
-  ("C-x C-M-b" . ibuffer)
   :config
   (defcustom large-frame-width-threshold 500
     "Minimum width (in chars) to consider the frame large."
     :group 'djm
     :type 'natnum))
 
+(use-feature ibuffer
+  :bind
+  ("C-x M-b" . ibuffer)
+  (:map ibuffer-mode-map
+        ("{" . ibuffer-backwards-next-marked)
+        ("}" . ibuffer-forward-next-marked)
+        ("[" . ibuffer-backward-filter-group)
+        ("]" . ibuffer-forward-filter-group)
+        ("$" . ibuffer-toggle-filter-group))
+  :hook (ibuffer-mode . ibuffer-auto-mode))
+
+(use-package casual-ibuffer
+  :bind (:map ibuffer-mode-map
+              ("C-o" . casual-ibuffer-tmenu)
+              ("F" . casual-ibuffer-filter-tmenu)
+              ("s" . casual-ibuffer-sortby-tmenu)))
+
 (use-feature winner
   :defer 5
   :config