Generate HTTP Basic auth base64 from user and token

1 files changed, 7 insertions, 4 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