From 434a23285ee71c59413404c6ce1dbf97a061af64 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Wed, 8 Jun 2022 01:57:45 +0100
Subject: doc:// links for browse-url

---
 init.el | 13 +++++++++++++
 1 file changed, 13 insertions(+)

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
-- 
cgit v1.2.3