Remove (:quit)-ed setup forms
This commit is contained in:
parent
818cfc0380
commit
5c02bbc592
42
init.el
42
init.el
|
@ -46,7 +46,7 @@
|
|||
;; "C-x t" #'beginning-of-buffer
|
||||
;; "C-x e" #'end-of-buffer
|
||||
)
|
||||
;; ;; C-h deletes backward - see https://idiomdrottning.org/bad-emacs-defaults
|
||||
;; C-h deletes backward - see https://idiomdrottning.org/bad-emacs-defaults
|
||||
(global-set-key (kbd "C-h") 'delete-backward-char)
|
||||
(keyboard-translate ?\C-h ?\C-?)
|
||||
;; Faces
|
||||
|
@ -70,7 +70,7 @@
|
|||
(setup (:require +init)
|
||||
(:local-hook user-save-hook #'+init-sort)
|
||||
(+with-ensure-after-init
|
||||
(:hook #'+init-add-setup-to-imenu)))
|
||||
(:hook #'+init-add-setup-to-imenu)))
|
||||
|
||||
(setup (:require auth-source)
|
||||
(:option auth-sources (list 'default
|
||||
|
@ -85,7 +85,7 @@
|
|||
(setup (:require autoinsert)
|
||||
(setf (alist-get "\\.scm" auto-insert-alist nil nil #'equal)
|
||||
'(insert "#!/bin/sh\n#| -*- scheme -*-\nexec csi -s $0 \"$@\"\n|#\n"))
|
||||
;; (auto-insert-mode +1)
|
||||
;; (auto-insert-mode +1)
|
||||
)
|
||||
|
||||
(setup (:require cus-edit)
|
||||
|
@ -142,13 +142,13 @@
|
|||
(+ensure-after-init #'+key-global-mode))
|
||||
|
||||
(setup _work
|
||||
(+with-ensure-after-init
|
||||
(require '_work)))
|
||||
(+with-ensure-after-init
|
||||
(require '_work)))
|
||||
|
||||
(setup abbrev
|
||||
(:option abbrev-file-name (sync/ "abbrev.el")
|
||||
save-abbrevs 'silent)
|
||||
(with-eval-after-load 'user-save
|
||||
(with-eval-after-load 'user-save
|
||||
(:with-mode edit-abbrevs-mode
|
||||
(:hook #'turn-off-user-save-mode)))
|
||||
(:hook-into text-mode
|
||||
|
@ -301,33 +301,6 @@
|
|||
(with-eval-after-load 'frowny
|
||||
(add-to-list 'frowny-inhibit-modes #'dired-mode)))
|
||||
|
||||
(setup ecomplete (:quit)
|
||||
(:load-after org-contacts)
|
||||
(:also-load +ecomplete)
|
||||
(:option message-mail-alias-type 'ecomplete
|
||||
message-self-insert-commands nil
|
||||
message-expand-name-standard-ui t)
|
||||
(with-eval-after-load 'ecomplete
|
||||
(:option completion-category-defaults nil)
|
||||
(with-eval-after-load 'embark
|
||||
(:bind-into embark-email-map
|
||||
"+" #'+ecomplete-add-email
|
||||
"\\" #'+ecomplete-remove-email)))
|
||||
(add-hook 'message-sent-hook #'message-put-addresses-in-ecomplete))
|
||||
|
||||
(setup ehelp (:quit)
|
||||
;; Trying this instead of `helpful'
|
||||
(:global [help] 'ehelp-command
|
||||
[f1] 'ehelp-command)
|
||||
(with-eval-after-load 'vertico-multiform
|
||||
(dolist (cmd '(electric-describe-key
|
||||
electric-describe-mode
|
||||
electric-describe-syntax
|
||||
electric-describe-bindings
|
||||
electric-describe-function
|
||||
electric-describe-variable))
|
||||
(setf (alist-get cmd vertico-multiform-commands) nil))))
|
||||
|
||||
(setup eldoc
|
||||
(:hook-into elisp-mode
|
||||
lisp-interaction-mode))
|
||||
|
@ -2092,9 +2065,6 @@ See also `crux-reopen-as-root-mode'."
|
|||
(advice-add 'org-modern--update-label-face :override #'ignore)
|
||||
(:hook-into org-mode))
|
||||
|
||||
(setup (:straight org-sticky-header) (:quit)
|
||||
(:hook-into org-mode))
|
||||
|
||||
(setup (:straight (org-taskwise
|
||||
:host github
|
||||
:repo "duckwork/org-taskwise.el"))
|
||||
|
|
Loading…
Reference in New Issue