src/packages.lisp

   1 (defpackage :meta-model
   2   (:use :common-lisp :clsql :clsql-pg-introspect)
   3   (:shadow :primary-key-p)
   4   (:export
   5    :meta-model-class
   6    :meta-model.base-type
   7    :meta-model.instance
   8    :meta-model.metadata
   9    :define-meta-model
  10    :def-view-class-from-table
  11    :def-view-class/meta
  12    :view-class-metadata
  13    :create-table-from-model
  14    :list-slots
  15    :list-slot-types
  16    :slot-type
  17    :display-slot
  18    :list-joins
  19    :list-join-attributes
  20    :list-keys
  21    :list-view-classes
  22    :display-slot
  23    :primary-key-p
  24    :list-foreign-keys
  25    :foreign-key-p
  26    :explode-foreign-key
  27    :find-join-class
  28    :find-join-key
  29    :find-default-value
  30    :explode-foreign-key
  31    :list-has-many
  32    :list-many-to-many
  33    :sync-instance
  34    :explode-has-many
  35    :expr-ends-with
  36    :expr-starts-with
  37    :expr-contains
  38    :expr-=
  39    :expr-<
  40    :expr->
  41    :expr-and
  42    :expr-or
  43    :expr-not
  44    :select-instances))
  45
  46
  47 (defpackage :mewa
  48   (:use :ucw :common-lisp)
  49   (:export
  50    :mewa
  51    :mewa-object-presentation
  52    :mewa-one-line-presentation
  53    :mewa-list-presentation
  54    :mewa-presentation-search
  55    :find-attribute
  56    :set-default-attributes
  57    :make-presentation
  58    :call-presentation
  59    :label
  60    :attributes
  61    :set-attribute
  62    :perform-set-attributes
  63    :perform-set-attribute-properties
  64    :find-class-attributes
  65    :default-attributes
  66    :ok
  67    :edit-instance
  68    :save-instance
  69    :cancel-save-instance
  70    :ensure-instance-sync
  71    :instance-is-stored-p
  72    :global-properties
  73    :search-expr
  74    :search-query))
  75
  76 (defpackage :lisp-on-lines
  77   (:use :mewa :meta-model :common-lisp :it.bese.ucw :js)
  78   (:nicknames :lol)
  79   (:export
  80    ;;;; LoL
  81    :initialize-lol-for-table
  82    :initialize-lol-for-database
  83
  84    ;;;; Ajax
  85    :auto-complete
  86    :call-auto-complete
  87
  88    ;;;; Mewa Exports
  89    :mewa ;the superclass of all mewa-presentations
  90    :make-presentation
  91    :call-presentation
  92    ;;attributes
  93    :attributes
  94    :set-default-attributes
  95    :set-attribute
  96    :find-attribute
  97    :perform-set-attributes
  98    ;;
  99    :perform-set-attribute-properties
 100
 101    ;; presentation objects
 102    :mewa-object-presentation
 103    :mewa-one-line-presentation
 104    :mewa-list-presentation
 105
 106    ;; CRUD
 107    :instance-is-stored-p
 108
 109    ;;;; Meta Model Exports))
 110    :define-meta-model
 111    :def-view-class-from-table
 112    :def-view-class/meta
 113    :list-slot-types
 114    ))