bible/test

#!/usr/bin/env -S emacs --script

(require 'bible)

(let* ((modules (string-lines (bible--exec-diatheke "modulelist" nil "plain" "system"))))
  (princ "\n")
  (let ((do-print t))
    (dolist (line modules)
      (when (string-equal line "Commentaries:")
         (setq do-print nil))
      (when (string-equal line "Lexicons / Dictionaries:")
         (setq line (concat "\n" line))
         (setq do-print t))
      (when (string-equal line "Daily Devotional:")
         (setq do-print nil))
      (when do-print	   
         (princ (concat line "\n"))))))