diff options
| -rw-r--r-- | src/config.lisp | 7 | ||||
| -rw-r--r-- | src/main.lisp | 12 |
2 files changed, 13 insertions, 6 deletions
diff --git a/src/config.lisp b/src/config.lisp index b1093b6..ecee3de 100644 --- a/src/config.lisp +++ b/src/config.lisp @@ -18,12 +18,17 @@ :initarg :sendmail :reader sendmail :documentation "Email sending client command") - (email-to :initarg :email-to :reader email-to :documentation "Email recipient") + (verbose + :initarg :verbose + :initform nil + :reader verbose + :documentation "Turn on verbose output") + (jql :initarg :jql :reader jql diff --git a/src/main.lisp b/src/main.lisp index 3b6da43..2ac7daf 100644 --- a/src/main.lisp +++ b/src/main.lisp @@ -36,10 +36,11 @@ (total (gethash "total" response))) - (format t "start-at: ~A max-results: ~A total: ~A~%" - start-at - max-results - total) + (when (verbose config) + (format t "start-at: ~A max-results: ~A total: ~A~%" + start-at + max-results + total)) ;; Watch each issue. ; (loop for issue @@ -85,7 +86,8 @@ (defun watch-issue (config issue &key basic-auth-token) ;; 1. Watch issue in Jira ;; 2. Send email - (format t "Watching issue ~A~%" (gethash "key" issue)) + (when (verbose config) + (format t "Watching issue ~A~%" (gethash "key" issue))) (add-watcher (endpoint config) |