summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2022-02-16 23:06:12 -0600
committerCase Duckworth2022-02-16 23:10:51 -0600
commitb835fb6f9062aaf715eafc8d383958357bdc4baf (patch)
tree6950b1aae30bb05f0a34fbe0dda75324a4f79ac3
parentAdd bunches of tab-bar stuff (diff)
downloademacs-b835fb6f9062aaf715eafc8d383958357bdc4baf.tar.gz
emacs-b835fb6f9062aaf715eafc8d383958357bdc4baf.zip
Add :quit local macro
-rw-r--r--init.el42
-rw-r--r--lisp/+setup.el5
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.
119Good for commenting.")
120
116 121
117;;; Redefines of `setup' forms 122;;; Redefines of `setup' forms
118 123