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