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