You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
|
|
;;;; cl-bible.lisp
|
|
|
|
|
|
|
|
(in-package #:cl-bible.data)
|
|
|
|
|
|
|
|
(defvar *translations* '(("Menge" :mng "mng")
|
|
|
|
("King James Version" :kjv "kjv")
|
|
|
|
("Vulgata" :vul "vul")
|
|
|
|
("Greek Bible" :grb "grb")
|
|
|
|
("Elberfelder Übersetzung 1871" :elb1871 "elb1871")
|
|
|
|
("NEÜ" :neue "neue")
|
|
|
|
("Luther 1545" :luth1545 "luth1545")
|
|
|
|
("Luther 1912" :luth1912 "luth1912")
|
|
|
|
("Schlachter 1951" :sch1951 "sch1951")
|
|
|
|
("Ukrainische Version" :ukr "ukr")))
|
|
|
|
|
|
|
|
(defun read-bible-from-tsv (filename)
|
|
|
|
(mapcar #'v:string-to-verse
|
|
|
|
(uiop:read-file-lines
|
|
|
|
(uiop:native-namestring (concatenate 'string "~/.bible/" filename ".tsv")))))
|
|
|
|
|
|
|
|
(defvar *translation* :vul)
|
|
|
|
(defvar *bible* (read-bible-from-tsv "vul"))
|
|
|
|
|
|
|
|
(defun update-bible (translation)
|
|
|
|
(setf *bible* (read-bible-from-tsv (string-downcase translation))))
|