diff options
-rw-r--r-- | init.el | 29 |
1 files changed, 23 insertions, 6 deletions
diff --git a/init.el b/init.el index 9b2718b..4a538f1 100644 --- a/init.el +++ b/init.el | |||
@@ -1067,7 +1067,7 @@ specific to most general, they are these: | |||
1067 | (:with-feature flyspell | 1067 | (:with-feature flyspell |
1068 | (:bind "C-." #'flyspell-correct-wrapper | 1068 | (:bind "C-." #'flyspell-correct-wrapper |
1069 | "<f7>" #'acdw/flyspell-correct-f7) | 1069 | "<f7>" #'acdw/flyspell-correct-f7) |
1070 | (:unbind "C-," "C-." "C-M-i"))) | 1070 | (:unbind "C-;" "C-," "C-." "C-M-i"))) |
1071 | 1071 | ||
1072 | (setup (:straight-if forge | 1072 | (setup (:straight-if forge |
1073 | (acdw/system :home)) | 1073 | (acdw/system :home)) |
@@ -1309,9 +1309,26 @@ specific to most general, they are these: | |||
1309 | w3m-link | 1309 | w3m-link |
1310 | w3m-message-link)) | 1310 | w3m-message-link)) |
1311 | (link-hint-define-type type | 1311 | (link-hint-define-type type |
1312 | :open-secondary browse-url-secondary-browser-function)) | 1312 | :open-secondary browse-url-secondary-browser-function |
1313 | :open-secondary-multiple t)) | ||
1313 | 1314 | ||
1314 | (:option link-hint-avy-style 'at) | 1315 | (defun acdw/link-hint-open-all-links (prefix) |
1316 | "Open all visible links. | ||
1317 | When PREFIX is non-nil, open links with | ||
1318 | `browse-url-secondary-browser-function'." | ||
1319 | (interactive "P") | ||
1320 | (avy-with link-hint-open-all-links | ||
1321 | (link-hint--all (if prefix :open-secondary :open)))) | ||
1322 | |||
1323 | (defun acdw/link-hint-open-multiple-links (prefix) | ||
1324 | "Use `avy' to open multiple visible links at once. | ||
1325 | When PREFIX is non-nil, open links with | ||
1326 | `browse-url-secondary-browser-function'." | ||
1327 | (interactive "P") | ||
1328 | (avy-with link-hint-open-multiple-links | ||
1329 | (link-hint--multiple (if prefix :open-secondary :open)))) | ||
1330 | |||
1331 | (:option link-hint-avy-style 'post) | ||
1315 | (:global "C-;" | 1332 | (:global "C-;" |
1316 | (defun acdw/link-hint-open-link (arg) | 1333 | (defun acdw/link-hint-open-link (arg) |
1317 | "Open a link using `link-hint-open-link', prefix-aware. | 1334 | "Open a link using `link-hint-open-link', prefix-aware. |
@@ -1663,9 +1680,9 @@ browser defined in `browse-url-secondary-browser-function'." | |||
1663 | (setup (:straight powerthesaurus) | 1680 | (setup (:straight powerthesaurus) |
1664 | (:global "C-c l t" #'powerthesaurus-lookup-word-dwim)) | 1681 | (:global "C-c l t" #'powerthesaurus-lookup-word-dwim)) |
1665 | 1682 | ||
1666 | (setup (:straight prism) | 1683 | ;; (setup (:straight prism) |
1667 | (dolist (mode lispy-modes) | 1684 | ;; (dolist (mode lispy-modes) |
1668 | (add-hook (intern (format "%s-hook" mode)) #'prism-mode))) | 1685 | ;; (add-hook (intern (format "%s-hook" mode)) #'prism-mode))) |
1669 | 1686 | ||
1670 | (setup prog | 1687 | (setup prog |
1671 | (:option show-paren-delay 0 | 1688 | (:option show-paren-delay 0 |