From 2fd8909a3551fef8d89b4f71a45a552886cffa6e Mon Sep 17 00:00:00 2001
From: Jessie Hildebrandt <jessieh@jessieh.net>
Date: Thu, 29 Dec 2022 23:48:57 -0500
Subject: [PATCH] Adjust line spacing

---
 init.el | 32 ++++++++++++--------------------
 1 file changed, 12 insertions(+), 20 deletions(-)

diff --git a/init.el b/init.el
index c8339c1..8c4770b 100644
--- a/init.el
+++ b/init.el
@@ -300,7 +300,6 @@ DOCSTRING is an optional form that is discarded upon expansion."
   "Provides an extensible, customizable, self-documenting real-time display editor."
 
   :config
-
   ;; Enable upcase/downcase region commands
   (put 'upcase-region 'disabled nil)
   (put 'downcase-region 'disabled nil)
@@ -308,7 +307,6 @@ DOCSTRING is an optional form that is discarded upon expansion."
   (advice-add 'downcase-region :around 'user/ensure-region-active)
 
   :custom
-
   ;; Default working directory
   (default-directory (if (eq system-type 'windows-nt)
                          (setq default-directory (getenv "USERPROFILE"))
@@ -366,7 +364,6 @@ DOCSTRING is an optional form that is discarded upon expansion."
   (read-extended-command-predicate #'command-completion-default-include-p)
 
   :bind
-
   ;; General binds
   ("C-z" . undo)
   ("C-c SPC" . tmm-menubar)
@@ -386,12 +383,15 @@ DOCSTRING is an optional form that is discarded upon expansion."
   ("C-M-p" . backward-paragraph)
 
   :bind*
-
   ;; Window navigation
   ("C-c C-i" . windmove-up)
   ("C-c C-k" . windmove-down)
   ("C-c C-j" . windmove-left)
-  ("C-c C-l" . windmove-right))
+  ("C-c C-l" . windmove-right)
+
+  :hook
+  ;; Minibuffer line spacing setup
+  (minibuffer-setup-hook . (lambda () (setq-local line-spacing 0.15))))
 
 ;; ---------------------------------- ;;
 ;; autorevert
@@ -517,24 +517,16 @@ DOCSTRING is an optional form that is discarded upon expansion."
 
 (editor-feature files
   "Defines most of Emacs' file-handling functionality."
-
   :custom
-
-  ;; Config file
-  (custom-file user/custom-file "Store customization info in a separate file")
-
-  ;; Directories
-  (backup-directory-alist `((".*" . ,user/backup-directory)))
-  (auto-save-file-name-transforms `((".*" ,user/auto-save-directory t)))
-  (lock-file-name-transforms `((".*" ,user/lock-file-directory t)))
-
-  ;; Backup behavior
-  (backup-by-copying t "Use copying unconditionally when creating backups")
   (version-control t "Use version numbers on backup files")
-  (delete-old-versions t "Clean up old backup files")
   (kept-new-versions 5 "Keep 5 recent backup files")
   (kept-old-versions 3 "Keep 3 old backup files")
-
+  (delete-old-versions t "Clean up old backup files")
+  (backup-by-copying t "Use copying unconditionally when creating backups")
+  (custom-file user/custom-file "Store customization info in a separate file")
+  (backup-directory-alist `((".*" . ,user/backup-directory)) "Set backup directory location")
+  (auto-save-file-name-transforms `((".*" ,user/auto-save-directory t)) "Set auto save directory location")
+  (lock-file-name-transforms `((".*" ,user/lock-file-directory t)) "Set lock file directory location")
   :hook
   (before-save-hook . delete-trailing-whitespace))
 
@@ -921,7 +913,7 @@ DOCSTRING is an optional form that is discarded upon expansion."
   ;; Set `line-spacing' to a custom value in corfu buffers for some
   ;; added visual separation between completion candidates
   (advice-add 'corfu--make-buffer :around (lambda (orig-fun &rest args)
-                                            (let ((line-spacing 0.2))
+                                            (let ((line-spacing 0.20))
                                               (apply orig-fun args))))
   :custom
   (corfu-auto t "Automatically display popups wherever available")