example.lisp

(xhtmlambda::def-element <::request)

(defun post-to-endpoint (xml)
  (let ((drakma:*text-content-types* (acons "application" "xml" drakma:*text-content-types*)))
    (drakma:http-request *endpoint*
                         :basic-authorization (list *api-key* "X")
                         :method :post
                         :content (with-output-to-string (s)
                                    (format s "~w" xml)))))

(defmacro define-api-call (name (&rest args) method-name &body elements)
  `(defun ,name ,args
       (plump:parse
           (post-to-endpoint 
               (<:request (:method ,method-name)
                  ,@elements)))))

(define-api-call list-invoices () "invoice.list")
(define-api-call list-projects () "project.list")
(define-api-call list-tasks () "task.list")
(define-api-call list-payments () "payment.list")
(define-api-call list-clients () "client.list")