(Emacs)~Clean buffer list code

Emacs/.config/emacs/config.org

@@ -181,13 +181,13 @@ any buffers in ~+oreo/keep-buffer~ and kills the rest.
         "*Warnings*" "*eshell*")
   "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."
   (interactive)
-  (mapcar #'(lambda (buf)
-              (if (not (member (buffer-name buf) +oreo/keep-buffers))
-                  (kill-buffer buf)))
-          (buffer-list)))
+  (mapcar #'kill-buffer
+          (cl-remove-if
+           #'(lambda (buf) (member (buffer-name buf) +oreo/keep-buffers))
+           (buffer-list))))
 #+end_src
 * Aesthetics
 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
     "j" #'next-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
     "q" #'save-buffers-kill-terminal