From b835fb6f9062aaf715eafc8d383958357bdc4baf Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Wed, 16 Feb 2022 23:06:12 -0600
Subject: Add :quit local macro

---
 init.el        | 42 +++++++++++++++++++++---------------------
 lisp/+setup.el |  5 +++++
 2 files changed, 26 insertions(+), 21 deletions(-)

diff --git a/init.el b/init.el
index e2c66b7..b8d365c 100644
--- a/init.el
+++ b/init.el
@@ -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
diff --git a/lisp/+setup.el b/lisp/+setup.el
index c77cb36..ec4c80b 100644
--- a/lisp/+setup.el
+++ b/lisp/+setup.el
@@ -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
 
-- 
cgit 1.4.1-21-gabe81