about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--init.el192
1 files changed, 97 insertions, 95 deletions
diff --git a/init.el b/init.el index 7c1da55..edb62b6 100644 --- a/init.el +++ b/init.el
@@ -40,7 +40,7 @@
40 (interactive) 40 (interactive)
41 (+init-sort) 41 (+init-sort)
42 (save-buffer))) 42 (save-buffer)))
43 (:hook '+init-add-setup-to-imenu)) 43 (:hook #'+init-add-setup-to-imenu))
44 44
45(setup (:require +key) 45(setup (:require +key)
46 (+key-setup)) 46 (+key-setup))
@@ -67,8 +67,8 @@
67(setup (:require reading)) 67(setup (:require reading))
68 68
69(setup Info 69(setup Info
70 (:hook 'variable-pitch-mode 70 (:hook #'variable-pitch-mode
71 'reading-mode)) 71 #'reading-mode))
72 72
73(setup abbrev 73(setup abbrev
74 (:option abbrev-file-name (sync/ "abbrev.el") 74 (:option abbrev-file-name (sync/ "abbrev.el")
@@ -157,7 +157,7 @@
157 +custom-variable-allowlist '(safe-local-variable-values)) 157 +custom-variable-allowlist '(safe-local-variable-values))
158 (when (file-exists-p custom-file) 158 (when (file-exists-p custom-file)
159 (+custom-load-ignoring-most-customizations t)) 159 (+custom-load-ignoring-most-customizations t))
160 (advice-add 'custom-buffer-create-internal :after '+cus-edit-expand-widgets) 160 (advice-add #'custom-buffer-create-internal :after #'+cus-edit-expand-widgets)
161 (:with-mode Custom-mode 161 (:with-mode Custom-mode
162 (:local-set imenu-generic-expression +cus-edit-imenu-generic-expression))) 162 (:local-set imenu-generic-expression +cus-edit-imenu-generic-expression)))
163 163
@@ -179,14 +179,14 @@
179 hardlink load move 179 hardlink load move
180 shell touch symlink) 180 shell touch symlink)
181 dired-dwim-target t) 181 dired-dwim-target t)
182 (:bind "<backspace>" 'dired-up-directory 182 (:bind "<backspace>" #'dired-up-directory
183 "TAB" 'dired-subtree-cycle 183 "TAB" #'dired-subtree-cycle
184 "i" 'dired-subtree-toggle 184 "i" #'dired-subtree-toggle
185 ")" 'dired-git-info-mode) 185 ")" #'dired-git-info-mode)
186 (:hook 'dired-collapse-mode 186 (:hook #'dired-collapse-mode
187 'dired-hide-details-mode 187 #'dired-hide-details-mode
188 'hl-line-mode) 188 #'hl-line-mode)
189 (:+key "C-x C-j" 'dired-jump) 189 (:+key "C-x C-j" #'dired-jump)
190 (with-eval-after-load 'dired 190 (with-eval-after-load 'dired
191 (pcase system-type 191 (pcase system-type
192 ((or 'ms-dos 'windows-nt) 192 ((or 'ms-dos 'windows-nt)
@@ -207,10 +207,10 @@
207 (:option eval-expression-print-length nil 207 (:option eval-expression-print-length nil
208 eval-expression-print-level nil) 208 eval-expression-print-level nil)
209 (:with-map (emacs-lisp-mode-map lisp-interaction-mode-map) 209 (:with-map (emacs-lisp-mode-map lisp-interaction-mode-map)
210 (:bind "C-c C-c" 'eval-defun 210 (:bind "C-c C-c" #'eval-defun
211 "C-c C-k" '+elisp-eval-region-or-buffer 211 "C-c C-k" #'+elisp-eval-region-or-buffer
212 "C-c C-z" 'ielm)) 212 "C-c C-z" #'ielm))
213 (advice-add 'eval-region :around '+eval-region@pulse)) 213 (advice-add #'eval-region :around #'+eval-region@pulse))
214 214
215(setup eshell 215(setup eshell
216 (:also-load +eshell 216 (:also-load +eshell
@@ -231,7 +231,7 @@
231 eshell-where-to-jump 'begin) 231 eshell-where-to-jump 'begin)
232 (:local-set outline-regexp eshell-prompt-regexp 232 (:local-set outline-regexp eshell-prompt-regexp
233 page-delimiter eshell-prompt-regexp) 233 page-delimiter eshell-prompt-regexp)
234 (:bind "C-d" '+eshell-quit-or-delete-char) 234 (:bind "C-d" #'+eshell-quit-or-delete-char)
235 (:when-loaded 235 (:when-loaded
236 (setenv "PAGER" "cat"))) 236 (setenv "PAGER" "cat")))
237 237
@@ -239,11 +239,11 @@
239 (:also-load +eww) 239 (:also-load +eww)
240 (:option eww-search-prefix "https://duckduckgo.com/html?q=" 240 (:option eww-search-prefix "https://duckduckgo.com/html?q="
241 url-privacy-level '(email agent cookies lastloc)) 241 url-privacy-level '(email agent cookies lastloc))
242 (add-hook 'eww-after-render-hook 'reading-mode) 242 (add-hook 'eww-after-render-hook #'reading-mode)
243 (:hook '+eww-bookmark-setup 243 (:hook #'+eww-bookmark-setup
244 '+eww-track-readable-mode) 244 #'+eww-track-readable-mode)
245 (:bind "b" 'bookmark-set 245 (:bind "b" #'bookmark-set
246 "B" 'bookmark-jump 246 "B" #'bookmark-jump
247 "M-n" nil 247 "M-n" nil
248 "M-p" nil)) 248 "M-p" nil))
249 249
@@ -295,23 +295,27 @@
295(setup minibuffer 295(setup minibuffer
296 (:require +minibuffer) 296 (:require +minibuffer)
297 (:with-map minibuffer-local-map 297 (:with-map minibuffer-local-map
298 (:bind "M-/" '+minibuffer-complete-history))) 298 (:bind "M-/" #'+minibuffer-complete-history)))
299
300(setup org-agenda
301 (:option org-agenda-skip-deadline-if-done t)
302 (:+leader "a" #'org-agenda "C-a" #'org-agenda))
299 303
300(setup prog 304(setup prog
301 (:local-set comment-auto-fill-only-comments t) 305 (:local-set comment-auto-fill-only-comments t)
302 (:hook 'prettify-symbols-mode 306 (:hook #'prettify-symbols-mode
303 'display-fill-column-indicator-mode 307 #'display-fill-column-indicator-mode
304 'turn-on-auto-fill)) 308 #'turn-on-auto-fill))
305 309
306(setup scratch 310(setup scratch
307 (:require +scratch) 311 (:require +scratch)
308 (:option initial-major-mode 'lisp-interaction-mode 312 (:option initial-major-mode 'lisp-interaction-mode
309 initial-scratch-message 313 initial-scratch-message
310 ";; ABANDON ALL HOPE YE WHO ENTER HERE\n\n") 314 ";; ABANDON ALL HOPE YE WHO ENTER HERE\n\n")
311 (add-hook 'kill-buffer-query-functions '+scratch-immortal)) 315 (add-hook 'kill-buffer-query-functions #'+scratch-immortal))
312 316
313(setup text 317(setup text
314 (:hook 'turn-on-auto-fill)) 318 (:hook #'turn-on-auto-fill))
315 319
316(setup (:straight 0x0) 320(setup (:straight 0x0)
317 (:option 0x0-default-server 'ttm) 321 (:option 0x0-default-server 'ttm)
@@ -322,26 +326,26 @@
322 (:require +ace-window) 326 (:require +ace-window)
323 (:option aw-keys '(?a ?s ?d ?f ?g ?h ?j ?k ?l) 327 (:option aw-keys '(?a ?s ?d ?f ?g ?h ?j ?k ?l)
324 aw-display-mode-overlay nil) 328 aw-display-mode-overlay nil)
325 (:+key "M-o" '+ace-window-or-switch-buffer) 329 (:+key "M-o" #'+ace-window-or-switch-buffer)
326 (:face aw-mode-line-face ((t (:foreground "red")))) 330 (:face aw-mode-line-face ((t (:foreground "red"))))
327 (+ace-window-display-mode +1)) 331 (+ace-window-display-mode +1))
328 332
329(setup (:straight anzu) 333(setup (:straight anzu)
330 (:option anzu-cons-mode-line-p nil) 334 (:option anzu-cons-mode-line-p nil)
331 (:+key [remap query-replace] 'anzu-query-replace-regexp 335 (:+key [remap query-replace] #'anzu-query-replace-regexp
332 [remap query-replace-regexp] 'anzu-query-replace-regexp) 336 [remap query-replace-regexp] #'anzu-query-replace-regexp)
333 (global-anzu-mode +1) 337 (global-anzu-mode +1)
334 (:bind-into isearch 338 (:bind-into isearch
335 [remap isearch-query-replace] 'anzu-isearch-query-replace 339 [remap isearch-query-replace] #'anzu-isearch-query-replace
336 [remap isearch-query-replace-regexp] 'anzu-isearch-query-replace-regexp)) 340 [remap isearch-query-replace-regexp] #'anzu-isearch-query-replace-regexp))
337 341
338(setup (:straight avy) 342(setup (:straight avy)
339 (:also-load +avy) 343 (:also-load +avy)
340 (:+key "M-j" 'avy-goto-char-timer) 344 (:+key "M-j" #'avy-goto-char-timer)
341 (:bind-into isearch 345 (:bind-into isearch
342 "M-j" 'avy-isearch) 346 "M-j" #'avy-isearch)
343 (:when-loaded 347 (:when-loaded
344 (setf (alist-get ?. avy-dispatch-alist) 'avy-action-embark))) 348 (setf (alist-get ?. avy-dispatch-alist) #'avy-action-embark)))
345 349
346(setup (:straight (cape :host github :repo "minad/cape")) 350(setup (:straight (cape :host github :repo "minad/cape"))
347 (dolist (fn '(;; All available cape capfs listed here. 351 (dolist (fn '(;; All available cape capfs listed here.
@@ -398,20 +402,20 @@
398 circe-default-user user-real-login-name 402 circe-default-user user-real-login-name
399 circe-reduce-lurker-spam t 403 circe-reduce-lurker-spam t
400 circe-server-auto-join-default-type :after-auth) 404 circe-server-auto-join-default-type :after-auth)
401 (:bind "C-c C-p" 'circe-command-PART 405 (:bind "C-c C-p" #'circe-command-PART
402 "C-c C-t" '+circe-current-topic 406 "C-c C-t" #'+circe-current-topic
403 "C-l" 'lui-track-jump-to-indicator 407 "C-l" #'lui-track-jump-to-indicator
404 "C-<return>" '+circe-chat@set-prompt) 408 "C-<return>" #'+circe-chat@set-prompt)
405 409
406 (advice-add 'circe-command-PART :after '+circe-kill-buffer) 410 (advice-add #'circe-command-PART :after #'+circe-kill-buffer)
407 (advice-add 'circe-command-QUIT :after '+circe-quit@kill-buffer) 411 (advice-add #'circe-command-QUIT :after #'+circe-quit@kill-buffer)
408 (advice-add 'circe-command-GQUIT :after '+circe-gquit@kill-buffer) 412 (advice-add #'circe-command-GQUIT :after #'+circe-gquit@kill-buffer)
409 413
410 (:with-mode circe-chat-mode 414 (:with-mode circe-chat-mode
411 (:hook 'enable-circe-color-nicks 415 (:hook #'enable-circe-color-nicks
412 'enable-circe-new-day-notifier 416 #'enable-circe-new-day-notifier
413 '+circe-chat@set-prompt) 417 #'+circe-chat@set-prompt)
414 (:bind "C-c C-s" 'circe-command-SLAP)) 418 (:bind "C-c C-s" #'circe-command-SLAP))
415 419
416 (:with-mode lui-mode 420 (:with-mode lui-mode
417 (:option lui-fill-column (+ fill-column +circe-left-margin) 421 (:option lui-fill-column (+ fill-column +circe-left-margin)
@@ -427,9 +431,9 @@
427 1 lui-emphasis-face) 431 1 lui-emphasis-face)
428 (,(+lui-make-formatting-list-rx "/") 432 (,(+lui-make-formatting-list-rx "/")
429 1 lui-emphasis-face))) 433 1 lui-emphasis-face)))
430 (:hook 'visual-line-mode 434 (:hook #'visual-line-mode
431 'enable-lui-track 435 #'enable-lui-track
432 'visual-fill-column-mode) 436 #'visual-fill-column-mode)
433 (:local-set fringes-outside-margins t 437 (:local-set fringes-outside-margins t
434 right-margin-width (length lui-time-stamp-format) 438 right-margin-width (length lui-time-stamp-format)
435 scroll-margin 0 439 scroll-margin 0
@@ -446,8 +450,8 @@
446 '(circe-channel-mode . +circe-current-topic))) 450 '(circe-channel-mode . +circe-current-topic)))
447 451
448 (with-eval-after-load 'circe-color-nicks 452 (with-eval-after-load 'circe-color-nicks
449 (add-hook 'modus-themes-after-load-theme-hook 'circe-nick-color-reset)) 453 (add-hook 'modus-themes-after-load-theme-hook #'circe-nick-color-reset))
450 (add-hook 'kill-emacs-hook '+circe-quit-all@kill-emacs)) 454 (add-hook 'kill-emacs-hook #'+circe-quit-all@kill-emacs))
451 455
452(setup (:straight consult) 456(setup (:straight consult)
453 (:also-load +consult) 457 (:also-load +consult)
@@ -458,9 +462,9 @@
458 xref-show-definitions-function 'consult-xref 462 xref-show-definitions-function 'consult-xref
459 tab-always-indent 'complete 463 tab-always-indent 'complete
460 completion-in-region-function 'consult-completion-in-region) 464 completion-in-region-function 'consult-completion-in-region)
461 (advice-add 'register-preview :override 'consult-register-window) 465 (advice-add #'register-preview :override #'consult-register-window)
462 (advice-add 'completing-read-multiple :override 466 (advice-add #'completing-read-multiple :override
463 'consult-completing-read-multiple) 467 #'consult-completing-read-multiple)
464 (dolist (binding '(;; C-c bindings (mode-specific-map) 468 (dolist (binding '(;; C-c bindings (mode-specific-map)
465 ("C-c h" . consult-history) 469 ("C-c h" . consult-history)
466 ("C-c m" . consult-mode-command) 470 ("C-c m" . consult-mode-command)
@@ -531,8 +535,8 @@
531 (:option consult--regexp-compiler 'consult--orderless-regexp-compiler)))) 535 (:option consult--regexp-compiler 'consult--orderless-regexp-compiler))))
532 536
533(setup (:straight crux) 537(setup (:straight crux)
534 (:+key "C-o" 'crux-smart-open-line 538 (:+key "C-o" #'crux-smart-open-line
535 "C-x 4 t" 'crux-transpose-windows) 539 "C-x 4 t" #'crux-transpose-windows)
536 540
537 (el-patch-feature crux) 541 (el-patch-feature crux)
538 (with-eval-after-load 'crux 542 (with-eval-after-load 'crux
@@ -570,7 +574,7 @@ See also `crux-reopen-as-root-mode'."
570 "Display tooltips for the current word" t) 574 "Display tooltips for the current word" t)
571 (autoload 'global-dictionary-tooltip-mode "dictionary" 575 (autoload 'global-dictionary-tooltip-mode "dictionary"
572 "Enable/disable dictionary-tooltip-mode for all buffers" t) 576 "Enable/disable dictionary-tooltip-mode for all buffers" t)
573 (:hook 'reading-mode)) 577 (:hook #'reading-mode))
574 578
575(setup (:straight (discord 579(setup (:straight (discord
576 :host github 580 :host github
@@ -587,9 +591,9 @@ See also `crux-reopen-as-root-mode'."
587 elfeed-show-unique-buffers t 591 elfeed-show-unique-buffers t
588 elfeed-db-directory (sync/ "elfeed/db/" t)) 592 elfeed-db-directory (sync/ "elfeed/db/" t))
589 (:with-mode elfeed-show-mode 593 (:with-mode elfeed-show-mode
590 (:bind "SPC" '+elfeed-scroll-up-command 594 (:bind "SPC" #'+elfeed-scroll-up-command
591 "S-SPC" '+elfeed-scroll-down-command) 595 "S-SPC" #'+elfeed-scroll-down-command)
592 (:hook 'reading-mode))) 596 (:hook #'reading-mode)))
593 597
594(setup (:straight elfeed-org) 598(setup (:straight elfeed-org)
595 (:option rmh-elfeed-org-files (list (sync/ "elfeed/elfeed.org" t))) 599 (:option rmh-elfeed-org-files (list (sync/ "elfeed/elfeed.org" t)))
@@ -597,13 +601,13 @@ See also `crux-reopen-as-root-mode'."
597 601
598(setup (:straight embark) 602(setup (:straight embark)
599 (:option prefix-help-command 'embark-prefix-help-command) 603 (:option prefix-help-command 'embark-prefix-help-command)
600 (:+key "C-." 'embark-act 604 (:+key "C-." #'embark-act
601 "M-." 'embark-dwim 605 "M-." #'embark-dwim
602 "<f1> B" 'embark-bindings)) 606 "<f1> B" #'embark-bindings))
603 607
604(setup (:straight embark-consult) 608(setup (:straight embark-consult)
605 (:load-after consult embark) 609 (:load-after consult embark)
606 (add-hook 'embark-collect-mode-hook 'consult-preview-at-point-mode)) 610 (add-hook 'embark-collect-mode-hook #'consult-preview-at-point-mode))
607 611
608(setup (:straight eros) 612(setup (:straight eros)
609 (:hook-into emacs-lisp-mode 613 (:hook-into emacs-lisp-mode
@@ -623,7 +627,7 @@ See also `crux-reopen-as-root-mode'."
623 "XDG_CACHE_HOME"))) 627 "XDG_CACHE_HOME")))
624 628
625(setup (:straight expand-region) 629(setup (:straight expand-region)
626 (:+key "C-=" 'er/expand-region)) 630 (:+key "C-=" #'er/expand-region))
627 631
628(setup (:straight (frowny 632(setup (:straight (frowny
629 :host github 633 :host github
@@ -660,15 +664,15 @@ See also `crux-reopen-as-root-mode'."
660(setup (:straight helpful) 664(setup (:straight helpful)
661 (run-with-idle-timer 0.5 nil 665 (run-with-idle-timer 0.5 nil
662 'require 'helpful) 666 'require 'helpful)
663 (:+key "<f1> f" 'helpful-callable 667 (:+key "<f1> f" #'helpful-callable
664 "<f1> v" 'helpful-variable 668 "<f1> v" #'helpful-variable
665 "<f1> k" 'helpful-key 669 "<f1> k" #'helpful-key
666 "C-c C-d" 'helpful-at-point)) 670 "C-c C-d" #'helpful-at-point))
667 671
668(setup (:straight (hippie-completing-read 672(setup (:straight (hippie-completing-read
669 :host github 673 :host github
670 :repo "duckwork/hippie-completing-read")) 674 :repo "duckwork/hippie-completing-read"))
671 (:+key "M-/" 'hippie-completing-read)) 675 (:+key "M-/" #'hippie-completing-read))
672 676
673(setup (:straight hungry-delete) 677(setup (:straight hungry-delete)
674 (:option hungry-delete-chars-to-skip " \t" 678 (:option hungry-delete-chars-to-skip " \t"
@@ -713,7 +717,7 @@ See also `crux-reopen-as-root-mode'."
713 (isearch-mb-mode +1)) 717 (isearch-mb-mode +1))
714 718
715(setup (:straight lacarte) 719(setup (:straight lacarte)
716 (:+key "<f10>" 'lacarte-execute-menu-command)) 720 (:+key "<f10>" #'lacarte-execute-menu-command))
717 721
718(setup (:straight (lin :host gitlab :repo "protesilaos/lin")) 722(setup (:straight (lin :host gitlab :repo "protesilaos/lin"))
719 (require 'lin) 723 (require 'lin)
@@ -777,7 +781,6 @@ See also `crux-reopen-as-root-mode'."
777 (:also-load +org 781 (:also-load +org
778 ox-md) 782 ox-md)
779 (:option org-adapt-indentation nil 783 (:option org-adapt-indentation nil
780 org-agenda-skip-deadline-if-done t
781 org-archive-mark-done t 784 org-archive-mark-done t
782 org-catch-invisible-edits 'show-and-error 785 org-catch-invisible-edits 'show-and-error
783 org-clock-clocked-in-display 'mode-line 786 org-clock-clocked-in-display 'mode-line
@@ -822,18 +825,17 @@ See also `crux-reopen-as-root-mode'."
822 org-startup-truncated nil 825 org-startup-truncated nil
823 org-startup-with-inline-images t 826 org-startup-with-inline-images t
824 org-tags-column (- (- fill-column (length org-ellipsis)))) 827 org-tags-column (- (- fill-column (length org-ellipsis))))
825 (:bind "RET" '+org-return-dwim 828 (:bind "RET" #'+org-return-dwim
826 "<S-return>" '+org-table-copy-down 829 "<S-return>" #'+org-table-copy-down
827 "C-c C-l" '+org-insert-link-dwim 830 "C-c C-l" #'+org-insert-link-dwim
828 "C-c C-n" '+org-next-heading-widen 831 "C-c C-n" #'+org-next-heading-widen
829 "C-c C-p" '+org-previous-heading-widen) 832 "C-c C-p" #'+org-previous-heading-widen)
830 (:+leader "c" 'org-capture "C-c" 'org-capture 833 (:+leader "c" #'org-capture "C-c" #'org-capture)
831 "a" 'org-agenda "C-a" 'org-agenda) 834 (:local-hook before-save-hook #'+org-before-save@prettify-buffer)
832 (:local-hook before-save-hook '+org-before-save@prettify-buffer) 835 (advice-add #'org-delete-backward-char :override #'+org-delete-backward-char)
833 (advice-add 'org-delete-backward-char :override '+org-delete-backward-char)
834 (with-eval-after-load 'org 836 (with-eval-after-load 'org
835 (org-clock-persistence-insinuate) 837 (org-clock-persistence-insinuate)
836 (org-link-set-parameters "tel" :follow '+org-tel-open))) 838 (org-link-set-parameters "tel" :follow #'+org-tel-open)))
837 839
838(setup (:straight org-appear) 840(setup (:straight org-appear)
839 (:option org-appear-autoemphasis t 841 (:option org-appear-autoemphasis t
@@ -848,12 +850,12 @@ See also `crux-reopen-as-root-mode'."
848 (:hook-into org-mode)) 850 (:hook-into org-mode))
849 851
850(setup (:straight paredit) 852(setup (:straight paredit)
851 (:bind "DEL" 'paredit-backward-delete 853 (:bind "DEL" #'paredit-backward-delete
852 "C-<backspace>" 'paredit-backward-kill-word) 854 "C-<backspace>" #'paredit-backward-kill-word)
853 (:hook-into emacs-lisp-mode lisp-interaction-mode 855 (:hook-into emacs-lisp-mode lisp-interaction-mode
854 lisp-mode scheme-mode) 856 lisp-mode scheme-mode)
855 (:also-load eldoc) 857 (:also-load eldoc)
856 (eldoc-add-command 'paredit-backward-delete 'paredit-close-round)) 858 (eldoc-add-command #'paredit-backward-delete #'paredit-close-round))
857 859
858(setup (:straight paren-face) 860(setup (:straight paren-face)
859 (:hook-into emacs-lisp-mode 861 (:hook-into emacs-lisp-mode
@@ -872,7 +874,7 @@ See also `crux-reopen-as-root-mode'."
872 (:option shell-command-prompt "$ ") 874 (:option shell-command-prompt "$ ")
873 (:bind-into dired 875 (:bind-into dired
874 "M-!" 'shell-command+) 876 "M-!" 'shell-command+)
875 (:+key "M-!" 'shell-command+)) 877 (:+key "M-!" #'shell-command+))
876 878
877(setup (:straight sicp)) 879(setup (:straight sicp))
878 880
@@ -964,24 +966,24 @@ See also `crux-reopen-as-root-mode'."
964 (:option resize-mini-windows 'grow-only 966 (:option resize-mini-windows 'grow-only
965 vertico-count-format nil 967 vertico-count-format nil
966 vertico-cycle t) 968 vertico-cycle t)
967 (advice-add 'vertico-next :around '+vertico-ding-wrap) 969 (advice-add #'vertico-next :around #'+vertico-ding-wrap)
968 (when (boundp 'native-comp-deferred-compilation-deny-list) 970 (when (boundp 'native-comp-deferred-compilation-deny-list)
969 (add-to-list 'native-comp-deferred-compilation-deny-list "vertico")) 971 (add-to-list 'native-comp-deferred-compilation-deny-list "vertico"))
970 (vertico-mode +1) 972 (vertico-mode +1)
971 ;; Extensions 973 ;; Extensions
972 (:also-load vertico-directory) 974 (:also-load vertico-directory)
973 (:with-map vertico-map 975 (:with-map vertico-map
974 (:bind "RET" 'vertico-directory-enter 976 (:bind "RET" #'vertico-directory-enter
975 "DEL" 'vertico-directory-delete-char 977 "DEL" #'vertico-directory-delete-char
976 "M-DEL" 'vertico-directory-delete-word)) 978 "M-DEL" #'vertico-directory-delete-word))
977 (add-hook 'rfn-eshadow-update-overlay-hook 'vertico-directory-tidy)) 979 (add-hook 'rfn-eshadow-update-overlay-hook #'vertico-directory-tidy))
978 980
979(setup (:straight visual-fill-column) 981(setup (:straight visual-fill-column)
980 (:option visual-fill-column-center-text t 982 (:option visual-fill-column-center-text t
981 (append reading-modes) '(visual-fill-column-mode . +1)) 983 (append reading-modes) '(visual-fill-column-mode . +1))
982 (:hook 'visual-line-mode) 984 (:hook #'visual-line-mode)
983 (:hook-into org-mode) 985 (:hook-into org-mode)
984 (advice-add 'text-scale-adjust :after 'visual-fill-column-adjust)) 986 (advice-add #'text-scale-adjust :after #'visual-fill-column-adjust))
985 987
986(setup (:straight vlf) 988(setup (:straight vlf)
987 (:require vlf-setup)) 989 (:require vlf-setup))