-(defpackage :lisp-on-lines
- (:use :arnesi
- ;:iterate
- ;:meta-model
- :common-lisp
- ;:it.bese.ucw
- ;:clsql
- :contextl)
- (:nicknames :lol :mewa)
-
- #+nil(:shadowing-import-from
- :ucw
- :parent)
-
- #+nil(:shadowing-import-from
- :iterate
- :with)
-
-#+nil (:shadowing-import-from
- :clsql
- :time-difference
- :make-time
- :time-ymd
- :date-ymd
- :date
- :get-time
- :time-element
- :time+
- :date-element)
-
- (: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
- ;;;; CLOS meta-model
- :define-view-for-table
- :define-views-for-database
-
-
- ;;;; The LoL 3 displays
- #: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
-
- ;;;; A macro shortcut for creating ucw actions
- :action
-
- ;;;; Mewa Exports
- :find-occurence
-
- ;;attributes
- :attributes
- :attribute-value
- :define-attributes
- :with-default-attributes
- :set-default-attributes
- :set-attribute
- :find-attribute
-
- ;; 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
+(defpackage #:lisp-on-lines
+ (:use
+ :common-lisp
+ #:contextl
+ #:closer-mop
+
+ #:alexandria)
+ (:nicknames #:lol)
+ (:export
+
+
+;; Descriptions
+ #:*description*
+ #:find-description
+ #:description-of
+ #:define-description
+ #:defining-description
+ #:described-object
+ #:with-described-object
+ #:described-class
+ #:described-standard-class
+ #:with-active-descriptions
+ #:with-inactive-descriptions
+
+
+ ;; Displays
+ #:define-display
+ #:display
+ #:display-using-description
+ #:display-attribute-label
+ #:*display*
+ #:*object*
+
+ ;; Attributes
+ #:find-attribute
+ #:attribute
+ #:attributes
+ #:attribute-object
+ #:attribute-label
+ #:attribute-delimiter
+ #:attribute-slot-name
+ #:label
+ #:attribute-active-p
+ #:attribute-function
+ #:attribute-value
+ #:display-attribute-value
+ #:active-attributes
+ #:attribute-delimiter
+ #:standard-attribute
+ #:funcall-with-attribute-context
+ #:with-attribute-context
+
+ ;; Standard Library
+
+ ;; editing
+ #:editable
+ #:attribute-editor
+ #:string-attribute-editor
+ #:number-attribute-editor
+ #:password-attribute-editor
+ #:password
+
+ ;; :validation
+ #:validation
+ #:validate
+ #:validp
+
+ ;; CLOS
+ #:slot-definition-attribute
+
+ ;; html
+ #:display-html-attribute-editor
+ #:make-attribute-value-writer))
+
+