blob: 4c1c498c7ba1361e3935577f8c81cdf666bd3cea (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
(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
(dex:post "https://example.atlassian.net/rest/api/3/search"
:content
"{
\"jql\": \"project = \\\"FAKE\\\" AND watcher != currentUser() AND key > \\\"FAKE-100\\\" ORDER BY created DESC\",
\"fields\": [\"id\", \"key\", \"self\"]
}"
:headers '((:content-type . "application/json")
(:authorization . "Basic TOKEN"))))
|
