;; packages.lisp --- 

;; Copyright (C) 2009 Clinton Ebadi <clinton@unknownlamer.org>

;; Author: Clinton Ebadi <clinton@unknownlamer.org>

;; This program is free software: you can redistribute it and/or modify
;; it under the terms of the GNU Lesser General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.

;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU Lesser General Public License
;; along with this program.  If not, see <http://www.gnu.org/licenses/>.

(defpackage :org.unknownlamer.golgonooza.web
  (:use :common-lisp :ucw-core :ucw-standard)
  (:import-from :arnesi :defgeneric/cc :defmethod/cc)
  (:nicknames :golgonooza)
  (:export
   ;; Query View
   :query-view
   :query-ranged-view-mixin
   :query-keyed-view-mixin
   :query-paged-view-mixin
   :cached-query-paged-view-mixin
   :standard-query-view

   :query-view-get-instances
   :query-view-count-instances

   :current-items

   :render-query-view-result
      
   :scroll-start
   :scroll-end
   :scroll-forward
   :scroll-backward
   :scroll-to-page
   :have-previous-page-p
   :have-next-page-p
   :page-size
   :page-count
   :page-offset))

(defpackage :org.unknownlamer.golgonooza.site-control
  (:use :common-lisp :ucw-core)
  (:nicknames :ucw-site-control)
  (:import-from :arnesi :when-bind)
  (:export :*control-server-port*
	   :*control-server-host*
	   :*control-server-backend*
	   :*control-request-length-limit*
	   :*control-dev-mode*
	   :*control-data-root*

	   :ucw-site
	   :applications
	   :data-root
	   :make-entry-points
	   :start-site
	   :stop-site
	   :start-site-application
	   :stop-site-application
	   :find-site-application
	   :data-root-path

	   :register-site
	   :unregister-site
	   :find-site

	   :start-control-server
	   :stop-control-server))

(defpackage :org.unknownlamer.golgonooza.smil-tags
  (:use :common-lisp :yaclml)
  (:nicknames :smil-tags :<smil)
  (:export
   :smil
   :head
   :body
   :seq
   :video
   :audio))

(defpackage :org.unknownlamer.golgonooza.ucw-compat
  (:use :common-lisp :ucw-core :iterate)
  (:import-from :it.bese.arnesi
		:strcat :rcurry :with-unique-names :defmethod/cc)
  (:import-from :metatilities :time-year :time-month :time-date)
  (:nicknames :ucw-compat)
  (:export :*file-upload-root*))

(defpackage :org.unknownlamer.golgonooza.tests
  (:use :common-lisp :fiveam)
  (:nicknames :golgonooza-tests))