summary refs log tree commit diff stats
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/+browse-url.el9
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'.
83This 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