Просмотр исходного кода

Script to do basic environment verification

Fred Gilham 1 месяц назад
Родитель
Сommit
4ef6a8f916
1 измененных файлов с 17 добавлено и 0 удалено
  1. 17 0
      test

+ 17 - 0
test

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