Commit | Line | Data |
---|---|---|
579597e3 | 1 | (defpackage :meta-model |
42d345c3 DC |
2 | (:use :common-lisp :clsql :clsql-pg-introspect) |
3 | (:shadow :primary-key-p) | |
579597e3 | 4 | (:export |
5 | :meta-model-class | |
6 | :meta-model.base-type | |
7 | :meta-model.instance | |
8 | :meta-model.metadata | |
42d345c3 DC |
9 | :define-meta-model |
10 | :def-view-class-from-table | |
579597e3 | 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 | |
292c806a | 32 | :list-many-to-many |
498061f6 | 33 | :sync-instance |
9d6c69fb DC |
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 | |
dbeb1708 | 44 | :select-instances)) |
579597e3 | 45 | |
6d063a77 | 46 | |
47 | (defpackage :mewa | |
48 | (:use :ucw :common-lisp) | |
498061f6 | 49 | (:export |
50 | :mewa | |
51 | :mewa-object-presentation | |
9d6c69fb | 52 | :mewa-one-line-presentation |
dbeb1708 | 53 | :mewa-list-presentation |
9d6c69fb | 54 | :mewa-presentation-search |
498061f6 | 55 | :find-attribute |
7c3aade7 | 56 | :set-default-attributes |
498061f6 | 57 | :make-presentation |
58 | :call-presentation | |
dbeb1708 DC |
59 | :label |
60 | :attributes | |
e8e743d7 | 61 | :set-attribute |
ec044146 | 62 | :set-attribute-properties |
e8e743d7 | 63 | :perform-set-attributes |
dbeb1708 | 64 | :perform-set-attribute-properties |
498061f6 | 65 | :find-class-attributes |
66 | :default-attributes | |
67 | :ok | |
68 | :edit-instance | |
69 | :save-instance | |
70 | :cancel-save-instance | |
85281029 | 71 | :ensure-instance-sync |
569ad9e6 | 72 | :instance-is-stored-p |
85281029 DC |
73 | :global-properties |
74 | :search-expr | |
75 | :search-query)) | |
6d063a77 | 76 | |
77 | (defpackage :lisp-on-lines | |
42d345c3 | 78 | (:use :mewa :meta-model :common-lisp :it.bese.ucw :js) |
8e6e6b56 | 79 | (:nicknames :lol) |
dbeb1708 | 80 | (:export |
68a53dce DC |
81 | ;;;; LoL |
82 | :initialize-lol-for-table | |
83 | :initialize-lol-for-database | |
84 | ||
d2512426 DC |
85 | ;;;; Ajax |
86 | :auto-complete | |
87 | :call-auto-complete | |
68a53dce | 88 | |
dbeb1708 | 89 | ;;;; Mewa Exports |
8e6e6b56 | 90 | :mewa ;the superclass of all mewa-presentations |
dbeb1708 | 91 | :make-presentation |
68a53dce | 92 | :call-presentation |
dbeb1708 DC |
93 | ;;attributes |
94 | :attributes | |
95 | :set-default-attributes | |
96 | :set-attribute | |
97 | :find-attribute | |
98 | :perform-set-attributes | |
99 | ;; | |
100 | :perform-set-attribute-properties | |
101 | ||
102 | ;; presentation objects | |
103 | :mewa-object-presentation | |
104 | :mewa-one-line-presentation | |
105 | :mewa-list-presentation | |
569ad9e6 DC |
106 | |
107 | ;; CRUD | |
108 | :instance-is-stored-p | |
109 | ||
dbeb1708 | 110 | ;;;; Meta Model Exports)) |
5a4eea11 DC |
111 | :define-meta-model |
112 | :def-view-class-from-table | |
7c3aade7 | 113 | :def-view-class/meta |
8e6e6b56 DC |
114 | :list-slot-types |
115 | )) |