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 | |
39 | ;; Standard Application |
40 | #:standard-application |
41 | #:register-application |
42 | #:service |
43 | |
44 | ;; Standard Request Context |
45 | #:*context* |
46 | #:context.current-frame |
47 | #:context.window-component |
48 | |
49 | |
50 | ;; Actions |
51 | #:call |
52 | #:make-action |
53 | #:find-action |
54 | #:defaction |
55 | #:defmethod/cc |
56 | |
57 | #:call-component |
58 | #:answer-component |
59 | |
60 | ;; Entry Points |
61 | #:defentry-point |
62 | |
63 | ;; Standard Components |
64 | #:render |
65 | #:component |
66 | #:standard-component-class |
67 | |
68 | #:standard-window-component ;* |
69 | #:window-body |
70 | |
71 | )) |
72 | |
73 | (defpackage :lisp-on-lines-tags |
74 | (:documentation "LoL convience yaclml tags.") |
75 | (:use) |
76 | (:nicknames #:<lol) |
77 | (:export |
78 | #:component-body |
79 | #:render-component |
80 | #:a |
81 | #:area |
82 | #:form |
83 | #:input |
84 | #:button |
85 | #:simple-select |
86 | #:select |
87 | #:option |
88 | #:textarea |
89 | |
90 | #:integer-range-select |
91 | #:month-day-select |
92 | #:month-select |
93 | |
94 | #:text |
95 | #:password |
96 | #:submit |
97 | #:simple-form |
98 | #:simple-submit |
99 | |
100 | #:localized |
101 | #:script)) |