1 files changed, 28 insertions, 0 deletions

@@ -0,0 +1,28 @@
+;;; acdw.web.el --- Web browsing and such -*- lexical-binding: t; -*-
+
+;;; Code:
+
+(defcustom +browse-url-other-safe-browser-functions nil
+  "Other safe browser functions."
+  :type '(repeat function))
+
+(defun +browse-url-browser-function-safe-p (f)
+  "Return t if F is a safe browser function."
+  (memq f (append +browse-url-other-safe-browser-functions
+                  (mapcar (lambda (i)
+                            (plist-get (cdr i) :value))
+                          (seq-filter (lambda (i)
+                                        (eq (car i) 'function-item))
+                                      (cdr (get 'browse-url-browser-function
+                                                'custom-type)))))))
+
+
+;;; Packages
+
+(use-package browse-url
+  :config
+  (put 'browse-url-browser-function 'safe-local-variable
+       '+browse-url-browser-function-safe-p))
+
+(provide 'acdw-web)
+;;; acdw-web.el ends here