gotta go
This commit is contained in:
Case Duckworth 2021-09-15 17:34:20 -05:00
parent cbe051fd63
commit 4f2b5439b9
1 changed files with 23 additions and 6 deletions

29
init.el
View File

@ -1067,7 +1067,7 @@ specific to most general, they are these:
(:with-feature flyspell
(:bind "C-." #'flyspell-correct-wrapper
"<f7>" #'acdw/flyspell-correct-f7)
(:unbind "C-," "C-." "C-M-i")))
(:unbind "C-;" "C-," "C-." "C-M-i")))
(setup (:straight-if forge
(acdw/system :home))
@ -1309,9 +1309,26 @@ specific to most general, they are these:
w3m-link
w3m-message-link))
(link-hint-define-type type
:open-secondary browse-url-secondary-browser-function))
:open-secondary browse-url-secondary-browser-function
:open-secondary-multiple t))
(:option link-hint-avy-style 'at)
(defun acdw/link-hint-open-all-links (prefix)
"Open all visible links.
When PREFIX is non-nil, open links with
`browse-url-secondary-browser-function'."
(interactive "P")
(avy-with link-hint-open-all-links
(link-hint--all (if prefix :open-secondary :open))))
(defun acdw/link-hint-open-multiple-links (prefix)
"Use `avy' to open multiple visible links at once.
When PREFIX is non-nil, open links with
`browse-url-secondary-browser-function'."
(interactive "P")
(avy-with link-hint-open-multiple-links
(link-hint--multiple (if prefix :open-secondary :open))))
(:option link-hint-avy-style 'post)
(:global "C-;"
(defun acdw/link-hint-open-link (arg)
"Open a link using `link-hint-open-link', prefix-aware.
@ -1663,9 +1680,9 @@ browser defined in `browse-url-secondary-browser-function'."
(setup (:straight powerthesaurus)
(:global "C-c l t" #'powerthesaurus-lookup-word-dwim))
(setup (:straight prism)
(dolist (mode lispy-modes)
(add-hook (intern (format "%s-hook" mode)) #'prism-mode)))
;; (setup (:straight prism)
;; (dolist (mode lispy-modes)
;; (add-hook (intern (format "%s-hook" mode)) #'prism-mode)))
(setup prog
(:option show-paren-delay 0