Parse JSON from Jira response

Parse the Jira response into a hash that we can interact with.

Needed to do some finagling to get my "lib" submodule directory to be
searched for systems.

1 files changed, 23 insertions, 4 deletions

diff --git a/wajir.asd b/wajir.asd
index 2ebed6e..f283ad1 100644
--- a/wajir.asd
+++ b/wajir.asd
@@ -1,6 +1,25 @@
-(asdf:defsystem wajir
+; (push
+;   (merge-pathnames "lib/" (asdf:system-source-directory :wajir))
+;   asdf:*central-registry*)
+
+(in-package :asdf-user)
+
+; (initialize-source-registry
+;   '(:source-registry
+;     (:tree (merge-pathnames "lib/" (system-source-directory :wajir)))
+;   :inherit-configuration))
+
+(initialize-source-registry
+  `(:source-registry
+    (:tree ,(make-pathname :directory
+                           (append
+                             (pathname-directory *load-pathname*)
+                             '("lib"))))
+    :inherit-configuration))
+
+(defsystem wajir
   :version "0.0.1"
-  :depends-on (:cl-smtp
+  :depends-on (:com.inuoe.jzon
                :dexador)
   :components ((:module "src"
                 :serial t
@@ -12,5 +31,5 @@
   :entry-point "wajir")
 
 #+sb-core-compression
-(defmethod asdf:perform ((o asdf:image-op) (c asdf:system))
-  (uiop:dump-image (asdf:output-file o c) :executable t :compression t))
+(defmethod perform ((o image-op) (c system))
+  (uiop:dump-image (output-file o c) :executable t :compression t))