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    :ucw
  13    :parent)
  14
  15   (:shadowing-import-from
  16    :iterate
  17    :with)
  18
  19   (: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    ;;;; CLSQL meta-model/default attributes definers
  33    ;;;; TODO: should be moved to meta-model,
  34    ;;;; with lol specific function implemented like the
  35    ;;;; CLOS meta-model
  36    :define-view-for-table
  37    :define-views-for-database
  38
  39
  40    ;;;; The LoL 3 displays
  41    #:defdisplay
  42    #:defdescription
  43    #:defattribute
  44    #:display
  45    #:display*
  46    #:display-using-description
  47    #:display-attribute
  48    #:call-display
  49
  50    #:standard-attribute
  51    #:attribute.name
  52
  53 ;;;; Standard Layers
  54
  55    #:editor
  56    #:one-line
  57    #:as-string
  58    #:as-table
  59 ;;;; Wrapping layers
  60    #:wrap-div
  61    #:wrap-link
  62
  63    #:show-attribute-labels
  64    ;;;; "Lines", the newest creation.
  65    :defline
  66
  67    ;;;; A macro shortcut for creating ucw actions
  68    :action
  69
  70    ;;;; Mewa Exports
  71    :find-occurence
  72
  73    ;;attributes
  74    :attributes
  75    :attribute-value
  76    :define-attributes
  77    :with-default-attributes
  78    :set-default-attributes
  79    :set-attribute
  80    :find-attribute
  81
  82    ;; Some CRUD
  83    #:crud
  84    #:crud-editor
  85    #:crud-viewer
  86    #:crud-summary
  87    #:crud-database
  88    #:instance))