From 5c02bbc592cdfb92352cd1c77cb25415b75a5b34 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Sun, 1 May 2022 09:21:39 -0500 Subject: Remove (:quit)-ed setup forms --- init.el | 42 ++++++------------------------------------ 1 file 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 @@ ;; "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")) -- cgit 1.4.1-21-gabe81