4358148e |
1 | |
2 | (defpackage lisp-on-lines-ucw |
3 | (:documentation "An LoL Layer over ucw.basic") |
4 | (:nicknames #:lol-ucw) |
e8fd1a9a |
5 | (:use #:lisp-on-lines #:ucw-core :common-lisp :arnesi :yaclml :js :contextl) |
6 | |
7 | (:shadowing-import-from :js |
8 | #:new) |
9 | (:shadowing-import-from :ucw-core |
10 | #:parent ) |
11 | (:import-from :ucw-standard |
12 | #:call #:answer #:defaction #:*source-component*) |
4358148e |
13 | |
e8fd1a9a |
14 | |
4358148e |
15 | |
16 | (:export |
b7657b86 |
17 | |
18 | ;;; First, LOL-UCW exports. The rest are from UCW. |
19 | #:lol-component |
e8fd1a9a |
20 | #:*source-component* |
4358148e |
21 | #:defcomponent |
22 | |
23 | #:uri.query |
24 | |
25 | ;; Standard Server |
26 | #:standard-server |
27 | #:startup-server |
28 | #:shutdown-server |
29 | |
30 | |
6de8d300 |
31 | ;; Sessions |
32 | #:get-session-value |
4358148e |
33 | ;; Standard Application |
34 | #:standard-application |
35 | #:register-application |
36 | #:service |
37 | |
38 | ;; Standard Request Context |
39 | #:*context* |
40 | #:context.current-frame |
41 | #:context.window-component |
b1c8f43b |
42 | #:*current-component* |
4358148e |
43 | |
44 | ;; Actions |
45 | #:call |
b7657b86 |
46 | #:answer |
4358148e |
47 | #:make-action |
48 | #:find-action |
49 | #:defaction |
50 | #:defmethod/cc |
51 | |
52 | #:call-component |
53 | #:answer-component |
54 | |
55 | ;; Entry Points |
56 | #:defentry-point |
57 | |
58 | ;; Standard Components |
59 | #:render |
6de8d300 |
60 | #:render-html-body |
4358148e |
61 | #:component |
6de8d300 |
62 | |
4358148e |
63 | #:standard-component-class |
6de8d300 |
64 | #:described-component-class |
65 | |
66 | #:container |
67 | #:find-component |
4358148e |
68 | |
69 | #:standard-window-component ;* |
70 | #:window-body |
b7657b86 |
71 | #:info-message |
4358148e |
72 | |
73 | )) |
74 | |
75 | (defpackage :lisp-on-lines-tags |
76 | (:documentation "LoL convience yaclml tags.") |
77 | (:use) |
78 | (:nicknames #:<lol) |
79 | (:export |
80 | #:component-body |
81 | #:render-component |
82 | #:a |
83 | #:area |
84 | #:form |
85 | #:input |
86 | #:button |
87 | #:simple-select |
88 | #:select |
89 | #:option |
90 | #:textarea |
91 | |
92 | #:integer-range-select |
93 | #:month-day-select |
94 | #:month-select |
95 | |
96 | #:text |
97 | #:password |
98 | #:submit |
99 | #:simple-form |
100 | #:simple-submit |
101 | |
102 | #:localized |
103 | #:script)) |