summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--init.el9
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