(defpackage :site
  (:use :cl)
  (:export
   #:+site-title+
   #:+data-directory+
   #:+public-directory+
   #:+static-file-directory+
   #:+sendmail+
   #:+from+
   #:+youtube-developer-id+
   #:+google-maps-key+
   #:*base-uri*
   #:+package+
   #:+administrators+
   #:challenge-question
   #:challenge-answer
   #:challenge-hint
   #:+content-type->extensions+))

(defpackage :util
  (:use :cl)
  (:export
   #:+unspecific+
   #:collecting
   #:collect
   #:with-collections
   #:with-unique-names
   #:rebinding
   #:gensymize-list
   #:rebinding-lists
   #:whereas
   #:sans
   #:macro-value
   #:compare
   #:compare-objects
   #:lookup=
   #:lookup/=
   #:lookup<
   #:lookup<=
   #:lookup>
   #:lookup>=
   #:whitespacep
   #:string-trim-if
   #:remove-extra-spaces
   #:maybe-get-output-stream-string
   #:with-output
   #:method-exists
   #:string-to-object
   #:&qualifiers
   #:destructuring-method-definition
   #:define-method-macro
   #:with-caching-slot
   #:sometree
   #:insertf
   #:deletef
   #:integer->directory
   #:file-size
   #:chmod
   #:ensure-directories-exist
   #:scale-bytes
   #:string->type))

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

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

(defpackage :date-time
  (:use :cl :util)
  (:export
   #:date-time
   #:make-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-time*
   #:*print-separators*
   #:print-rfc-822-time
   #:rfc-822-time))

(defpackage :html
  (:use :cl :util)
  (:export
   #:tag-name
   #:element
   #:element-name
   #:html-element-p
   #:attributes
   #:attribute
   #:element-has-flag
   #:find-element
   #:find-element-in-tree
   #:html
   #:xml
   #:*ml
   #:html-output
   #:defelement
   #:parse-element
   #:with-element
   #:with-sub-elements
   #:&attributes
   #:&wrapper
   #:escape
   #:*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 :uri
  (:use :cl :util)
  (: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
   #:uri=))

(defpackage :http
  (:use :cl :util :site :uri)
  (:export
   #:encode-alist
   #:decode-alist
   #:parse-post-request
   #:safe-char-p
   #:token-char-p
   #:uri-encode
   #:uri-decode
   #:http-get
   #:http-get-xml
   #:request
   #:request-method
   #:request-uri
   #:request-query
   #:request-query-value
   #:request-action
   #:cookies
   #:cookie
   #:request-reply-code
   #:request-reply-content-type
   #:*request*
   #:parse-request
   #:parse-parameter
   #:with-query
   #:query-setf-form
   #:setf-accessors-from-query
   #:expand-query-parsing-form
   #:set-cookie))

(defpackage :db
  (:use :cl :util)
  (:export
   #:+db-current+
   #:+db-first+
   #:+db-last+
   #:+db-next+
   #:+db-prev+
   #:+db-set+
   #:+db-set-range+
   #:*db-directory*
   #:*db-key*
   #:*db-value*
   #:db-init
   #:db-open
   #:db-close
   #:db-get
   #:db-put
   #:db-delete
   #:db-sync
   #:db-cursor
   #:db-cursor-close
   #:db-cursor-move
   #:with-database))

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

(defpackage :kira
  (:use
   :cl
   :site
   :util
   :lock
   :http
   :odb
   :html
   :uri
   :date-time
   :xml
   :tml))