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.
77 lines
1.9 KiB
77 lines
1.9 KiB
;;; 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)))
|
|
|