2 files changed, 12 insertions, 0 deletions

@@ -490,6 +490,8 @@
                                          "|" "DONE(d!)")
                                (sequence "|" "CANCELED(k!)")
                                (sequence "MEETING(m)")))
+  (setf (alist-get "\\.x?html?\\'" org-file-apps nil nil #'equal)
+        #'+org-open-html)
   (:bind "RET" #'+org-return-dwim
          "<S-return>" #'+org-table-copy-down
          "C-c C-l" #'+org-insert-link-dwim
@@ -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