1

Adjust line spacing

This commit is contained in:
Jessie Hildebrandt 2022-12-29 23:48:57 -05:00
parent a8d05c7d5f
commit 2fd8909a35

32
init.el
View File

@ -300,7 +300,6 @@ DOCSTRING is an optional form that is discarded upon expansion."
"Provides an extensible, customizable, self-documenting real-time display editor." "Provides an extensible, customizable, self-documenting real-time display editor."
:config :config
;; Enable upcase/downcase region commands ;; Enable upcase/downcase region commands
(put 'upcase-region 'disabled nil) (put 'upcase-region 'disabled nil)
(put 'downcase-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) (advice-add 'downcase-region :around 'user/ensure-region-active)
:custom :custom
;; Default working directory ;; Default working directory
(default-directory (if (eq system-type 'windows-nt) (default-directory (if (eq system-type 'windows-nt)
(setq default-directory (getenv "USERPROFILE")) (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) (read-extended-command-predicate #'command-completion-default-include-p)
:bind :bind
;; General binds ;; General binds
("C-z" . undo) ("C-z" . undo)
("C-c SPC" . tmm-menubar) ("C-c SPC" . tmm-menubar)
@ -386,12 +383,15 @@ DOCSTRING is an optional form that is discarded upon expansion."
("C-M-p" . backward-paragraph) ("C-M-p" . backward-paragraph)
:bind* :bind*
;; Window navigation ;; Window navigation
("C-c C-i" . windmove-up) ("C-c C-i" . windmove-up)
("C-c C-k" . windmove-down) ("C-c C-k" . windmove-down)
("C-c C-j" . windmove-left) ("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 ;; autorevert
@ -517,24 +517,16 @@ DOCSTRING is an optional form that is discarded upon expansion."
(editor-feature files (editor-feature files
"Defines most of Emacs' file-handling functionality." "Defines most of Emacs' file-handling functionality."
:custom :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") (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-new-versions 5 "Keep 5 recent backup files")
(kept-old-versions 3 "Keep 3 old 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 :hook
(before-save-hook . delete-trailing-whitespace)) (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 ;; Set `line-spacing' to a custom value in corfu buffers for some
;; added visual separation between completion candidates ;; added visual separation between completion candidates
(advice-add 'corfu--make-buffer :around (lambda (orig-fun &rest args) (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)))) (apply orig-fun args))))
:custom :custom
(corfu-auto t "Automatically display popups wherever available") (corfu-auto t "Automatically display popups wherever available")