summary refs log tree commit diff stats
path: root/init.el
diff options
context:
space:
mode:
authorCase Duckworth2021-08-14 12:40:52 -0500
committerCase Duckworth2021-08-14 12:40:52 -0500
commit4b3ebd99a0f0a3ea95e2d60c63d8d6f9273922e0 (patch)
tree453619319913fdadb9de9d40c015b543972b1dbd /init.el
parentUse `unfill' package and delete `kill-ring-save-unfilled' (diff)
downloademacs-4b3ebd99a0f0a3ea95e2d60c63d8d6f9273922e0.tar.gz
emacs-4b3ebd99a0f0a3ea95e2d60c63d8d6f9273922e0.zip
Implement `with-eval-after-loads' macro
Diffstat (limited to 'init.el')
-rw-r--r--init.el26
1 files changed, 12 insertions, 14 deletions
diff --git a/init.el b/init.el index 703dc56..4209a6b 100644 --- a/init.el +++ b/init.el
@@ -1009,15 +1009,14 @@ if ripgrep is installed, otherwise `consult-grep'."
1009 (:advise completing-read-multiple 1009 (:advise completing-read-multiple
1010 :filter-args #'crm-indicator)) 1010 :filter-args #'crm-indicator))
1011 1011
1012 (with-eval-after-load 'vertico 1012 (with-eval-after-loads (vertico consult)
1013 (with-eval-after-load 'consult 1013 (when (boundp 'consult-crm-map)
1014 (when (boundp 'consult-crm-map) 1014 (define-key consult-crm-map "\r" #'+vertico-crm-exit)
1015 (define-key consult-crm-map "\r" #'+vertico-crm-exit) 1015 (define-key consult-crm-map "\t" #'vertico-exit)
1016 (define-key consult-crm-map "\t" #'vertico-exit) 1016 (defun +vertico-crm-exit ()
1017 (defun +vertico-crm-exit () 1017 (interactive)
1018 (interactive) 1018 (run-at-time 0 nil #'vertico-exit)
1019 (run-at-time 0 nil #'vertico-exit) 1019 (funcall #'vertico-exit)))))
1020 (funcall #'vertico-exit))))))
1021 1020
1022(setup (:straight crux) 1021(setup (:straight crux)
1023 1022
@@ -1089,11 +1088,10 @@ if ripgrep is installed, otherwise `consult-grep'."
1089 #'which-key--hide-popup-ignore-command) 1088 #'which-key--hide-popup-ignore-command)
1090 embark-become-indicator embark-action-indicator) 1089 embark-become-indicator embark-action-indicator)
1091 1090
1092 (with-eval-after-load 'embark 1091 (with-eval-after-loads (embark consult)
1093 (with-eval-after-load 'consult 1092 (setup (:straight embark-consult)
1094 (setup (:straight embark-consult) 1093 (add-hook 'embark-collect-mode-hook
1095 (add-hook 'embark-collect-mode-hook 1094 #'consult-preview-at-point-mode))))
1096 #'consult-preview-at-point-mode)))))
1097 1095
1098(setup (:straight epithet) 1096(setup (:straight epithet)
1099 (add-hook 'Info-selection-hook #'epithet-rename-buffer) 1097 (add-hook 'Info-selection-hook #'epithet-rename-buffer)