;;;; package.lisp
(defpackage #:tempores.packages
  (:use #:cl)
  (:export #:*tempores-packages*))
(in-package #:tempores.packages)

(eval-when (:load-toplevel :compile-toplevel :execute)
  (defparameter *tempores-packages* '()))

(defpackage #:generic-equals
  (:use #:cl)
  (:export #:==))

(defpackage #:tempores.macros
  (:use #:cl #:anaphora #:alexandria #:serapeum #:fwoar.lisputils #:generic-equals)
  (:export #:make-equality #:make-simple-equality #:defmethod-and-inverse
           #:define-printer #:quick-equalities))
(push :tempores.macros *tempores-packages*)

(defpackage #:tempores.parser
  (:use #:cl #:anaphora #:alexandria #:serapeum #:fwoar.lisputils #:smug
        #:tempores.macros #:generic-equals)
  (:shadow #:parse)
  (:export #:parse #:unparse #:date #:records #:client #:ranges #:memo #:hour #:minute #:second
           #:day-of-week #:year #:month #:day #:amount #:unit))
(push :tempores.parser *tempores-packages*)

(defpackage #:tempores.mvc
  (:use #:cl #:anaphora #:alexandria #:serapeum #:fwoar.lisputils)
  (:export #:model #:view #:controller #:display #:operate #:has-changed))
(push :tempores.mvc *tempores-packages*)

(defpackage #:tempores
  (:use #:cl #:anaphora #:alexandria #:serapeum #:fwoar.lisputils
        #:tempores.parser)
  (:import-from #:format-string-builder #:define-message)
  (:export #:with-tempores-configuration #:pprint-log #:get-log #:tempores
           #:*default-time-sheet-file* #:*rate* #:group-by-class #:print-status
           #:print-entries #:autocorrect-warning))
(push :tempores *tempores-packages*)

(defpackage #:tempores.cli
  (:use #:cl #:anaphora #:alexandria #:serapeum #:fwoar.lisputils
        #:tempores.parser #:tempores #:net.didierverna.clon
        #:plambda)
  (:import-from #:format-string-builder #:define-message))
(push :tempores.cli *tempores-packages*)

(in-package #:tempores)

(defvar *default-time-sheet-file*)
(defvar *rate*)