26
|
1
|
;; demo packages.lisp |
|
2
|
(defpackage :demo-user |
|
3
|
(:use :demo)) |
|
4
|
|
|
5
|
(defpackage :demo |
|
6
|
(:use #:cl #:demo-ui #:demo-cli #:demo-tk #:demo-db) |
|
7
|
(:local-nicknames |
|
8
|
(#:v #:org.shirakumo.verbose) |
|
9
|
(#:bt #:bordeaux-threads) |
|
10
|
(#:cli #:clingon))) |
|
11
|
|
|
12
|
(defpackage :demo-ui |
|
13
|
(:use) |
|
14
|
(:export |
|
15
|
#:on-new-window |
|
16
|
#:start-ui)) |
|
17
|
(defpackage :demo-tk |
|
18
|
(:use) |
|
19
|
(:export |
|
20
|
#:source-dir |
|
21
|
#:random-id |
|
22
|
#:scan-dir |
|
23
|
#:mkstr |
|
24
|
#:symb |
|
25
|
#:sbq-reader) |
|
26
|
(:export |
|
27
|
#:*cargo-target* |
|
28
|
#:*rs-macros* |
|
29
|
#:rs-defmacro |
|
30
|
#:rs-macroexpand-1 |
|
31
|
#:rs-macroexpand)) |
|
32
|
(defpackage :demo-cli |
|
33
|
(:use) |
|
34
|
(:local-nick |
|
35
|
(:export |
|
36
|
#:run-cli |
|
37
|
#:demo-path |
|
38
|
#:db-path |
|
39
|
#:cli-opts |
|
40
|
#:cli-handler |
|
41
|
#:cli-cmd)) |
|
42
|
(defpackage :demo-db |
|
43
|
(:use)) |