aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorTeddy Wing2022-05-07 17:53:39 +0200
committerTeddy Wing2022-05-07 17:53:39 +0200
commitad6751cf6170a1aee72488463780c6e9e626ffa7 (patch)
tree0c8cb44659cb41e50d43d0fa26451ab01889d982 /src
parent8a7877c9ceabf9ca9221551d3451818e13224714 (diff)
downloadwajir-ad6751cf6170a1aee72488463780c6e9e626ffa7.tar.bz2
fetch-issues: Move Atlassian URL endpoint to argument
This needs to be configurable as it will be different for each organisation.
Diffstat (limited to 'src')
-rw-r--r--src/main.lisp5
1 files 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)