Added standard descriptions and UCW integration.
[clinton/lisp-on-lines.git] / src / ucw / packages.lisp
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))