oreodave/dotfiles
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

(Emacs)~Clean buffer list code

Browse Source
This commit is contained in:
Aryadev Chavali
2024-06-10 02:31:25 +01:00
parent a882d15a3f
commit b138739a63
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Emacs/.config/emacs/config.org
View File

@@ -181,13 +181,13 @@ any buffers in ~+oreo/keep-buffer~ and kills the rest.
"*Warnings*" "*eshell*") "*Warnings*" "*eshell*")
"List of buffer names to preserve.") "List of buffer names to preserve.")
(defun +oreo/clean-buffer-list () (defun +oreo/clean-buffers ()
"Kill all buffers except any with names in +oreo/keep-buffers." "Kill all buffers except any with names in +oreo/keep-buffers."
(interactive) (interactive)
(mapcar #'(lambda (buf) (mapcar #'kill-buffer
(if (not (member (buffer-name buf) +oreo/keep-buffers)) (cl-remove-if
(kill-buffer buf))) #'(lambda (buf) (member (buffer-name buf) +oreo/keep-buffers))
(buffer-list))) (buffer-list))))
#+end_src #+end_src
* Aesthetics * Aesthetics
General look and feel of Emacs (mostly disabling stuff I don't like). General look and feel of Emacs (mostly disabling stuff I don't like).
@@ -508,7 +508,7 @@ Some bindings that I couldn't fit elsewhere easily.
"K" #'kill-buffer "K" #'kill-buffer
"j" #'next-buffer "j" #'next-buffer
"k" #'previous-buffer "k" #'previous-buffer
"D" '(+oreo/clean-buffer-list :which-key "Kill most buffers")) "D" '(+oreo/clean-buffers :which-key "Kill most buffers"))
(quit-leader (quit-leader
"q" #'save-buffers-kill-terminal "q" #'save-buffers-kill-terminal