From 3307447f4a5c361fc2812244cd20c3bbe9a91bdc Mon Sep 17 00:00:00 2001
From: Teddy Wing
Date: Wed, 18 May 2022 23:52:47 +0200
Subject: main: Re-enable Jira watching code

I had disabled this for testing, and also only operated on the first
issue in the list for the same reason.
---
 src/main.lisp | 24 ++++++++++--------------
 1 file changed, 10 insertions(+), 14 deletions(-)

diff --git a/src/main.lisp b/src/main.lisp
index 7a3db97..bd1e774 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -40,16 +40,12 @@
                     total))
 
           ;; Watch each issue.
-          ; (loop for issue
-          ;       across (gethash "issues" response)
-          ;       do (watch-issue config issue))
-          (let ((issue (aref (gethash "issues" response) 0)))
-            (watch-issue
-              config
-              issue
-              :basic-auth-token basic-auth-token)
-
-            (return))
+          (loop for issue
+                across (gethash "issues" response)
+                do (watch-issue
+                     config
+                     issue
+                     :basic-auth-token basic-auth-token))
 
           ;; Stop looping if we're on the last page of results.
           (when (> start-at
@@ -86,10 +82,10 @@
   (when (verbose config)
     (format t "Watching issue ~A~%" (gethash "key" issue)))
 
-  ; (add-watcher
-  ;   (endpoint config)
-  ;   issue
-  ;   :basic-auth-token basic-auth-token)
+  (add-watcher
+    (endpoint config)
+    issue
+    :basic-auth-token basic-auth-token)
 
   (if (sendmail config)
       (deliver-email config issue)))
-- 
cgit v1.2.3