Replace ace-link with link-hint

1 files changed, 28 insertions, 27 deletions

@@ -1060,33 +1060,6 @@ like a dumbass."
   (autoload 'dired-async-mode "dired-async.el" nil t)
   (dired-async-mode +1))
 
-(setup (:straight ace-link)
-  (ace-link-setup-default)
-
-  ;; I use C-o here, even though it's usually `open-line', because it still
-  ;; matches the 'o' logic given by abo-abo (it's got the Open mnemonic and
-  ;; it's close to 'l'), and because I've given `open-line' to M-l --- I don't
-  ;; need `downcase-word' much, and when I do, I can use `downcase-dwim', bound
-  ;; to C-c l.
-  (let ((key (kbd "C-o")))
-    (with-eval-after-load 'erc
-      (autoload 'org-element-lineage "org-element")
-      (define-key erc-mode-map key #'ace-link))
-    (with-eval-after-load 'org
-      (define-key org-mode-map key #'ace-link-org))
-    (with-eval-after-load 'gnus
-      (define-key gnus-summary-mode-map key #'ace-link-gnus)
-      (define-key gnus-article-mode-map key #'ace-link-gnus))
-    (with-eval-after-load 'ert
-      (define-key ert-results-mode-map "o" #'ace-link-help))
-    (with-eval-after-load 'mastodon
-      (define-key mastodon-mode-map "o" #'ace-link-addr))
-    (with-eval-after-load 'circe
-      (define-key circe-channel-mode-map (kbd "C-o") #'ace-link-addr))
-    ;; And still everything else
-    (setq ace-link-fallback-function #'ace-link-addr)
-    (global-set-key key #'ace-link)))
-
 (setup (:straight alert)
   (:option alert-default-style (acdw/system
                                 (:home 'libnotify)
@@ -1539,6 +1512,34 @@ successive invocations."
 (setup (:straight-if ledger-mode
                      (executable-find "ledger")))
 
+(setup (:straight link-hint)
+  ;; Browse web URLs with a browser with a prefix argument.
+  (dolist (type '(gnus-w3m-image-url
+                  gnus-w3m-url
+                  markdown-link
+                  mu4e-attachment
+                  mu4e-url
+                  notmuch-hello
+                  nov-link
+                  org-link
+                  shr-url
+                  text-url
+                  w3m-link
+                  w3m-message-link))
+    (link-hint-define-type type
+      :open-secondary browse-url-secondary-browser-function))
+
+  (defun acdw/link-hint-open-link (arg)
+    "Open a link using `link-hint-open-link', but like `browse-url-at-point'.
+That is, a prefix argument (\\[universal-argument]) will open the
+browser defined in `browse-url-secondary-browser-function'."
+    (interactive "P")
+    (avy-with link-hint-open-link
+      (link-hint--one (if arg :open-secondary :open))))
+
+  (:global "C-c C-o" acdw/link-hint-open-link
+           "C-c o" acdw/link-hint-open-link))
+
 (setup (:straight lua-mode)
   (add-to-list 'auto-mode-alist  '("\\.lua\\'" . lua-mode)))