|
|
|
;;; package.lisp
|
|
|
|
|
|
|
|
(defpackage #:cl-bible.verse
|
|
|
|
(:use #:cl)
|
|
|
|
(:export verse-to-string
|
|
|
|
string-to-verse
|
|
|
|
to-sexp
|
|
|
|
from-sexp
|
|
|
|
bname
|
|
|
|
bsname
|
|
|
|
chapter
|
|
|
|
vnumber
|
|
|
|
text
|
|
|
|
notes
|
|
|
|
translations
|
|
|
|
get-text))
|
|
|
|
|
|
|
|
(defpackage #:cl-bible.search
|
|
|
|
(:use #:cl)
|
|
|
|
(:local-nicknames (#:v #:cl-bible.verse))
|
|
|
|
(:export find-in-bible
|
|
|
|
find-book
|
|
|
|
find-chapter
|
|
|
|
find-verse
|
|
|
|
parse-position))
|
|
|
|
|
|
|
|
(defpackage #:cl-bible.data
|
|
|
|
(:use #:cl)
|
|
|
|
(:local-nicknames (#:s #:cl-bible.search)
|
|
|
|
(#:v #:cl-bible.verse))
|
|
|
|
(:export update-bible
|
|
|
|
*bible*
|
|
|
|
*translation*
|
|
|
|
*translations*
|
|
|
|
persist
|
|
|
|
load-bibles))
|
|
|
|
|
|
|
|
(defpackage #:cl-bible.lift-search
|
|
|
|
(:use #:cl)
|
|
|
|
(:local-nicknames (#:s #:cl-bible.search)
|
|
|
|
(#:v #:cl-bible.verse)
|
|
|
|
(#:d #:cl-bible.data))
|
|
|
|
(:export lift-search))
|
|
|
|
|
|
|
|
(defpackage #:cl-bible.chapter
|
|
|
|
(:use #:cl #:clog #:clog-gui #:clog-web)
|
|
|
|
(:local-nicknames (#:d #:cl-bible.data)
|
|
|
|
(#:s #:cl-bible.search)
|
|
|
|
(#:v #:cl-bible.verse))
|
|
|
|
(:export load-chapter
|
|
|
|
load-book
|
|
|
|
load-position))
|
|
|
|
|
|
|
|
(defpackage #:cl-bible.clog
|
|
|
|
(:use #:cl #:clog #:clog-gui #:clog-web)
|
|
|
|
(:local-nicknames (#:l #:cl-bible.lift-search)
|
|
|
|
(#:d #:cl-bible.data)
|
|
|
|
(#:s #:cl-bible.search)
|
|
|
|
(#:v #:cl-bible.verse)
|
|
|
|
(#:ch #:cl-bible.chapter))
|
|
|
|
(:export on-new-window))
|
|
|
|
|
|
|
|
(defpackage #:cl-bible
|
|
|
|
(:use #:cl #:clog #:clog-gui)
|
|
|
|
(:local-nicknames (#:c #:cl-bible.clog))
|
|
|
|
(:export start
|
|
|
|
main
|
|
|
|
build))
|
|
|
|
|
|
|
|
(defpackage #:cl-bible-user
|
|
|
|
(:use #:cl
|
|
|
|
#:cl-bible
|
|
|
|
#:cl-bible.verse
|
|
|
|
#:cl-bible.data
|
|
|
|
#:cl-bible.search)
|
|
|
|
(:local-nicknames (#:c #:clog)
|
|
|
|
(#:cg #:clog-gui)))
|
|
|
|
|
|
|
|
(defpackage #:cl-bible.api
|
|
|
|
(:use #:cl)
|
|
|
|
(:local-nicknames (#:l #:cl-bible.lift-search)
|
|
|
|
(#:d #:cl-bible.data)
|
|
|
|
(#:s #:cl-bible.search)
|
|
|
|
(#:v #:cl-bible.verse)
|
|
|
|
(#:ch #:cl-bible.chapter)
|
|
|
|
(#:h #:hunchentoot)
|
|
|
|
(#:j #:jonathan)))
|