Add section for ibuffer

author: Case Duckworth 2021-05-05 12:33:20 -0500
committer: Case Duckworth 2021-05-05 12:33:20 -0500
commit: 64ce556a5704e07f3782606042d8398ce11563e8 (patch)
tree: 09a8b316c5525447c37c50dd9fbb629f9789447b
parent: Change binding for reb-quit (diff)
download: emacs-64ce556a5704e07f3782606042d8398ce11563e8.tar.gz
emacs-64ce556a5704e07f3782606042d8398ce11563e8.zip
1 files 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
+  (:global "C-x k" acdw/kill-a-buffer))
-           "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))
author	Case Duckworth	2021-05-05 12:33:20 -0500
committer	Case Duckworth	2021-05-05 12:33:20 -0500
commit	64ce556a5704e07f3782606042d8398ce11563e8 (patch)
tree	09a8b316c5525447c37c50dd9fbb629f9789447b
parent	Change binding for reb-quit (diff)
download	emacs-64ce556a5704e07f3782606042d8398ce11563e8.tar.gz emacs-64ce556a5704e07f3782606042d8398ce11563e8.zip

diff --git a/init.el b/init.el index 789b869..2a2917e 100644 --- a/init.el +++ b/init.el
@@ -106,8 +106,7 @@
106	(add-to-list 'exec-path "C:/Program Files/Mozilla Firefox")))	106	(add-to-list 'exec-path "C:/Program Files/Mozilla Firefox")))
107		107
108	(setup buffers	108	(setup buffers
109	(:global "C-x C-b" ibuffer	109	(:global "C-x k" acdw/kill-a-buffer))
110	"C-x k" acdw/kill-a-buffer))
111		110
112	(setup completion	111	(setup completion
113	(:option completion-ignore-case t	112	(:option completion-ignore-case t
@@ -344,6 +343,29 @@
344		343
345	(:leader "m" gnus))	344	(:leader "m" gnus))
346		345
		346	(setup ibuffer
		347	(:option ibuffer-saved-filter-groups
		348	'(("default"
		349	("dired" (mode . dired-mode))
		350	("emacs" (or (name . "^\\scratch\\$")
		351	(name . "^\\Messages\\$")))
		352	("gnus" (or (mode . message-mode)
		353	(mode . bbdb-mode)
		354	(mode . mail-mode)
		355	(mode . gnus-group-mode)
		356	(mode . gnus-summary-mode)
		357	(mode . gnus-article-mode)
		358	(name . "^\\.bbdb$")
		359	(name . "^\\.newsrc-dribble")))
		360	("help" (or (mode . help-mode)
		361	(mode . Info-mode)
		362	(mode . helpful-mode))))))
		363	(:global "C-x C-b" ibuffer)
		364
		365	(defun ibuffer-filter-to-default ()
		366	(ibuffer-switch-to-saved-filter-groups "default"))
		367	(:hook ibuffer-filter-to-default))
		368
347	(setup imenu	369	(setup imenu
348	(:option imenu-auto-rescan t))	370	(:option imenu-auto-rescan t))
349		371