From 0e8ea745fc80b8605064023195f6470ec919fd35 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Mon, 27 Sep 2021 23:07:50 -0500
Subject: Move stuff around

---
 init.el | 47 +++++++++++++++++++++++------------------------
 1 file changed, 23 insertions(+), 24 deletions(-)

(limited to 'init.el')

diff --git a/init.el b/init.el
index ddbc5cf..69dc918 100644
--- a/init.el
+++ b/init.el
@@ -1541,15 +1541,13 @@ specific to most general, they are these:
   (:option flyspell-correct-interface #'flyspell-correct-completing-read
            flyspell-correct--cr-key ";")
 
-  (defun acdw/flyspell-correct-f7 ()
-    "Run a full spell correction on the current buffer."
-    (interactive)
-    (save-mark-and-excursion
-      (flyspell-correct-move 0 :forward :rapid)))
-
   (:with-feature flyspell
     (:bind "C-." #'flyspell-correct-wrapper
-           "<f7>" #'acdw/flyspell-correct-f7)
+           "<f7>" (defun acdw/flyspell-correct-f7 ()
+                    "Run a full spell correction on the current buffer."
+                    (interactive)
+                    (save-mark-and-excursion
+                      (flyspell-correct-move 0 :forward :rapid))))
     (:unbind "C-;" "C-," "C-." "C-M-i")))
 
 (setup (:straight-if forge
@@ -1602,11 +1600,9 @@ specific to most general, they are these:
   (with-eval-after-load 'elpher
     (require 'gemini-write)))
 
-(setup (:straight gitattributes-mode))
-
-(setup (:straight gitconfig-mode))
-
-(setup (:straight gitignore-mode))
+(setup (:straight gitattributes-mode
+                  gitconfig-mode
+                  gitignore-mode))
 
 (setup (:straight helpful)
   (:require-after 3)
@@ -1981,8 +1977,10 @@ browser defined in `browse-url-secondary-browser-function'."
                          (if transform
                              (substring
                               cand
-                              (next-single-property-change 0 'consult-org--buffer cand))
-                           (let ((m (car (get-text-property 0 'consult-org--heading cand))))
+                              (next-single-property-change
+                               0 'consult-org--buffer cand))
+                           (let ((m (car (get-text-property
+                                          0 'consult-org--heading cand))))
                              (if (member m org-clock-history)
                                  "*Recent*"
                                (buffer-name (marker-buffer m))))))))
@@ -2011,11 +2009,12 @@ the default is \"/\"."
 		              (lambda (s) (replace-regexp-in-string "[ \t]+\\'" "" s))
 		              (cl-loop for head in path
 			                   for n from 0
-			                   collect (el-patch-swap
-                                         (org-add-props
-				                             head nil 'face
-				                             (nth (% n org-n-level-faces) org-level-faces))
-                                         head))
+			                   collect
+                               (el-patch-swap
+                                 (org-add-props
+                                  head nil 'face
+				                  (nth (% n org-n-level-faces) org-level-faces))
+                                 head))
 		              separator))))
         (when (> (length fpath) width)
           (if (< width 7)
@@ -2100,9 +2099,11 @@ the default is \"/\"."
     (when update-packages
       (require 'straight-x)
       (straight-x-pull-all))
-    (restart-emacs)))(setup (:straight (shell-command+
-                                        :host nil
-                                        :repo "https://git.sr.ht/~pkal/shell-command-plus"))
+    (restart-emacs)))
+
+(setup (:straight (shell-command+
+                   :host nil
+                   :repo "https://git.sr.ht/~pkal/shell-command-plus"))
   (:option shell-command-prompt "$ ")
   (:with-feature dired
     (:bind "M-!" shell-command+))
@@ -2381,5 +2382,3 @@ If used with a numeric prefix argument N, N backticks will be inserted."
              (if prefix
                  (call-interactively #'zzz-to-char)
                (call-interactively #'zzz-up-to-char)))))
-
-;;; init.el ends here
-- 
cgit 1.4.1-21-gabe81