[emacs] Render ol in nov without numbering

1 files changed, 14 insertions, 0 deletions

diff --git a/emacs/.emacs.d/lisp/my/my-nov.el b/emacs/.emacs.d/lisp/my/my-nov.el
index 7cdb2a7..21df675 100644
--- a/emacs/.emacs.d/lisp/my/my-nov.el
+++ b/emacs/.emacs.d/lisp/my/my-nov.el
@@ -59,6 +59,20 @@ chapter title."
   (unless (equal (dom-attr dom 'epub:type) "pagebreak")
     (shr-generic dom)))
 
+;;; TODO: perhaps no indentation?
+(defun my-nov-render-ol (dom)
+  (shr-ensure-paragraph)
+  (let* ((attrs (dom-attributes dom))
+         (start-attr (alist-get 'start attrs))
+         ;; Start at 1 if there is no start attribute
+         ;; or if start can't be parsed as an integer.
+         (start-index (condition-case _
+                          (cl-parse-integer start-attr)
+                        (t nil)))
+         (shr-list-mode (or start-index 'ul))
+         (shr-internal-bullet `(" " . ,(shr-string-pixel-width " "))))
+    (shr-generic dom))
+  (shr-ensure-paragraph))
 
 (defun my-nov-find-file-with-ipath (file-name ipath)
   "Find epub file and goto IPATH.