changelog shortlog graph tags branches changeset files file revisions raw help

Mercurial > demo / annotate src/package.lisp

changeset 27: 529419ac94f3
child: 77da08c7f445
author: ellis <ellis@rwest.io>
date: Tue, 06 Jun 2023 18:55:17 -0400
permissions: -rw-r--r--
description: refactor 2 (wip)
27
529419ac94f3 refactor 2 (wip)
ellis <ellis@rwest.io>
parents:
diff changeset
1
 ;; demo packages.lisp
529419ac94f3 refactor 2 (wip)
ellis <ellis@rwest.io>
parents:
diff changeset
2
 (defpackage :demo-sys
529419ac94f3 refactor 2 (wip)
ellis <ellis@rwest.io>
parents:
diff changeset
3
   (:nicknames :ds))
529419ac94f3 refactor 2 (wip)
ellis <ellis@rwest.io>
parents:
diff changeset
4
 (defpackage :demo-utils
529419ac94f3 refactor 2 (wip)
ellis <ellis@rwest.io>
parents:
diff changeset
5
   (:use :demo-sys)
529419ac94f3 refactor 2 (wip)
ellis <ellis@rwest.io>
parents:
diff changeset
6
   (:nicknames :dutils)
529419ac94f3 refactor 2 (wip)
ellis <ellis@rwest.io>
parents:
diff changeset
7
   (:export
529419ac94f3 refactor 2 (wip)
ellis <ellis@rwest.io>
parents:
diff changeset
8
    #:source-dir
529419ac94f3 refactor 2 (wip)
ellis <ellis@rwest.io>
parents:
diff changeset
9
    #:random-id
529419ac94f3 refactor 2 (wip)
ellis <ellis@rwest.io>
parents:
diff changeset
10
    #:scan-dir)
529419ac94f3 refactor 2 (wip)
ellis <ellis@rwest.io>
parents:
diff changeset
11
   (:export
529419ac94f3 refactor 2 (wip)
ellis <ellis@rwest.io>
parents:
diff changeset
12
    #:*cargo-target*
529419ac94f3 refactor 2 (wip)
ellis <ellis@rwest.io>
parents:
diff changeset
13
    #:*rs-macros*
529419ac94f3 refactor 2 (wip)
ellis <ellis@rwest.io>
parents:
diff changeset
14
    #:rs-defmacro
529419ac94f3 refactor 2 (wip)
ellis <ellis@rwest.io>
parents:
diff changeset
15
    #:rs-macroexpand-1
529419ac94f3 refactor 2 (wip)
ellis <ellis@rwest.io>
parents:
diff changeset
16
    #:rs-macroexpand))
529419ac94f3 refactor 2 (wip)
ellis <ellis@rwest.io>
parents:
diff changeset
17
 (defpackage :demo-db
529419ac94f3 refactor 2 (wip)
ellis <ellis@rwest.io>
parents:
diff changeset
18
   (:use :demo-sys)
529419ac94f3 refactor 2 (wip)
ellis <ellis@rwest.io>
parents:
diff changeset
19
   (:nicknames :ddb))
529419ac94f3 refactor 2 (wip)
ellis <ellis@rwest.io>
parents:
diff changeset
20
 (defpackage :demo-ui
529419ac94f3 refactor 2 (wip)
ellis <ellis@rwest.io>
parents:
diff changeset
21
   (:use :demo-sys)
529419ac94f3 refactor 2 (wip)
ellis <ellis@rwest.io>
parents:
diff changeset
22
   (:nicknames :dui)
529419ac94f3 refactor 2 (wip)
ellis <ellis@rwest.io>
parents:
diff changeset
23
   (:export
529419ac94f3 refactor 2 (wip)
ellis <ellis@rwest.io>
parents:
diff changeset
24
    #:on-new-window
529419ac94f3 refactor 2 (wip)
ellis <ellis@rwest.io>
parents:
diff changeset
25
    #:start-ui))
529419ac94f3 refactor 2 (wip)
ellis <ellis@rwest.io>
parents:
diff changeset
26
 (defpackage :demo-cli
529419ac94f3 refactor 2 (wip)
ellis <ellis@rwest.io>
parents:
diff changeset
27
   (:use :demo-sys)
529419ac94f3 refactor 2 (wip)
ellis <ellis@rwest.io>
parents:
diff changeset
28
   (:nicknames :dcli)
529419ac94f3 refactor 2 (wip)
ellis <ellis@rwest.io>
parents:
diff changeset
29
   (:export
529419ac94f3 refactor 2 (wip)
ellis <ellis@rwest.io>
parents:
diff changeset
30
    #:run-cli
529419ac94f3 refactor 2 (wip)
ellis <ellis@rwest.io>
parents:
diff changeset
31
    #:demo-path
529419ac94f3 refactor 2 (wip)
ellis <ellis@rwest.io>
parents:
diff changeset
32
    #:db-path
529419ac94f3 refactor 2 (wip)
ellis <ellis@rwest.io>
parents:
diff changeset
33
    #:cli-opts
529419ac94f3 refactor 2 (wip)
ellis <ellis@rwest.io>
parents:
diff changeset
34
    #:cli-handler
529419ac94f3 refactor 2 (wip)
ellis <ellis@rwest.io>
parents:
diff changeset
35
    #:cli-cmd))
529419ac94f3 refactor 2 (wip)
ellis <ellis@rwest.io>
parents:
diff changeset
36
 (defpackage :demo
529419ac94f3 refactor 2 (wip)
ellis <ellis@rwest.io>
parents:
diff changeset
37
   (:use #:cl #:demo-sys #:demo-utils #:demo-db #:demo-ui #:demo-cli)
529419ac94f3 refactor 2 (wip)
ellis <ellis@rwest.io>
parents:
diff changeset
38
   (:nicknames :d)
529419ac94f3 refactor 2 (wip)
ellis <ellis@rwest.io>
parents:
diff changeset
39
   (:local-nicknames
529419ac94f3 refactor 2 (wip)
ellis <ellis@rwest.io>
parents:
diff changeset
40
    (#:v #:org.shirakumo.verbose)
529419ac94f3 refactor 2 (wip)
ellis <ellis@rwest.io>
parents:
diff changeset
41
    (#:bt #:bordeaux-threads)
529419ac94f3 refactor 2 (wip)
ellis <ellis@rwest.io>
parents:
diff changeset
42
    (#:cli #:clingon)))
529419ac94f3 refactor 2 (wip)
ellis <ellis@rwest.io>
parents:
diff changeset
43
 (defpackage :demo-user
529419ac94f3 refactor 2 (wip)
ellis <ellis@rwest.io>
parents:
diff changeset
44
   (:use :demo #:cl-user))