From 90ce86dc9cd1915c13adeb7e3ea4632f27fe3a5b Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Mon, 3 Jan 2022 15:18:05 -0600
Subject: Fix browse-url urls

---
 lisp/+browse-url.el | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'lisp/+browse-url.el')

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
   "List of URL regexps to open with `browse-url-secondary-browser-function'."
   :type '(repeat regexp))
 
+;; Because `browse-url-browser-function', when set to an alist, must be of the
+;; form (REGEXP . FUNCTION), I need to convert
+;; `+browse-url-secondary-browser-regexps' into a regexp.
+
+(defun +browse-url-secondary-browser-regexps-combine ()
+  "Combine `+browse-url-secondary-browser-regexps'.
+This combines a list of regexps into one regexp."
+  (mapconcat #'identity +browse-url-secondary-browser-regexps "\\\|"))
+
 ;;; URL Transformation Functions
 ;; There's a lot of bad websites out there.  Luckily we can easily redirect
 ;; requests to more privacy-respecting, or just less javascript-ridden, sites
-- 
cgit 1.4.1-21-gabe81