about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2022-05-01 09:21:39 -0500
committerCase Duckworth2022-05-01 09:21:39 -0500
commit5c02bbc592cdfb92352cd1c77cb25415b75a5b34 (patch)
treed25eed0f6d3d78979f5fc0bec1f37aa659059d21
parentReturn point to the same point relative of defun in +init-sort (diff)
downloademacs-5c02bbc592cdfb92352cd1c77cb25415b75a5b34.tar.gz
emacs-5c02bbc592cdfb92352cd1c77cb25415b75a5b34.zip
Remove (:quit)-ed setup forms
-rw-r--r--init.el42
1 files changed, 6 insertions, 36 deletions
diff --git a/init.el b/init.el index 26a1ae5..a19b517 100644 --- a/init.el +++ b/init.el
@@ -46,7 +46,7 @@
46 ;; "C-x t" #'beginning-of-buffer 46 ;; "C-x t" #'beginning-of-buffer
47 ;; "C-x e" #'end-of-buffer 47 ;; "C-x e" #'end-of-buffer
48 ) 48 )
49 ;; ;; C-h deletes backward - see https://idiomdrottning.org/bad-emacs-defaults 49 ;; C-h deletes backward - see https://idiomdrottning.org/bad-emacs-defaults
50 (global-set-key (kbd "C-h") 'delete-backward-char) 50 (global-set-key (kbd "C-h") 'delete-backward-char)
51 (keyboard-translate ?\C-h ?\C-?) 51 (keyboard-translate ?\C-h ?\C-?)
52 ;; Faces 52 ;; Faces
@@ -70,7 +70,7 @@
70(setup (:require +init) 70(setup (:require +init)
71 (:local-hook user-save-hook #'+init-sort) 71 (:local-hook user-save-hook #'+init-sort)
72 (+with-ensure-after-init 72 (+with-ensure-after-init
73 (:hook #'+init-add-setup-to-imenu))) 73 (:hook #'+init-add-setup-to-imenu)))
74 74
75(setup (:require auth-source) 75(setup (:require auth-source)
76 (:option auth-sources (list 'default 76 (:option auth-sources (list 'default
@@ -85,7 +85,7 @@
85(setup (:require autoinsert) 85(setup (:require autoinsert)
86 (setf (alist-get "\\.scm" auto-insert-alist nil nil #'equal) 86 (setf (alist-get "\\.scm" auto-insert-alist nil nil #'equal)
87 '(insert "#!/bin/sh\n#| -*- scheme -*-\nexec csi -s $0 \"$@\"\n|#\n")) 87 '(insert "#!/bin/sh\n#| -*- scheme -*-\nexec csi -s $0 \"$@\"\n|#\n"))
88;; (auto-insert-mode +1) 88 ;; (auto-insert-mode +1)
89 ) 89 )
90 90
91(setup (:require cus-edit) 91(setup (:require cus-edit)
@@ -142,13 +142,13 @@
142 (+ensure-after-init #'+key-global-mode)) 142 (+ensure-after-init #'+key-global-mode))
143 143
144(setup _work 144(setup _work
145 (+with-ensure-after-init 145 (+with-ensure-after-init
146 (require '_work))) 146 (require '_work)))
147 147
148(setup abbrev 148(setup abbrev
149 (:option abbrev-file-name (sync/ "abbrev.el") 149 (:option abbrev-file-name (sync/ "abbrev.el")
150 save-abbrevs 'silent) 150 save-abbrevs 'silent)
151(with-eval-after-load 'user-save 151 (with-eval-after-load 'user-save
152 (:with-mode edit-abbrevs-mode 152 (:with-mode edit-abbrevs-mode
153 (:hook #'turn-off-user-save-mode))) 153 (:hook #'turn-off-user-save-mode)))
154 (:hook-into text-mode 154 (:hook-into text-mode
@@ -301,33 +301,6 @@
301 (with-eval-after-load 'frowny 301 (with-eval-after-load 'frowny
302 (add-to-list 'frowny-inhibit-modes #'dired-mode))) 302 (add-to-list 'frowny-inhibit-modes #'dired-mode)))
303 303
304(setup ecomplete (:quit)
305 (:load-after org-contacts)
306 (:also-load +ecomplete)
307 (:option message-mail-alias-type 'ecomplete
308 message-self-insert-commands nil
309 message-expand-name-standard-ui t)
310 (with-eval-after-load 'ecomplete
311 (:option completion-category-defaults nil)
312 (with-eval-after-load 'embark
313 (:bind-into embark-email-map
314 "+" #'+ecomplete-add-email
315 "\\" #'+ecomplete-remove-email)))
316 (add-hook 'message-sent-hook #'message-put-addresses-in-ecomplete))
317
318(setup ehelp (:quit)
319 ;; Trying this instead of `helpful'
320 (:global [help] 'ehelp-command
321 [f1] 'ehelp-command)
322 (with-eval-after-load 'vertico-multiform
323 (dolist (cmd '(electric-describe-key
324 electric-describe-mode
325 electric-describe-syntax
326 electric-describe-bindings
327 electric-describe-function
328 electric-describe-variable))
329 (setf (alist-get cmd vertico-multiform-commands) nil))))
330
331(setup eldoc 304(setup eldoc
332 (:hook-into elisp-mode 305 (:hook-into elisp-mode
333 lisp-interaction-mode)) 306 lisp-interaction-mode))
@@ -2092,9 +2065,6 @@ See also `crux-reopen-as-root-mode'."
2092 (advice-add 'org-modern--update-label-face :override #'ignore) 2065 (advice-add 'org-modern--update-label-face :override #'ignore)
2093 (:hook-into org-mode)) 2066 (:hook-into org-mode))
2094 2067
2095(setup (:straight org-sticky-header) (:quit)
2096 (:hook-into org-mode))
2097
2098(setup (:straight (org-taskwise 2068(setup (:straight (org-taskwise
2099 :host github 2069 :host github
2100 :repo "duckwork/org-taskwise.el")) 2070 :repo "duckwork/org-taskwise.el"))