From f5d7181e0ce7fd8af713930a960d1d7af99cb7bc Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Fri, 4 Jul 2025 09:53:01 +1000 Subject: [emacs] Render ol in nov without numbering --- emacs/.emacs.d/lisp/my/my-nov.el | 14 ++++++++++++++ 1 file changed, 14 insertions(+) (limited to 'emacs/.emacs.d/lisp/my') 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. -- cgit v1.2.3