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   (:shadowing-import-from
  12    :iterate
  13    :with)
  14
  15   (:shadowing-import-from
  16    :clsql
  17    :time-difference
  18    :make-time
  19    :time-ymd
  20    :date-ymd
  21    :date
  22    :get-time
  23    :time-element
  24    :time+
  25    :date-element)
  26
  27   (:export
  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
  32    :define-view-for-table
  33    :define-views-for-database
  34
  35
  36    ;;;; The LoL 3 displays
  37    :defdisplay
  38    :defattribute
  39    :display
  40    :display-using-description
  41    :call-display
  42
  43    ;;;; Standard Layers
  44
  45    :editor
  46    :one-line
  47    :as-string
  48    :as-table
  49    ;;;; "Lines", the newest creation.
  50    :defline
  51
  52    ;;;; A macro shortcut for creating ucw actions
  53    :action
  54
  55    ;;;; Mewa Exports
  56    :find-occurence
  57
  58    ;;attributes
  59    :attributes
  60    :attribute-value
  61    :define-attributes
  62    :with-default-attributes
  63    :set-default-attributes
  64    :set-attribute
  65    :find-attribute
  66
  67    ;;;; Meta Model Exports))
  68    :define-meta-model
  69    :def-view-class-from-table
  70    :def-view-class/meta
  71    :list-slot-types
  72    ))