procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

New user option browse-url-transform-alist

Browse source 
* lisp/net/browse-url.el (browse-url-transform-alist): New user option.
(browse-url): Transform URL before loading if above new option is set.
This commit is contained in:
Stefan Kangas 2024-12-18 04:14:25 +01:00
parent 3d3c109460
commit 14a3dd6a30
2 changed files with 27 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
etc/NEWS
View file

@ -331,6 +331,12 @@ modal editing packages.
** Browse URL
*** New user option 'browse-url-transform-alist'.
This user option is an alist that allows transforming URLs before asking
a web browser to load them. For example, it could be used like this:
(add-to-list 'browse-url-transform-alist
'("www.google.com" . "www.duckduckgo.com"))
*** New function 'browse-url-qutebrowser' for the Qutebrowser.
For better integration with the Qutebrowser, set
'browse-url(-secondary)-browser-function' to 'browse-url-qutebrowser'.

21
lisp/net/browse-url.el
View file

@ -263,6 +263,23 @@ be used instead."
:version "31.1"
:type 'regexp)
(defcustom browse-url-transform-alist nil
"Alist of transformations to apply to URLs before loading it.
Each element has the form (ORIG . REPLACEMENT), where ORIG is a regular
expression and REPLACEMENT is the replacement text. Every element will
be tested in turn, allowing more than one transformation to be made.
Note that ORIG and REPLACEMENT are passed as arguments to
`string-match', so you can, for example, use match groups in ORIG and
backreferences in REPLACEMENT."
:type '(choice
(const :tag "None" nil)
(alist
:tag "Alist mapping from regexp to replacement"
:key-type (regexp :tag "Regexp")
:value-type (regexp :tag "Replacement")))
:version "31.1")
(defcustom browse-url-browser-display nil
"The X display for running the browser, if not same as Emacs's."
:type '(choice string (const :tag "Default" nil)))
@ -923,6 +940,10 @@ invert the prefix arg instead."
(interactive (browse-url-interactive-arg "URL: "))
(unless (called-interactively-p 'interactive)
(setq args (or args (list browse-url-new-window-flag))))
(when browse-url-transform-alist
(dolist (trans browse-url-transform-alist)
(when (string-match (car trans) url)
(setq url (replace-match (cdr trans) nil t url)))))
(when (and url-handler-mode
(not (file-name-absolute-p url))
(not (string-match "\\`[a-z]+:" url)))