src/packages.lisp

   1 (defpackage :lisp-on-lines
   2   (:use :arnesi
   3         ;:iterate
   4         ;:meta-model
   5         :common-lisp
   6         ;:it.bese.ucw
   7         ;:clsql
   8         :contextl)
   9   (:nicknames :lol :mewa)
  10
  11   #+nil(:shadowing-import-from
  12    :ucw
  13    :parent)
  14
  15   #+nil(:shadowing-import-from
  16    :iterate
  17    :with)
  18
  19 #+nil  (:shadowing-import-from
  20    :clsql
  21    :time-difference
  22    :make-time
  23    :time-ymd
  24    :date-ymd
  25    :date
  26    :get-time
  27    :time-element
  28    :time+
  29    :date-element)
  30
  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
  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
  51    :define-view-for-table
  52    :define-views-for-database
  53
  54
  55    ;;;; The LoL 3 displays
  56    #:defdisplay
  57    #:defdescription
  58    #:defattribute
  59    #:display
  60    #:display*
  61    #:display-using-description
  62    #:display-attribute
  63    #:call-display
  64
  65    #:standard-attribute
  66    #:attribute.name
  67
  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
  79    ;;;; "Lines", the newest creation.
  80    :defline
  81
  82    ;;;; A macro shortcut for creating ucw actions
  83    :action
  84
  85    ;;;; Mewa Exports
  86    :find-occurence
  87
  88    ;;attributes
  89    :attributes
  90    :attribute-value
  91    :define-attributes
  92    :with-default-attributes
  93    :set-default-attributes
  94    :set-attribute
  95    :find-attribute
  96
  97    ;; Some CRUD
  98    #:crud
  99    #:crud-editor
 100    #:crud-viewer
 101    #:crud-summary
 102    #:crud-database
 103    #:instance))
 104
 105 (cl:defpackage #:lol-test
 106   (:use :cl :lisp-on-lines :stefil :contextl))