diff options
| author | Case Duckworth | 2021-04-07 12:56:14 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-04-07 12:56:14 -0500 |
| commit | 0550d9ed977e6961e1ccaea601956a77b2760ffa (patch) | |
| tree | 512aa9a99d2a5a458bfdaf51ed2de6f0e8b9cf31 | |
| parent | Remove minibuffer hook and make deletions more smarter (diff) | |
| download | emacs-0550d9ed977e6961e1ccaea601956a77b2760ffa.tar.gz emacs-0550d9ed977e6961e1ccaea601956a77b2760ffa.zip | |
Add `acdw/find-emacs-dotfiles'
| -rw-r--r-- | init.el | 6 | ||||
| -rw-r--r-- | lisp/acdw.el | 8 |
2 files changed, 11 insertions, 3 deletions
| diff --git a/init.el b/init.el index 704b307..05a1382 100644 --- a/init.el +++ b/init.el | |||
| @@ -204,7 +204,8 @@ | |||
| 204 | (:global "M-SPC" cycle-spacing | 204 | (:global "M-SPC" cycle-spacing |
| 205 | "M-/" hippie-expand | 205 | "M-/" hippie-expand |
| 206 | "M-=" count-words | 206 | "M-=" count-words |
| 207 | "C-x C-b" ibuffer)) | 207 | "C-x C-b" ibuffer |
| 208 | "C-c i" acdw/find-emacs-dotfiles)) | ||
| 208 | 209 | ||
| 209 | ;; Regular modes (`text-mode', `prog-mode', etc.) | 210 | ;; Regular modes (`text-mode', `prog-mode', etc.) |
| 210 | (defun acdw/setup-regular-modes () | 211 | (defun acdw/setup-regular-modes () |
| @@ -475,8 +476,7 @@ | |||
| 475 | "C-k" crux-kill-and-join-forward | 476 | "C-k" crux-kill-and-join-forward |
| 476 | "C-o" crux-smart-open-line-above | 477 | "C-o" crux-smart-open-line-above |
| 477 | "C-S-o" crux-smart-open-line | 478 | "C-S-o" crux-smart-open-line |
| 478 | "C-M-\\" crux-cleanup-buffer-or-region | 479 | "C-M-\\" crux-cleanup-buffer-or-region) |
| 479 | "C-c i" crux-find-user-init-file) | ||
| 480 | (crux-reopen-as-root-mode +1)) | 480 | (crux-reopen-as-root-mode +1)) |
| 481 | 481 | ||
| 482 | (setup (:straight avy) | 482 | (setup (:straight avy) |
| 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." | |||
| 110 | (run-at-time sunset-time (* 60 60 24) sunset-command) | 110 | (run-at-time sunset-time (* 60 60 24) sunset-command) |
| 111 | (run-at-time "12:00am" (* 60 60 24) sunset-command))) | 111 | (run-at-time "12:00am" (* 60 60 24) sunset-command))) |
| 112 | 112 | ||
| 113 | (defun acdw/find-emacs-dotfiles () | ||
| 114 | "Finds lisp files in `user-emacs-directory' and passes them to | ||
| 115 | `completing-read'." | ||
| 116 | (interactive) | ||
| 117 | (find-file (completing-read ".emacs: " | ||
| 118 | (directory-files-recursively | ||
| 119 | user-emacs-directory "\.el$")))) | ||
| 120 | |||
| 113 | 121 | ||
| 114 | ;; Make `C-z' more useful | 122 | ;; Make `C-z' more useful |
| 115 | (defvar acdw/leader | 123 | (defvar acdw/leader |