From ad6751cf6170a1aee72488463780c6e9e626ffa7 Mon Sep 17 00:00:00 2001
From: Teddy Wing
Date: Sat, 7 May 2022 17:53:39 +0200
Subject: fetch-issues: Move Atlassian URL endpoint to argument

This needs to be configurable as it will be different for each
organisation.
---
 src/main.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/main.lisp b/src/main.lisp
index 39b8fb5..d71f4e8 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -8,12 +8,13 @@
   ;; 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"))
 
-(defun fetch-issues (jql &key basic-auth-token)
+(defun fetch-issues (endpoint jql &key basic-auth-token)
   (jzon:parse
-    (dex:post "https://example.atlassian.net/rest/api/3/search"
+    (dex:post (format nil "~A/rest/api/3/search" endpoint)
               :content
               (jzon:stringify
                 `((:jql . ,jql)
-- 
cgit v1.2.3