diff options
| author | Case Duckworth | 2022-01-17 17:12:34 -0600 |
|---|---|---|
| committer | Case Duckworth | 2022-01-17 17:12:34 -0600 |
| commit | 309a34cea5a22d082fce87a1ecea378c41b17ff5 (patch) | |
| tree | 6f09c3921dff7af029d04686f4127f0ce1c653f4 /lisp | |
| parent | So! Many! Changes!! (diff) | |
| download | emacs-309a34cea5a22d082fce87a1ecea378c41b17ff5.tar.gz emacs-309a34cea5a22d082fce87a1ecea378c41b17ff5.zip | |
Open local HTML files with `browse-url'
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/+org.el | 10 |
1 files changed, 10 insertions, 0 deletions
| 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." | |||
| 442 | (org-up-heading-all 1)) | 442 | (org-up-heading-all 1)) |
| 443 | (org-open-at-point arg))))) | 443 | (org-open-at-point arg))))) |
| 444 | 444 | ||
| 445 | ;;; Open local HTML files with `browse-url' | ||
| 446 | |||
| 447 | (defun +org-open-html (file-path link-string) | ||
| 448 | "Open FILE-PATH with `browse-url'. | ||
| 449 | This function is intended to use with `org-file-apps'. See the | ||
| 450 | documentation of that function for a description of the two | ||
| 451 | arguments here, FILE-PATH and LINK-STRING." | ||
| 452 | (message "Opening %s (%s)..." file-path link-string) | ||
| 453 | (browse-url file-path)) | ||
| 454 | |||
| 445 | (provide '+org) | 455 | (provide '+org) |
| 446 | ;;; +org.el ends here | 456 | ;;; +org.el ends here |