Generate HTTP Basic auth base64 from user and token

2 files changed, 9 insertions, 5 deletions

diff --git a/src/main.lisp b/src/main.lisp
index d71f4e8..094bb41 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -7,10 +7,13 @@
   ;; Send email to ^maildir^program^ containing message with issue metadata
   ;; Continue to next page
 
-  (fetch-issues
-    "https://example.atlassian.net"
-    "project = \\\"FAKE\\\" AND watcher != currentUser() AND key > \\\"FAKE-100\\\" ORDER BY created DESC"
-    :basic-auth-token "TOKEN"))
+  (let ((basic-auth-token (cl-base64:string-to-base64-string
+                            (format nil "~A:~A" "name@example.com" "atlassian-token"))))
+
+    (fetch-issues
+      "https://example.atlassian.net"
+      "project = \\\"FAKE\\\" AND watcher != currentUser() AND key > \\\"FAKE-100\\\" ORDER BY created DESC"
+      :basic-auth-token basic-auth-token)))
 
 (defun fetch-issues (endpoint jql &key basic-auth-token)
   (jzon:parse
diff --git a/wajir.asd b/wajir.asd
index aaa0033..96cfd0c 100644
--- a/wajir.asd
+++ b/wajir.asd
@@ -12,7 +12,8 @@
 
 (defsystem wajir
   :version "0.0.1"
-  :depends-on (:com.inuoe.jzon
+  :depends-on (:cl-base64
+               :com.inuoe.jzon
                :dexador)
   :components ((:module "src"
                 :serial t