1 files changed, 56 insertions, 27 deletions

@@ -87,33 +87,62 @@ with the KEYWORD."
   +link-hint-open-secondary-types
   :multiple t)
 
-(defun +link-hint-open-secondary-setup (&optional types)
-  "Define the `:open-secondary' link-hint type for TYPES.
-If TYPES is nil, define it for `+link-hint-open-secondary-types'."
-  (dolist (type (or types +link-hint-open-secondary-types))
-    (link-hint-define-type type
-      :open-secondary browse-url-secondary-browser-function
-      :open-secondary-multiple t)))
-
-(defun +link-hint-open-secondary ()
-  "Open a link in the secondary browser."
-  (interactive)
-  (avy-with link-hint-open-link
-    (link-hint--one :open-secondary)))
-
-(defun +link-hint-open-chrome-setup (&optional types)
-  "Define the `:open-chrome' link-hint type for TYPES.
-If TYPES is nil, define it for `+link-hint-open-secondary-types'."
-  (dolist (type (or types +link-hint-open-secondary-types))
-    (link-hint-define-type type
-      :open-chrome #'browse-url-chrome
-      :open-chrome-multiple t)))
-
-(defun +link-hint-open-chrome ()
-  "Open a link with chrome."
-  (interactive)
-  (avy-with link-hint-open-link
-    (link-hint--one :open-chrome)))
+(progn
+  (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 :download
+      (function +browse-url-download)
+      :download-multiple t))
+  (defun +link-hint-open:download nil "Download a link to `eww-download-directory'.
+
+Defined by `+link-hint-define'."
+         (interactive)
+         (avy-with link-hint-open-link
+           (link-hint--one :download)))
+  (defun +link-hint-open-multiple:download nil "Open multiple links with `+link-hint-open:download'.
+
+Defined by `+link-hint-define'."
+         (avy-with link-hint-open-multiple-links
+           (link-hint--multiple :download)))
+  (defun +link-hint-open-all:download nil "Open all visible links with `+link-hint-open:download'.
+
+Defined by `+link-hint-define'."
+         (avy-with link-hint-open-all-links
+           (link-hint--all :download))))
+
+;; (defun +link-hint-open-secondary-setup (&optional types)
+;;   "Define the `:open-secondary' link-hint type for TYPES.
+;; If TYPES is nil, define it for `+link-hint-open-secondary-types'."
+;;   (dolist (type (or types +link-hint-open-secondary-types))
+;;     (link-hint-define-type type
+;;       :open-secondary browse-url-secondary-browser-function
+;;       :open-secondary-multiple t)))
+
+;; (defun +link-hint-open-secondary ()
+;;   "Open a link in the secondary browser."
+;;   (interactive)
+;;   (avy-with link-hint-open-link
+;;     (link-hint--one :open-secondary)))
+
+(+link-hint-define-keyword :chrome #'browse-url-chrome
+  "Open a link with `browse-url-chrome'."
+  +link-hint-open-secondary-types
+  :multiple t)
+
+;; (defun +link-hint-open-chrome-setup (&optional types)
+;;   "Define the `:open-chrome' link-hint type for TYPES.
+;; If TYPES is nil, define it for `+link-hint-open-secondary-types'."
+;;   (dolist (type (or types +link-hint-open-secondary-types))
+;;     (link-hint-define-type type
+;;       :open-chrome #'browse-url-chrome
+;;       :open-chrome-multiple t)))
+
+;; (defun +link-hint-open-chrome ()
+;;   "Open a link with chrome."
+;;   (interactive)
+;;   (avy-with link-hint-open-link
+;;     (link-hint--one :open-chrome)))
 
 (defun +link-hint-open-link (prefix)
   "Open a link.