           ("C-c C-l n"   . (lambda () (interactive) (my/theme-load nil)))
           ("C-c C-l o"   . (lambda () (interactive) (my/theme-load 'modus-operandi)))
           ("C-c C-l v"   . (lambda () (interactive) (my/theme-load 'modus-vivendi)))
-          ("C-c C-e f" . find-function)
-          ("C-c C-e k" . find-function-on-key)
-          ("C-c C-e l" . find-library)
-          ("C-c C-e v" . find-variable)
-          ("M-g"       . goto-line)
-          ("<f6>"      . recompile)
-          ("<f6>"      . next-error)
-          ("<f12>"     . auto-revert-tail-mode))
+          ("C-c C-e f"   . find-function)
+          ("C-c C-e k"   . find-function-on-key)
+          ("C-c C-e l"   . find-library)
+          ("C-c C-e v"   . find-variable)
+          ("M-g"         . goto-line)
+          ("<f6>"        . recompile)
+          ("<f6>"        . next-error)
+          ("<f12>"       . auto-revert-tail-mode))
   :config
   (set-fontset-font t nil "Roboto Mono 13")
   (set-fontset-font t 'symbol (font-spec :family "Apple Color Emoji"))

;; ======================================================================

;; Adapted from source: https://stackoverflow.com/a/11916238/3899249
(defvar my/buffer-kill-all-except
  '( "\\`\\*scratch\\*.*\\'"
     "\\`\\*Messages\\*\\'"
     "\\` \\*Minibuf-[[:digit:]]+\\*\\'"
     "\\` \\*Echo Area [[:digit:]]+\\*\\'")
  "Exception list for `my/buffer-kill-all-but-except'.")

(defun my/buffer-kill-all-but-except ()
  "Kill all buffers except those in `my/buffer-kill-all-except'."
  (interactive)
  (mapc (lambda (buf)
          (let ((buf-name (buffer-name buf)))
            (when (and
                    ;; if a buffer's name is enclosed by * with optional leading space characters
                    ;; (string-match-p "\\` *\\*.*\\*\\'" buf-name)
                    ;; and the buffer is not associated with a process
                    (null (get-buffer-process buf))
                    ;; and the buffer's name is not in `my/buffer-kill-all-except'
                    (not (lambda (except) (string-match-p except buf-name))
                      my/buffer-kill-all-except))
              (kill-buffer buf))))
    (buffer-list)))

(defun my/buffer-new-scratch ()


(use-package recentf
  :ensure nil
  :bind (
          ("C-c C-r" . recentf-open-files))
  :defer 2
  :commands (recentf-add-file recentf-apply-filename-handlers recentf-mode )
  :preface
