diff options
Diffstat (limited to 'src/main.lisp')
-rw-r--r-- | src/main.lisp | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/src/main.lisp b/src/main.lisp new file mode 100644 index 0000000..4c1c498 --- /dev/null +++ b/src/main.lisp @@ -0,0 +1,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")))) |