diff options
-rw-r--r-- | init.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/init.el b/init.el index 0f418c3..f48a788 100644 --- a/init.el +++ b/init.el | |||
@@ -626,7 +626,7 @@ if ripgrep is installed, otherwise `consult-grep'." | |||
626 | (interactive "P") | 626 | (interactive "P") |
627 | (cond ((= (vc-backend buffer-file-name) "Git") | 627 | (cond ((= (vc-backend buffer-file-name) "Git") |
628 | (call-interactively #'consult-git-grep)) | 628 | (call-interactively #'consult-git-grep)) |
629 | ((exectuable-find "rg") | 629 | ((executable-find "rg") |
630 | (call-interactively #'consult-ripgrep)) | 630 | (call-interactively #'consult-ripgrep)) |
631 | (t (call-interactively #'consult-grep)))) | 631 | (t (call-interactively #'consult-grep)))) |
632 | (defun consult-sensible-find () | 632 | (defun consult-sensible-find () |
@@ -775,7 +775,7 @@ if ripgrep is installed, otherwise `consult-grep'." | |||
775 | 775 | ||
776 | ;;;; System tie-ins | 776 | ;;;; System tie-ins |
777 | ;; Insctead of using `setup''s `:needs', I'm going to wrap these in | 777 | ;; Insctead of using `setup''s `:needs', I'm going to wrap these in |
778 | ;; `exectuable-find' forms. I don't want to waste time with pulling packages | 778 | ;; `executable-find' forms. I don't want to waste time with pulling packages |
779 | ;; that won't work on a machine. | 779 | ;; that won't work on a machine. |
780 | 780 | ||
781 | ;;;;; PKGBUILDs | 781 | ;;;;; PKGBUILDs |
@@ -797,7 +797,8 @@ if ripgrep is installed, otherwise `consult-grep'." | |||
797 | (defun dumb-auto-format () | 797 | (defun dumb-auto-format () |
798 | "Run `indent-region' in buffers that don't have an `apheleia' | 798 | "Run `indent-region' in buffers that don't have an `apheleia' |
799 | formatter set." | 799 | formatter set." |
800 | (unless (apheleia--get-formatter-command) | 800 | (unless (and (fboundp 'apheleia--get-formatter-command) |
801 | (apheleia--get-formatter-command)) | ||
801 | (indent-region (point-min) (point-max)))))) | 802 | (indent-region (point-min) (point-max)))))) |
802 | 803 | ||
803 | ;;;; Eldoc | 804 | ;;;; Eldoc |
@@ -860,7 +861,7 @@ if ripgrep is installed, otherwise `consult-grep'." | |||
860 | 861 | ||
861 | ;;;;; Scheme | 862 | ;;;;; Scheme |
862 | (when (or (executable-find "guile") | 863 | (when (or (executable-find "guile") |
863 | (exectuable-find "csi") | 864 | (executable-find "csi") |
864 | (executable-find "racket")) | 865 | (executable-find "racket")) |
865 | (setup (:straight geiser) | 866 | (setup (:straight geiser) |
866 | (:with-mode geiser-repl-mode | 867 | (:with-mode geiser-repl-mode |