doc:// links for browse-url

1 files changed, 13 insertions, 0 deletions

diff --git a/init.el b/init.el
index 5c41129..f1772b5 100644
--- a/init.el
+++ b/init.el
@@ -1657,6 +1657,19 @@
   (jao-buffer-same-mode '(pdf-view-mode doc-view-mode)
                         #'jao-afio--goto-docs))
 
+;; doc:// links for browse-url
+(defun jao-open-doc-url (url &rest _)
+  (when (string-match "doc://\\([^?]+\\)\\(\\?.*\\)?" url)
+    (let ((file (match-string 1 url))
+          (page (when-let* ((qs (match-string 2 url))
+                            (_ (> (length qs) 1))
+                            (ps (url-parse-query-string (substring qs 1)))
+                            (pn (cadr (assoc "page" ps))))
+                  (string-to-number pn))))
+      (jao-open-doc (expand-file-name (concat "doc/" file) jao-org-dir) page))))
+
+(add-to-list 'browse-url-handlers (cons "^doc://.+" 'jao-open-doc-url))
+
 ;;;; epub
 (use-package nov
   :ensure t