From 309a34cea5a22d082fce87a1ecea378c41b17ff5 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Mon, 17 Jan 2022 17:12:34 -0600
Subject: Open local HTML files with `browse-url'

---
 lisp/+org.el | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'lisp')

diff --git a/lisp/+org.el b/lisp/+org.el
index 348ba6e..5869622 100644
--- a/lisp/+org.el
+++ b/lisp/+org.el
@@ -442,5 +442,15 @@ the deletion might narrow the column."
           (org-up-heading-all 1))
         (org-open-at-point arg)))))
 
+;;; Open local HTML files with `browse-url'
+
+(defun +org-open-html (file-path link-string)
+  "Open FILE-PATH with `browse-url'.
+This function is intended to use with `org-file-apps'.  See the
+documentation of that function for a description of the two
+arguments here, FILE-PATH and LINK-STRING."
+  (message "Opening %s (%s)..." file-path link-string)
+  (browse-url file-path))
+
 (provide '+org)
 ;;; +org.el ends here
-- 
cgit 1.4.1-21-gabe81