blob: 31814bbffa8095a5a4868ac4c76b8e961c97aeb6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
(in-package :wajir)
(defun main ()
;; Query page of issues
;; [Check not in database?] <- no
;; Start watching issue
;; Send email to ^maildir^program^ containing message with issue metadata
;; Continue to next page
(fetch-issues
"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)
(jzon:parse
(dex:post "https://example.atlassian.net/rest/api/3/search"
:content
(format nil "{
\"jql\": \"~A\",
\"fields\": [\"id\", \"key\", \"self\"]
}"
jql)
:headers `((:content-type . "application/json")
(:authorization
. ,(format nil "Basic ~A" basic-auth-token))))))
|
