2 files changed, 11 insertions, 3 deletions

@@ -204,7 +204,8 @@
   (:global "M-SPC" cycle-spacing
            "M-/" hippie-expand
            "M-=" count-words
-           "C-x C-b" ibuffer))
+           "C-x C-b" ibuffer
+           "C-c i" acdw/find-emacs-dotfiles))
 
 ;; Regular modes (`text-mode', `prog-mode', etc.)
 (defun acdw/setup-regular-modes ()
@@ -475,8 +476,7 @@
            "C-k" crux-kill-and-join-forward
            "C-o" crux-smart-open-line-above
            "C-S-o" crux-smart-open-line
-           "C-M-\\" crux-cleanup-buffer-or-region
-           "C-c i" crux-find-user-init-file)
+           "C-M-\\" crux-cleanup-buffer-or-region)
   (crux-reopen-as-root-mode +1))
 
 (setup (:straight avy)
@@ -110,6 +110,14 @@ if MAKE-DIRECTORY is non-nil."
     (run-at-time sunset-time (* 60 60 24) sunset-command)
     (run-at-time "12:00am" (* 60 60 24) sunset-command)))
 
+(defun acdw/find-emacs-dotfiles ()
+  "Finds lisp files in `user-emacs-directory' and passes them to
+  `completing-read'."
+  (interactive)
+  (find-file (completing-read ".emacs: "
+                              (directory-files-recursively
+                               user-emacs-directory "\.el$"))))
+
 
 ;; Make `C-z' more useful
 (defvar acdw/leader