(defpackage :lisp-on-lines
(:use :arnesi
- :iterate
- :meta-model
+ ;:iterate
+ ;:meta-model
:common-lisp
- :it.bese.ucw
- :clsql
+ ;:it.bese.ucw
+ ;:clsql
:contextl)
(:nicknames :lol :mewa)
+
+ #+nil(:shadowing-import-from
+ :ucw
+ :parent)
- (:shadowing-import-from
+ #+nil(:shadowing-import-from
:iterate
:with)
- (:shadowing-import-from
+#+nil (:shadowing-import-from
:clsql
:time-difference
:make-time
:time+
:date-element)
- (:export
+ (:export
+
+ #:find-description
+ #:ensure-description
+ #:define-description
+
+ #:define-display
+ #:display
+ #:*display*
+ #:*object*
+
+ #:find-attribute
+ #:attribute-label
+
+
+
;;;; CLSQL meta-model/default attributes definers
;;;; TODO: should be moved to meta-model,
;;;; with lol specific function implemented like the
;;;; The LoL 3 displays
- :defdisplay
- :defattribute
- :display
- :display-using-description
- :call-display
-
- ;;;; Standard Layers
-
- :editor
- :one-line
- :as-string
- :as-table
+ #:defdisplay
+ #:defdescription
+ #:defattribute
+ #:display
+ #:display*
+ #:display-using-description
+ #:display-attribute
+ #:call-display
+
+ #:standard-attribute
+ #:attribute.name
+
+;;;; Standard Layers
+
+ #:editor
+ #:one-line
+ #:as-string
+ #:as-table
+;;;; Wrapping layers
+ #:wrap-div
+ #:wrap-link
+
+ #:show-attribute-labels
;;;; "Lines", the newest creation.
:defline
:set-attribute
:find-attribute
- ;;;; Meta Model Exports))
- :define-meta-model
- :def-view-class-from-table
- :def-view-class/meta
- :list-slot-types
- ))
\ No newline at end of file
+ ;; Some CRUD
+ #:crud
+ #:crud-editor
+ #:crud-viewer
+ #:crud-summary
+ #:crud-database
+ #:instance))
+
+(cl:defpackage #:lol-test
+ (:use :cl :lisp-on-lines :stefil :contextl))
\ No newline at end of file