diff options
| author | Case Duckworth | 2022-01-03 15:18:05 -0600 |
|---|---|---|
| committer | Case Duckworth | 2022-01-03 15:18:05 -0600 |
| commit | 90ce86dc9cd1915c13adeb7e3ea4632f27fe3a5b (patch) | |
| tree | 45c7ace92c972123e8b1f8c29a9f28f535cb32d8 /lisp | |
| parent | Do pulse-location-mode /after/ init (diff) | |
| download | emacs-90ce86dc9cd1915c13adeb7e3ea4632f27fe3a5b.tar.gz emacs-90ce86dc9cd1915c13adeb7e3ea4632f27fe3a5b.zip | |
Fix browse-url urls
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/+browse-url.el | 9 |
1 files changed, 9 insertions, 0 deletions
| diff --git a/lisp/+browse-url.el b/lisp/+browse-url.el index 83f43cf..89b21e4 100644 --- a/lisp/+browse-url.el +++ b/lisp/+browse-url.el | |||
| @@ -74,6 +74,15 @@ named NAME, defaulting to \"+browse-url-with-VIEWER\", and the variable | |||
| 74 | "List of URL regexps to open with `browse-url-secondary-browser-function'." | 74 | "List of URL regexps to open with `browse-url-secondary-browser-function'." |
| 75 | :type '(repeat regexp)) | 75 | :type '(repeat regexp)) |
| 76 | 76 | ||
| 77 | ;; Because `browse-url-browser-function', when set to an alist, must be of the | ||
| 78 | ;; form (REGEXP . FUNCTION), I need to convert | ||
| 79 | ;; `+browse-url-secondary-browser-regexps' into a regexp. | ||
| 80 | |||
| 81 | (defun +browse-url-secondary-browser-regexps-combine () | ||
| 82 | "Combine `+browse-url-secondary-browser-regexps'. | ||
| 83 | This combines a list of regexps into one regexp." | ||
| 84 | (mapconcat #'identity +browse-url-secondary-browser-regexps "\\\|")) | ||
| 85 | |||
| 77 | ;;; URL Transformation Functions | 86 | ;;; URL Transformation Functions |
| 78 | ;; There's a lot of bad websites out there. Luckily we can easily redirect | 87 | ;; There's a lot of bad websites out there. Luckily we can easily redirect |
| 79 | ;; requests to more privacy-respecting, or just less javascript-ridden, sites | 88 | ;; requests to more privacy-respecting, or just less javascript-ridden, sites |