Add :quit local macro
This commit is contained in:
parent
83de113f4e
commit
b835fb6f90
42
init.el
42
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
|
||||
|
|
|
@ -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
|
||||
|
||||
|
|
Loading…
Reference in New Issue