Add :quit local macro

2 files changed, 26 insertions, 21 deletions

@@ -1152,7 +1152,7 @@ They are completed by \"M-x TAB\" only in Tramp debug buffers."
     (setf (alist-get 'consult-notmuch vertico-multiform-commands) '(buffer)
           (alist-get 'consult-notmuch-tree vertico-multiform-commands) '(buffer))))
 
-(setup (:straight corfu)
+(setup (:straight corfu) (:quit "Turns out, I actually like minibuffer completion better.")
   (+with-ensure-after-init
     (corfu-global-mode +1)))
 
@@ -1399,16 +1399,16 @@ See also `crux-reopen-as-root-mode'."
                    :host github :repo "magit/git-modes"))
   (:require git-modes))
 
-;; (setup (:straight god-mode)
-;;   (setq god-mode-enable-function-key-translation nil)
-;;   (:require god-mode
-;;             +god-mode)
-;;   (:+key "C-M-g" #'god-mode-all)
-;;   (:with-mode god-local-mode
-;;     (:bind "i" #'+god-mode-insert
-;;            "a" nil)))
+(setup (:straight god-mode) (:quit "I could never get the hang of this.")
+  (setq god-mode-enable-function-key-translation nil)
+  (:require god-mode
+            +god-mode)
+  (:+key "C-M-g" #'god-mode-all)
+  (:with-mode god-local-mode
+    (:bind "i" #'+god-mode-insert
+           "a" nil)))
 
-(setup (:straight helpful)
+(setup (:straight helpful) (:quit "Trying `electric-help' instead.")
   (:+key "<f1> f" #'helpful-callable
          "<f1> v" #'helpful-variable
          "<f1> k" #'helpful-key
@@ -1594,13 +1594,13 @@ See also `crux-reopen-as-root-mode'."
          #'hl-line-mode
          #'lin-mode))
 
-;; (setup (:straight md4rd)
-;;   ;; `md4rd' is ... a bit janky, tbh.  But I'm including this here so I have it.
-;;   ;; TODO: enable opening Reddit links in md4rd
-;;   (:also-load _md4rd)
-;;   (defalias 'reddit 'md4rd "Browse Reddit.")
-;;   (with-eval-after-load 'md4rd
-;;     (run-with-timer 0 (* 60 59) 'md4rd-refresh-login)))
+(setup (:straight md4rd) (:quit "Janky a.f.")
+  ;; `md4rd' is ... a bit janky, tbh.  But I'm including this here so I have it.
+  ;; TODO: enable opening Reddit links in md4rd
+  (:also-load _md4rd)
+  (defalias 'reddit 'md4rd "Browse Reddit.")
+  (with-eval-after-load 'md4rd
+    (run-with-timer 0 (* 60 59) 'md4rd-refresh-login)))
 
 (setup (:straight minions)
   (minions-mode +1))
@@ -1896,10 +1896,10 @@ See also `crux-reopen-as-root-mode'."
 
 (setup (:straight unfill))
 
-;; (setup (:straight valign)
-;;   (:option valign-fancy-bar t)
-;;   (:hook-into org-mode
-;;               markdown-mode))
+(setup (:straight valign) (:quit "Doesn't work with narrowed tables.")
+  (:option valign-fancy-bar t)
+  (:hook-into org-mode
+              markdown-mode))
 
 (setup (:straight (vertico
                    :host github
@@ -113,6 +113,11 @@ replace itself with the RECIPE's package."
     :indent 1
     :shorthand #'+setup-straight-shorthand))
 
+(setup-define :quit
+  'setup-quit
+  :documentation "Quit the current `setup' form.
+Good for commenting.")
+
 
 ;;; Redefines of `setup' forms