|
|
@@ -3,7 +3,7 @@
|
|
|
;; Copyright (c) 2025-2026 Fred Gilham
|
|
|
|
|
|
;; Author: Fred Gilham <fmgilham@gmail.com>
|
|
|
-;; Version: 1.0.0
|
|
|
+;; Version: 1.1.0
|
|
|
;; Keywords: files, text, hypermedia
|
|
|
;; Package-Requires: ((emacs "29.1") cl-lib dom shr)
|
|
|
;; URL: https://gitbot.homedns.org/fred/bible-mode
|
|
|
@@ -1243,9 +1243,13 @@ In processing subnodes, each case will prepend a space if it needs it."
|
|
|
(insert "\t"))
|
|
|
((dom-attr subnode 'level)
|
|
|
(let ((indent (string-to-number (alist-get 'level attributes))))
|
|
|
- (cond ((= indent 1) (insert "\t"))
|
|
|
- ((= indent 2) (insert "\n\t\t"))))))))
|
|
|
- ('divinename (bible-handle-divine-name subnode))
|
|
|
+ ;; REVIEW: Some modules use `level' tag but
|
|
|
+ ;; not in a consistent way. (FMG 7-Mar-2026)
|
|
|
+ (cond ((= indent 1) (insert " "))
|
|
|
+ ((= indent 2) (bible-new-line) (insert "\t\t"))))))))
|
|
|
+ ;; REVIEW: divine name handling doesn't seem to work the same
|
|
|
+ ;; with all modules.
|
|
|
+ ('divinename (bible-handle-divine-name subnode))
|
|
|
;; Some modules use this for line breaks and such.
|
|
|
('milestone (when (equal (dom-attr subnode 'type) "line") (bible-new-line)))
|
|
|
('br (bible-new-line))
|
|
|
@@ -1366,11 +1370,8 @@ If optional argument VERSE is supplied, set cursor at verse."
|
|
|
|
|
|
(defun bible--list-biblical-modules ()
|
|
|
"Return a list of accessible Biblical Text modules."
|
|
|
- (let ((text
|
|
|
- (with-temp-buffer
|
|
|
- (bible--exec-diatheke "modulelist" nil nil "system")
|
|
|
- (buffer-string)))
|
|
|
- modules)
|
|
|
+ (let ((text (bible--exec-diatheke "modulelist" nil nil "system"))
|
|
|
+ modules)
|
|
|
(catch 'done
|
|
|
(dolist (line (split-string text "[\n\r]+"))
|
|
|
(when (equal line "Commentaries:")
|
