|
@@ -0,0 +1,17 @@
|
|
|
|
|
+#!/usr/local/bin/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"))))))
|
