29815b3b890ff07a35f445f57407491d5e76d82e
[clinton/lisp-on-lines.git] / src / packages.lisp
1 (defpackage :meta-model
2 (:use :common-lisp :clsql :clsql-pg-introspect)
3 (:shadow :primary-key-p)
4 (:export
5 :meta-model-class
6 :meta-model.base-type
7 :meta-model.instance
8 :meta-model.metadata
9 :define-meta-model
10 :def-view-class-from-table
11 :def-view-class/meta
12 :view-class-metadata
13 :create-table-from-model
14 :list-slots
15 :list-slot-types
16 :slot-type
17 :display-slot
18 :list-joins
19 :list-join-attributes
20 :list-keys
21 :list-view-classes
22 :display-slot
23 :primary-key-p
24 :list-foreign-keys
25 :foreign-key-p
26 :explode-foreign-key
27 :find-join-class
28 :find-join-key
29 :find-default-value
30 :explode-foreign-key
31 :list-has-many
32 :list-many-to-many
33 :sync-instance
34 :explode-has-many
35 :expr-ends-with
36 :expr-starts-with
37 :expr-contains
38 :expr-=
39 :expr-<
40 :expr->
41 :expr-and
42 :expr-or
43 :expr-not
44 :select-instances))
45
46
47 (defpackage :mewa
48 (:use :ucw :common-lisp)
49 (:export
50 :mewa
51 :mewa-object-presentation
52 :mewa-one-line-presentation
53 :mewa-list-presentation
54 :mewa-presentation-search
55 :find-attribute
56 :set-default-attributes
57 :make-presentation
58 :call-presentation
59 :label
60 :attributes
61 :set-attribute
62 :perform-set-attributes
63 :perform-set-attribute-properties
64 :find-class-attributes
65 :default-attributes
66 :ok
67 :edit-instance
68 :save-instance
69 :cancel-save-instance
70 :ensure-instance-sync
71 :instance-is-stored-p
72 :global-properties
73 :search-expr
74 :search-query))
75
76 (defpackage :lisp-on-lines
77 (:use :mewa :meta-model :common-lisp :it.bese.ucw :js)
78 (:nicknames :lol)
79 (:export
80 ;;;; LoL
81 :initialize-lol-for-table
82 :initialize-lol-for-database
83
84
85
86 ;;;; Mewa Exports
87 :mewa ;the superclass of all mewa-presentations
88 :make-presentation
89 :call-presentation
90 ;;attributes
91 :attributes
92 :set-default-attributes
93 :set-attribute
94 :find-attribute
95 :perform-set-attributes
96 ;;
97 :perform-set-attribute-properties
98
99 ;; presentation objects
100 :mewa-object-presentation
101 :mewa-one-line-presentation
102 :mewa-list-presentation
103
104 ;; CRUD
105 :instance-is-stored-p
106
107 ;;;; Meta Model Exports))
108 :def-view-class/table
109 :def-view-class/meta
110 :list-slot-types
111 ))