From 9553c53d0064da9d1c5c1af303746f17efeb4f71 Mon Sep 17 00:00:00 2001
From: Teddy Wing
Date: Sun, 8 May 2022 00:07:16 +0200
Subject: Generate HTTP Basic auth base64 from user and token

---
 src/main.lisp | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

(limited to 'src')

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
-- 
cgit v1.2.3