1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
|
;;; +link-hint.el -*- lexical-binding: t; -*-
;;; Code:
(require 'link-hint)
(defgroup +link-hint nil
"Extra customizations for `link-hint'."
:group 'link-hint)
(defcustom +link-hint-open-secondary-types '(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 types to define `:open-secondary' for.")
(defvar +link-hint-map (make-sparse-keymap)
"Keymap for `link-hint' functionality.")
(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)))
;; (cl-defmacro +link-hint-add-type (keyword )
;; "Define link-hint type KEYWORD to operate on TYPES.
;; If TYPES is nil or absent, define KEYWORD for all
;; `link-hint-types'."
;; (let (forms)
;; (dolist (type (or types link-hint-types))
;; (push `(link-hint-define-type ,type ,keyword ,function) forms))
;; (push `(defun ,(intern (format "+link-hint%s" ,keyword))
;; ))))
(defun +link-hint-open-link (prefix)
"Open a link.
Without a PREFIX, open using `browse-url-browser-function'; with
a PREFIX, use `browse-url-secondary-browser-function'."
(interactive "P")
(avy-with link-hint-open-link
(link-hint--one (if prefix :open-secondary :open))))
(defun +link-hint-open-multiple-links (prefix)
"Open multiple links.
Without a PREFIX, open using `browse-url-browser-function'; with
a PREFIX, use `browse-url-secondary-browser-function'."
(interactive "P")
(avy-with link-hint-open-multiple-links
(link-hint--one (if prefix :open-secondary :open))))
(defun +link-hint-open-all-links (prefix)
"Open all visible links.
Without a PREFIX, open using `browse-url-browser-function'; with
a PREFIX, use `browse-url-secondary-browser-function'."
(interactive "P")
(avy-with link-hint-open-all-links
(link-hint--one (if prefix :open-secondary :open))))
;;; Pocket-reader.el integration
(defun +link-hint-pocket-add-setup (&optional types)
"Define the `:pocket-add' link-hint type for TYPES.
If TYPES is nil, define it for `link-hint-types'."
(dolist (type (or types link-hint-types))
(link-hint-define-type type
:pocket-add #'pocket-reader-generic-add-link
:pocket-add-multiple t)))
(defun +link-hint-pocket-add ()
"Add a link to the Pocket reader."
(interactive)
(avy-with link-hint-open-link
(link-hint--one :pocket-add)))
(provide '+link-hint)
;;; +link-hint.el ends here
|
