;;;; Copyright (C) 2006-2008 David Patrick Mullen
;;;;
;;;; This file is part of Kira.
;;;;
;;;; Kira is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU General Public License
;;;; as published by the Free Software Foundation; either version 2
;;;; of the License, or (at your option) any later version.
;;;;
;;;; Kira 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 General Public License
;;;; along with Kira; if not, write to the Free Software
;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.

(defpackage :site
  (:use :cl)
  (:export
   #:+site-name+
   #:+site-title+
   #:+kira-src-directory+
   #:+data-directory+
   #:+public-directory+
   #:+static-file-directory+
   #:+mailer+
   #:+youtube-developer-id+
   #:+google-maps-key+
   #:*base-uri*
   #:+content-type->extensions+))

(defpackage :util
  (:use :cl)
  (:export
   #:collecting
   #:with-collections
   #:collect
   #:with-unique-names
   #:rebinding
   #:gensymize-list
   #:rebinding-lists
   #:whereas
   #:if*
   #:cond*
   #:sans
   #:compare
   #:compare-objects
   #:equal-for-lookup
   #:less-than-for-lookup
   #:whitespacep
   #:remove-extra-spaces
   #:reset-string-stream
   #:maybe-get-output-stream-string
   #:emptyp
   #:one-of-p
   #:signals-conditions-p
   #:method-exists
   #:non-keyword-symbol-p
   #:string-to-object
   #:self-evaluating-p
   #:js-quote
   #:&qualifiers
   #:destructuring-method-definition
   #:define-method-macro
   #:symbol-macro-value
   #:with-caching-slot
   #:sometree))

(defpackage :xml
  (:use :cl)
  (:export
   #:read-xml
   #:read-xml-from-string))

(defpackage :fcgi
  (:use :cl)
  (:export
   #:fcgi-accept
   #:fcgi-read-byte
   #:fcgi-unread-byte
   #:fcgi-read-char
   #:fcgi-unread-char
   #:fcgi-read-string
   #:fcgi-write-byte
   #:fcgi-write-char
   #:fcgi-write-string
   #:fcgi-write-file
   #:fcgi-write
   #:fcgi-write-line))

(defpackage :lock
  (:use :cl :util)
  (:export
   #:make-lock
   #:lock-name
   #:with-lock
   #:clear-locks))

(defpackage :mail
  (:use :cl :util :lock)
  (:export
   #:send-mail))

(defpackage :date-time
  (:use :cl :util)
  (:export
   #:date-time
   #:ut-to-date-time
   #:date-time-to-ut
   #:now
   #:merge-date-times
   #:date-time-year
   #:date-time-month
   #:date-time-day
   #:date-time-hour
   #:date-time-minute
   #:date-time-second
   #:date-time-utc-p
   #:date-time-day-of-the-week
   #:+months+
   #:+days+
   #:month-number
   #:month-name
   #:classify-time
   #:print-date
   #:print-time
   #:print-date-time
   #:print-rfc-822-time))

(defpackage :html
  (:use :cl :util)
  (:export
   #:tag-name
   #:element-name
   #:elementp
   #:element-attribute
   #:find-element
   #:find-element-in-tree
   #:html
   #:xml
   #:*ml
   #:html-output
   #:define-html-macro
   #:parse-element
   #:with-element
   #:with-sub-elements
   #:&attributes
   #:&wrapper
   #:escape
   #:escape-html
   #:*html-output*
   #:+element-escapes+
   #:+attribute-escapes+))

(defpackage :tml
  (:use :cl :util :html)
  (:export
   #:render-text
   #:word-wrap
   #:parse-tml
   #:render-markup
   #:render-inline-markup
   #:render-teaser-text
   #:*allow-elements-p*
   #:*allow-links-p*
   #:*excerptp*
   #:*anonymous-first-block-p*))

(defpackage :btl
  (:use :cl :util)
  (:export
   #:btl
   #:btl-interpolate))

(defpackage :http
  (:use :cl :xml :util :lock)
  (:export
   #:encode-alist
   #:decode-alist
   #:parse-post-request
   #:safe-char-p
   #:uri-encode
   #:uri-decode
   #:http-get
   #:http-get-xml
   #:geocode))

(defpackage :uri
  (:use :cl :util :http)
  (:export
   #:uri
   #:uri-scheme
   #:uri-host
   #:uri-port
   #:uri-path
   #:uri-parsed-path
   #:uri-name
   #:uri-type
   #:uri-query
   #:uri-parsed-query
   #:uri-query-value
   #:uri-fragment
   #:merge-uris
   #:parse-uri
   #:uri-namestring))

(defpackage :db
  (:use :cl :util)
  (:export
   #:DB_CURRENT
   #:DB_FIRST
   #:DB_LAST
   #:DB_NEXT
   #:DB_PREV
   #:DB_SET
   #:DB_SET_RANGE
   #:DB_NOTFOUND
   #:*db-key*
   #:*db-value*
   #:db-init
   #:db-finish
   #:db-transaction
   #:db-commit
   #:db-open
   #:db-close
   #:db-get
   #:db-put
   #:db-delete
   #:db-sync
   #:db-cursor
   #:db-cursor-close
   #:db-cursor-move
   #:with-simple-database))

(defpackage :odb
  (:use :cl :util :db :lock)
  (:export
   #:database
   #:btree
   #:id
   #:*database*
   #:*transaction*
   #:*btrees*
   #:get-value
   #:add-kv
   #:remove-kv
   #:cursor-current
   #:cursor-prev
   #:cursor-next
   #:cursor-first
   #:cursor-last
   #:cursor-set
   #:cursor-set-range
   #:with-database
   #:with-cursor
   #:with-transaction
   #:deftransaction
   #:rollback
   #:commit
   #:unique-key
   #:oid->object
   #:containsp
   #:add-to
   #:remove-from
   #:collection))

(defpackage :request
  (:use :cl :fcgi :http :uri)
  (:export
   #:request
   #:request-method
   #:request-uri
   #:request-query
   #:request-query-value
   #:request-action
   #:cookies
   #:cookie
   #:request-reply-code
   #:request-reply-content-type
   #:*request*
   #:parse-request
   #:string->type
   #:parse-parameter
   #:with-query
   #:query-setf-form
   #:setf-accessors-from-query
   #:set-cookie))

(defpackage :kira
  (:use
   :cl
   :site
   :util
   :http
   :db
   :odb
   :fcgi
   :html
   :uri
   :date-time
   :xml
   :mail
   :request
   :tml
   :btl))