소스 검색

Script to do basic environment verification

Fred Gilham 1 개월 전
부모
커밋
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"))))))