nuke more cruft
[clinton/lisp-on-lines.git] / src / packages.lisp
CommitLineData
6d063a77 1(defpackage :lisp-on-lines
5dea194e 2 (:use :arnesi
1d51a2ee 3 ;:iterate
4 ;:meta-model
5dea194e 5 :common-lisp
1d51a2ee 6 ;:it.bese.ucw
7 ;:clsql
15bc66bd 8 :contextl)
b8c89851 9 (:nicknames :lol :mewa)
1cc831d4 10
1d51a2ee 11 #+nil(:shadowing-import-from
1cc831d4 12 :ucw
13 :parent)
b8c89851 14
1d51a2ee 15 #+nil(:shadowing-import-from
5dea194e
DC
16 :iterate
17 :with)
b8c89851 18
1d51a2ee 19#+nil (:shadowing-import-from
b8c89851
DC
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
1d51a2ee 31 (:export
32
33 #:find-description
34 #:ensure-description
35 #:define-description
36
37 #:define-display
38 #:display
39 #:*display*
40 #:*object*
41
42 #:find-attribute
43 #:attribute-label
44
45
46
8708d17f
DC
47 ;;;; CLSQL meta-model/default attributes definers
48 ;;;; TODO: should be moved to meta-model,
49 ;;;; with lol specific function implemented like the
50 ;;;; CLOS meta-model
d5e996b3
DC
51 :define-view-for-table
52 :define-views-for-database
68a53dce 53
8708d17f
DC
54
55 ;;;; The LoL 3 displays
8c03855c 56 #:defdisplay
57 #:defdescription
58 #:defattribute
59 #:display
60 #:display*
61 #:display-using-description
62 #:display-attribute
63 #:call-display
8708d17f 64
8c03855c 65 #:standard-attribute
66 #:attribute.name
0386c736 67
8c03855c 68;;;; Standard Layers
69
70 #:editor
71 #:one-line
72 #:as-string
73 #:as-table
74;;;; Wrapping layers
75 #:wrap-div
76 #:wrap-link
77
78 #:show-attribute-labels
0386c736 79 ;;;; "Lines", the newest creation.
80 :defline
0386c736 81
91b9f259 82 ;;;; A macro shortcut for creating ucw actions
0386c736 83 :action
68a53dce 84
dbeb1708 85 ;;;; Mewa Exports
2b0fd9c8
DC
86 :find-occurence
87
dbeb1708
DC
88 ;;attributes
89 :attributes
2b0fd9c8 90 :attribute-value
d5e996b3
DC
91 :define-attributes
92 :with-default-attributes
dbeb1708
DC
93 :set-default-attributes
94 :set-attribute
95 :find-attribute
569ad9e6 96
8c03855c 97 ;; Some CRUD
98 #:crud
99 #:crud-editor
100 #:crud-viewer
101 #:crud-summary
102 #:crud-database
1d51a2ee 103 #:instance))
104
105(cl:defpackage #:lol-test
106 (:use :cl :lisp-on-lines :stefil :contextl))