@@ -32,7 +32,7 @@

                                     (format s "~w" xml)))))

 (defun parsed-api-call (xml)

-  (plump-parser:parse (post-to-endpoint xml)))

+  (plump:parse (post-to-endpoint xml)))

 (defmacro define-api-call (name (&rest args) method-name &body elements)

   `(defun ,name ,args

@@ -1,8 +1,11 @@

 ;;;; package.lisp

 (defpackage #:tempores.packages

-  (:use #:cl))

+  (:use #:cl)

+  (:export #:*tempores-packages*))

 (in-package #:tempores.packages)

+(eval-when (:load-toplevel :compile-toplevel :execute)

+  (defparameter *tempores-packages* '()))

 (defpackage #:generic-equals

   (:use #:cl)

@@ -12,7 +15,7 @@

   (: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

@@ -20,10 +23,12 @@

   (: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

@@ -32,12 +37,14 @@

   (: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)

@@ -153,7 +153,7 @@

           (extra-space (.optional (.whitespace))))

     (if extra-space

       (error 'invalid-whitespace :failed-chunk extra-space)

-      (.fail))))  

+      (.fail))))

 (defun .initial-space ()

   (.or (.extra-whitespace)

@@ -282,10 +282,6 @@

 (defun .parse-all-records ()

   (.prog1 (.date-records) (.not (.item))))

-#|(defun parse (data)|#

-#|  (alet (run (.date-records) data)|#

-#|    (values (caar it) (cdar it))))|#

-

 ;; This will help make sure everything is consumed when

 ;; we don't care about the parser's output.

 (defun cdar-equal (a b) (== (cdar a) (cdar b)))

@@ -173,6 +173,8 @@

          (flag :long-name "post-hours"

                :description "Post hours to freshbooks (requires manual setup of Freshbooks keys)"))

   (group (:header "Self-test options")

+         (flag :long-name "dependencies"

+               :description "Graph the dependencies of this project")

          (flag :long-name "run-tests"

                :description "Run the tests")

          (enum :long-name "output-style"

@@ -207,6 +209,7 @@

       (cond

         ((getopt :long-name "help") (help))

         ((getopt :long-name "version") (show-version))

+        ((getopt :long-name "dependencies") (format t (tempores.package-grapher::graph-tempores-packages)))

         ((getopt :long-name "post-hours") (let ((*print-pretty* nil))

                                             (loop for item in (tempores.freshbooks::post-time-entries-main)

                                                   do (format t "Posted an entry")

@@ -34,7 +34,8 @@

                (:file "mvc")

                (:file "main-classes")  

                (:file "freshbooks")  

-               (:file "tempores")))

+               (:file "tempores")  

+               (:file "package-grapher")))

 ;; vim: set ft=lisp: