Version 1.1.0 for MELPA releasae

bible.el

@@ -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:")