[elpa] externals/org-remark 85bbee122f 02/67: feat: add a new file for nov.el support (WIP) #49

[ELPA Syncer]

branch: externals/org-remark
commit 85bbee122f5a35fdbd9f899489cb0bebc49d05fc
Author: Noboru Ota <me@nobiot.com>
Commit: Noboru Ota <me@nobiot.com>

    feat: add a new file for nov.el support (WIP) #49
---
 org-remark-nov.el | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)

diff --git a/org-remark-nov.el b/org-remark-nov.el
new file mode 100644
index 0000000000..7854d884b9
--- /dev/null
+++ b/org-remark-nov.el
@@ -0,0 +1,23 @@
+;; -*- lexical-binding: t; -*-
+
+;; compatibility with org-noter
+(defun org-remark-get-epub-source ()
+  "Returns the path of the epub source from which the present session is 
initiated."
+  (when (eq major-mode 'nov-mode)
+    (concat
+     (file-name-nondirectory nov-file-name)
+     "/"
+     (file-name-base (cdr (aref nov-documents nov-documents-index))))))
+
+(defun org-remark-nov-link (_filname)
+  ;; Assume the point is on the highlight in source epub buffer.
+  (when (eq major-mode 'nov-mode)
+    (org-store-link nil)))
+
+(add-hook 'org-remark-source-find-file-name-functions 
#'org-remark-get-epub-source)
+(add-hook 'org-remark-highlight-link-to-source-functions #'org-remark-nov-link)
+(add-hook 'nov-post-html-render-hook #'org-remark-highlights-load)
+
+;;(defun org-remark-housekeep-before-render ()
+;;  (setq org-remark-highlights nil))
+;;(add-hook 'nov-pre-html-render-hook #'org-remark-housekeep-before-render)