Add forgotten defdescription form.
[clinton/lisp-on-lines.git] / src / packages.lisp
CommitLineData
6d063a77 1(defpackage :lisp-on-lines
5dea194e
DC
2 (:use :arnesi
3 :iterate
4 :meta-model
5 :common-lisp
6 :it.bese.ucw
15bc66bd
DC
7 :clsql
8 :contextl)
b8c89851 9 (:nicknames :lol :mewa)
1cc831d4 10
11 (:shadowing-import-from
12 :ucw
13 :parent)
b8c89851 14
5dea194e
DC
15 (:shadowing-import-from
16 :iterate
17 :with)
b8c89851
DC
18
19 (:shadowing-import-from
20 :clsql
21 :time-difference
22 :make-time
23 :time-ymd
a4e6154d 24 :date-ymd
b8c89851
DC
25 :date
26 :get-time
27 :time-element
28 :time+
29 :date-element)
b8c89851 30
dbeb1708 31 (:export
8708d17f
DC
32 ;;;; CLSQL meta-model/default attributes definers
33 ;;;; TODO: should be moved to meta-model,
34 ;;;; with lol specific function implemented like the
35 ;;;; CLOS meta-model
d5e996b3
DC
36 :define-view-for-table
37 :define-views-for-database
68a53dce 38
8708d17f
DC
39
40 ;;;; The LoL 3 displays
8c03855c 41 #:defdisplay
42 #:defdescription
43 #:defattribute
44 #:display
45 #:display*
46 #:display-using-description
47 #:display-attribute
48 #:call-display
8708d17f 49
8c03855c 50 #:standard-attribute
51 #:attribute.name
0386c736 52
8c03855c 53;;;; Standard Layers
54
55 #:editor
56 #:one-line
57 #:as-string
58 #:as-table
59;;;; Wrapping layers
60 #:wrap-div
61 #:wrap-link
62
63 #:show-attribute-labels
0386c736 64 ;;;; "Lines", the newest creation.
65 :defline
0386c736 66
91b9f259 67 ;;;; A macro shortcut for creating ucw actions
0386c736 68 :action
68a53dce 69
dbeb1708 70 ;;;; Mewa Exports
2b0fd9c8
DC
71 :find-occurence
72
dbeb1708
DC
73 ;;attributes
74 :attributes
2b0fd9c8 75 :attribute-value
d5e996b3
DC
76 :define-attributes
77 :with-default-attributes
dbeb1708
DC
78 :set-default-attributes
79 :set-attribute
80 :find-attribute
569ad9e6 81
8c03855c 82 ;; Some CRUD
83 #:crud
84 #:crud-editor
85 #:crud-viewer
86 #:crud-summary
87 #:crud-database
88 #:instance))