(in-package #:jira-api)

 (defparameter *hostname* "https://atomampd.atlassian.net")
 (defparameter *endpoint* (princ-to-string (puri:merge-uris *hostname* "/rest/api/2/")))

 (defparameter *agile-endpoint* (princ-to-string (puri:merge-uris *hostname* "/rest/agile/1.0/")))

 (defun update-hostname (base)
   (setf *hostname* (format nil "https://~a" base))

   (setf *endpoint* (princ-to-string (puri:merge-uris "/rest/api/2/" *hostname*)))
   (setf *agile-endpoint* (princ-to-string (puri:merge-uris *hostname* "/rest/agile/1.0/"))))
 
 (define-condition jira-error ()
   ())
 
 (define-condition auth-call-unauthorized (jira-error)
   ())
 
 (define-condition server-error ()
   ())

 
 (defun api-get-call (auth method &rest parameters)
   "Connect to a GET REST endpoint specified by method and return a stream from
    which the response can be read."
   (let ((drakma:*text-content-types* (acons "application" "json" drakma:*text-content-types*)))

     (format t "~&~a ~s~%" (puri:merge-uris method *endpoint*) (alexandria:plist-alist parameters))
     (multiple-value-bind (stream retcode)
         (drakma:http-request (puri:merge-uris method *endpoint*)
                              :parameters (alexandria:plist-alist parameters)
                              :basic-authorization auth
                              :want-stream t)
       (case retcode
         (401 (error 'auth-call-unauthorized))
         (500 (error 'server-error))
         (t stream)))))
 
 (defun agile-get-call (auth method &rest parameters)
   "Connect to a GET REST endpoint specified by method and return a stream from
    which the response can be read."
   (let ((drakma:*text-content-types* (acons "application" "json" drakma:*text-content-types*)))
     (format t "~&~a ~s~%" (puri:merge-uris method *agile-endpoint*) (alexandria:plist-alist parameters))
     (multiple-value-bind (stream retcode)
         (drakma:http-request (puri:merge-uris method *agile-endpoint*)
                              :parameters (alexandria:plist-alist parameters)
                              :basic-authorization auth
                              :want-stream t)
       (case retcode
         (401 (error 'auth-call-unauthorized))
         (500 (error 'server-error))
         (t stream)))))

 
 (defun api-post-call (auth method post-data)
   "Connect to a GET REST endpoint specified by method and return a stream from
    which the response can be read."
   (let ((drakma:*text-content-types* (acons "application" "json" drakma:*text-content-types*)))
     (drakma:http-request (puri:merge-uris method *endpoint*)
                          :method :POST
                          :content-type "application/json"
                          :content post-data
                          :basic-authorization auth
                          :want-stream t)))