From 64ce556a5704e07f3782606042d8398ce11563e8 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Wed, 5 May 2021 12:33:20 -0500
Subject: Add section for ibuffer

---
 init.el | 26 ++++++++++++++++++++++++--
 1 file changed, 24 insertions(+), 2 deletions(-)

diff --git a/init.el b/init.el
index 789b869..2a2917e 100644
--- a/init.el
+++ b/init.el
@@ -106,8 +106,7 @@
     (add-to-list 'exec-path "C:/Program Files/Mozilla Firefox")))
 
 (setup buffers
-  (:global "C-x C-b" ibuffer
-           "C-x k" acdw/kill-a-buffer))
+  (:global "C-x k" acdw/kill-a-buffer))
 
 (setup completion
   (:option completion-ignore-case t
@@ -344,6 +343,29 @@
 
   (:leader "m" gnus))
 
+(setup ibuffer
+  (:option ibuffer-saved-filter-groups
+           '(("default"
+              ("dired" (mode . dired-mode))
+              ("emacs" (or (name . "^\\*scratch\\*$")
+                           (name . "^\\*Messages\\*$")))
+              ("gnus" (or (mode . message-mode)
+                          (mode . bbdb-mode)
+                          (mode . mail-mode)
+                          (mode . gnus-group-mode)
+                          (mode . gnus-summary-mode)
+                          (mode . gnus-article-mode)
+                          (name . "^\\.bbdb$")
+                          (name . "^\\.newsrc-dribble")))
+              ("help" (or (mode . help-mode)
+                          (mode . Info-mode)
+                          (mode . helpful-mode))))))
+  (:global "C-x C-b" ibuffer)
+
+  (defun ibuffer-filter-to-default ()
+    (ibuffer-switch-to-saved-filter-groups "default"))
+  (:hook ibuffer-filter-to-default))
+
 (setup imenu
   (:option imenu-auto-rescan t))
 
-- 
cgit 1.4.1-21-gabe81