about summary refs log tree commit diff stats
path: root/lisp
diff options
context:
space:
mode:
authorCase Duckworth2022-01-03 15:18:05 -0600
committerCase Duckworth2022-01-03 15:18:05 -0600
commit90ce86dc9cd1915c13adeb7e3ea4632f27fe3a5b (patch)
tree45c7ace92c972123e8b1f8c29a9f28f535cb32d8 /lisp
parentDo pulse-location-mode /after/ init (diff)
downloademacs-90ce86dc9cd1915c13adeb7e3ea4632f27fe3a5b.tar.gz
emacs-90ce86dc9cd1915c13adeb7e3ea4632f27fe3a5b.zip
Fix browse-url urls
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