From 0550d9ed977e6961e1ccaea601956a77b2760ffa Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Wed, 7 Apr 2021 12:56:14 -0500
Subject: Add `acdw/find-emacs-dotfiles'

---
 lisp/acdw.el | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'lisp')

diff --git a/lisp/acdw.el b/lisp/acdw.el
index 7b555fd..fd33514 100644
--- a/lisp/acdw.el
+++ b/lisp/acdw.el
@@ -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
-- 
cgit 1.4.1-21-gabe81