diff options
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 |