diff options
-rw-r--r-- | init.el | 42 | ||||
-rw-r--r-- | 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." | |||
1152 | (setf (alist-get 'consult-notmuch vertico-multiform-commands) '(buffer) | 1152 | (setf (alist-get 'consult-notmuch vertico-multiform-commands) '(buffer) |
1153 | (alist-get 'consult-notmuch-tree vertico-multiform-commands) '(buffer)))) | 1153 | (alist-get 'consult-notmuch-tree vertico-multiform-commands) '(buffer)))) |
1154 | 1154 | ||
1155 | (setup (:straight corfu) | 1155 | (setup (:straight corfu) (:quit "Turns out, I actually like minibuffer completion better.") |
1156 | (+with-ensure-after-init | 1156 | (+with-ensure-after-init |
1157 | (corfu-global-mode +1))) | 1157 | (corfu-global-mode +1))) |
1158 | 1158 | ||
@@ -1399,16 +1399,16 @@ See also `crux-reopen-as-root-mode'." | |||
1399 | :host github :repo "magit/git-modes")) | 1399 | :host github :repo "magit/git-modes")) |
1400 | (:require git-modes)) | 1400 | (:require git-modes)) |
1401 | 1401 | ||
1402 | ;; (setup (:straight god-mode) | 1402 | (setup (:straight god-mode) (:quit "I could never get the hang of this.") |
1403 | ;; (setq god-mode-enable-function-key-translation nil) | 1403 | (setq god-mode-enable-function-key-translation nil) |
1404 | ;; (:require god-mode | 1404 | (:require god-mode |
1405 | ;; +god-mode) | 1405 | +god-mode) |
1406 | ;; (:+key "C-M-g" #'god-mode-all) | 1406 | (:+key "C-M-g" #'god-mode-all) |
1407 | ;; (:with-mode god-local-mode | 1407 | (:with-mode god-local-mode |
1408 | ;; (:bind "i" #'+god-mode-insert | 1408 | (:bind "i" #'+god-mode-insert |
1409 | ;; "a" nil))) | 1409 | "a" nil))) |
1410 | 1410 | ||
1411 | (setup (:straight helpful) | 1411 | (setup (:straight helpful) (:quit "Trying `electric-help' instead.") |
1412 | (:+key "<f1> f" #'helpful-callable | 1412 | (:+key "<f1> f" #'helpful-callable |
1413 | "<f1> v" #'helpful-variable | 1413 | "<f1> v" #'helpful-variable |
1414 | "<f1> k" #'helpful-key | 1414 | "<f1> k" #'helpful-key |
@@ -1594,13 +1594,13 @@ See also `crux-reopen-as-root-mode'." | |||
1594 | #'hl-line-mode | 1594 | #'hl-line-mode |
1595 | #'lin-mode)) | 1595 | #'lin-mode)) |
1596 | 1596 | ||
1597 | ;; (setup (:straight md4rd) | 1597 | (setup (:straight md4rd) (:quit "Janky a.f.") |
1598 | ;; ;; `md4rd' is ... a bit janky, tbh. But I'm including this here so I have it. | 1598 | ;; `md4rd' is ... a bit janky, tbh. But I'm including this here so I have it. |
1599 | ;; ;; TODO: enable opening Reddit links in md4rd | 1599 | ;; TODO: enable opening Reddit links in md4rd |
1600 | ;; (:also-load _md4rd) | 1600 | (:also-load _md4rd) |
1601 | ;; (defalias 'reddit 'md4rd "Browse Reddit.") | 1601 | (defalias 'reddit 'md4rd "Browse Reddit.") |
1602 | ;; (with-eval-after-load 'md4rd | 1602 | (with-eval-after-load 'md4rd |
1603 | ;; (run-with-timer 0 (* 60 59) 'md4rd-refresh-login))) | 1603 | (run-with-timer 0 (* 60 59) 'md4rd-refresh-login))) |
1604 | 1604 | ||
1605 | (setup (:straight minions) | 1605 | (setup (:straight minions) |
1606 | (minions-mode +1)) | 1606 | (minions-mode +1)) |
@@ -1896,10 +1896,10 @@ See also `crux-reopen-as-root-mode'." | |||
1896 | 1896 | ||
1897 | (setup (:straight unfill)) | 1897 | (setup (:straight unfill)) |
1898 | 1898 | ||
1899 | ;; (setup (:straight valign) | 1899 | (setup (:straight valign) (:quit "Doesn't work with narrowed tables.") |
1900 | ;; (:option valign-fancy-bar t) | 1900 | (:option valign-fancy-bar t) |
1901 | ;; (:hook-into org-mode | 1901 | (:hook-into org-mode |
1902 | ;; markdown-mode)) | 1902 | markdown-mode)) |
1903 | 1903 | ||
1904 | (setup (:straight (vertico | 1904 | (setup (:straight (vertico |
1905 | :host github | 1905 | :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." | |||
113 | :indent 1 | 113 | :indent 1 |
114 | :shorthand #'+setup-straight-shorthand)) | 114 | :shorthand #'+setup-straight-shorthand)) |
115 | 115 | ||
116 | (setup-define :quit | ||
117 | 'setup-quit | ||
118 | :documentation "Quit the current `setup' form. | ||
119 | Good for commenting.") | ||
120 | |||
116 | 121 | ||
117 | ;;; Redefines of `setup' forms | 122 | ;;; Redefines of `setup' forms |
118 | 123 | ||