blob: c290a1fe708976e3be3e8e396557d66af15471c5 (
plain)
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
|
;;; browse-url-transform --- transform URLs
(defgroup browse-url-transform nil
"Transformations for urls passed to `browse-url'."
:group 'browse-url)
(defcustom browse-url-transform-alist nil
"Transformation rules for URLs.
The keys are regexps matching URLs, and the values are how to
transform them. The replacements will use match capture data."
:type '(alist :key-type (string :tag "URL regexp match")
:value-type (string :tag "URL regexp transformation")))
(defun browse-url-transform-url (url)
"Transform URL before passing it to `browse-url'."
(cl-loop with url = (substring-no-properties
(if (consp url) (car url) url))
for (regex . transformation) in browse-url-transform-alist
if (string-match regex url)
return (replace-match transformation nil nil url)
finally return url))
(defun browse-url-transform-advice (url &rest args)
"Advice to `browse-url' for URL transformations.
ARGS are passed on for further processing."
(apply #'list (and url (browse-url-transform-url url)) args))
(define-minor-mode browse-url-transform-mode
"Minor mode to transform a URL before passing it to `browse-url'.
This can be used to \"redirect\" URLs, for example from an
information silo to a more privacy-respecting one (e.g.,
\"twitter.com\" -> \"nitter.com\"), by adding advice to `browse-url'.
When using this mode, ensure that the transformed URL is also in
`browse-url-handlers', since that's what `browse-url' will see."
:lighter " Turl"
:keymap nil
:global t
(cond (browse-url-transform-mode
(advice-add 'browse-url :filter-args #'browse-url-transform-advice))
(:else
(advice-remove 'browse-url #'browse-url-transform-advice))))
(provide 'browse-url-transform)
;;; browse-url-transform.el ends here
|
