Remove (:quit)-ed setup forms

1 files changed, 6 insertions, 36 deletions

@@ -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"))