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 |
62 | :perform-set-attributes | |
dbeb1708 | 63 | :perform-set-attribute-properties |
498061f6 | 64 | :find-class-attributes |
65 | :default-attributes | |
66 | :ok | |
67 | :edit-instance | |
68 | :save-instance | |
69 | :cancel-save-instance | |
85281029 | 70 | :ensure-instance-sync |
569ad9e6 | 71 | :instance-is-stored-p |
85281029 DC |
72 | :global-properties |
73 | :search-expr | |
74 | :search-query)) | |
6d063a77 | 75 | |
76 | (defpackage :lisp-on-lines | |
42d345c3 | 77 | (:use :mewa :meta-model :common-lisp :it.bese.ucw :js) |
8e6e6b56 | 78 | (:nicknames :lol) |
dbeb1708 | 79 | (:export |
68a53dce DC |
80 | ;;;; LoL |
81 | :initialize-lol-for-table | |
82 | :initialize-lol-for-database | |
83 | ||
d2512426 DC |
84 | ;;;; Ajax |
85 | :auto-complete | |
86 | :call-auto-complete | |
68a53dce | 87 | |
dbeb1708 | 88 | ;;;; Mewa Exports |
8e6e6b56 | 89 | :mewa ;the superclass of all mewa-presentations |
dbeb1708 | 90 | :make-presentation |
68a53dce | 91 | :call-presentation |
dbeb1708 DC |
92 | ;;attributes |
93 | :attributes | |
94 | :set-default-attributes | |
95 | :set-attribute | |
96 | :find-attribute | |
97 | :perform-set-attributes | |
98 | ;; | |
99 | :perform-set-attribute-properties | |
100 | ||
101 | ;; presentation objects | |
102 | :mewa-object-presentation | |
103 | :mewa-one-line-presentation | |
104 | :mewa-list-presentation | |
569ad9e6 DC |
105 | |
106 | ;; CRUD | |
107 | :instance-is-stored-p | |
108 | ||
dbeb1708 | 109 | ;;;; Meta Model Exports)) |
5a4eea11 DC |
110 | :define-meta-model |
111 | :def-view-class-from-table | |
7c3aade7 | 112 | :def-view-class/meta |
8e6e6b56 DC |
113 | :list-slot-types |
114 | )) |