fixed up display mechanism
[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
DC
9 (:nicknames :lol :mewa)
10
5dea194e
DC
11 (:shadowing-import-from
12 :iterate
13 :with)
b8c89851
DC
14
15 (:shadowing-import-from
16 :clsql
17 :time-difference
18 :make-time
19 :time-ymd
a4e6154d 20 :date-ymd
b8c89851
DC
21 :date
22 :get-time
23 :time-element
24 :time+
25 :date-element)
b8c89851 26
dbeb1708 27 (:export
8708d17f
DC
28 ;;;; CLSQL meta-model/default attributes definers
29 ;;;; TODO: should be moved to meta-model,
30 ;;;; with lol specific function implemented like the
31 ;;;; CLOS meta-model
d5e996b3
DC
32 :define-view-for-table
33 :define-views-for-database
68a53dce 34
8708d17f
DC
35
36 ;;;; The LoL 3 displays
37 :defdisplay
38 :defattribute
39 :display
40 :display-using-description
41 :call-display
42
0386c736 43 ;;;; Standard Layers
44
45 :editor
46 :one-line
47 :as-string
48 :as-table
49 ;;;; "Lines", the newest creation.
50 :defline
0386c736 51
91b9f259 52 ;;;; A macro shortcut for creating ucw actions
0386c736 53 :action
68a53dce 54
dbeb1708 55 ;;;; Mewa Exports
2b0fd9c8
DC
56 :find-occurence
57
dbeb1708
DC
58 ;;attributes
59 :attributes
2b0fd9c8 60 :attribute-value
d5e996b3
DC
61 :define-attributes
62 :with-default-attributes
dbeb1708
DC
63 :set-default-attributes
64 :set-attribute
65 :find-attribute
569ad9e6 66
dbeb1708 67 ;;;; Meta Model Exports))
5a4eea11
DC
68 :define-meta-model
69 :def-view-class-from-table
7c3aade7 70 :def-view-class/meta
8e6e6b56
DC
71 :list-slot-types
72 ))