Format 'issue created' email

Include a selection of metadata values in the email.

I needed to pass `config` to `deliver-email` in order to be able to
build a URL to the ticket based on the `endpoint` field.

Also needed to make the field list a vector instead of a list, otherwise
'jzon' interpreted it as being a plist and serialized it to a JSON
object.

1 files changed, 23 insertions, 6 deletions

diff --git a/src/email.lisp b/src/email.lisp
index c877eda..9e5929c 100644
--- a/src/email.lisp
+++ b/src/email.lisp
@@ -1,12 +1,12 @@
 (in-package :wajir)
 
-(defun deliver-email (recipient issue)
+(defun deliver-email (config issue)
   (cl-smtp:write-rfc8822-message
     *standard-output*
     (format nil "wajir@~A" (uiop:hostname))
-    `(,recipient)
+    `(,(email-to config))
     (format-subject issue)
-    (format-description issue)))
+    (format-body issue (endpoint config))))
 
 (defun format-subject (issue)
   (format nil
@@ -15,6 +15,23 @@
           (gethash "summary"
                    (gethash "fields" issue))))
 
-(defun format-description (issue)
-  (gethash "description"
-           (gethash "fields" issue)))
+(defun format-body (issue endpoint)
+  (let ((fields (gethash "fields" issue)))
+    (format nil
+            "~A created ~A:~%~%Summary: ~A~%Key: ~A~%URL: ~A~%Project: ~A~%Issue Type: ~A~%Reporter: ~A~%~%~%~A"
+            (gethash "displayName"
+                     (gethash "creator" fields))
+            (gethash "key" issue)
+            (gethash "summary" fields)
+            (gethash "key" issue)
+            (format nil
+                    "https://~A/browse/~A"
+                    endpoint
+                    (gethash "key" issue))
+            (gethash "name"
+                     (gethash "project" fields))
+            (gethash "name"
+                     (gethash "issuetype" fields))
+            (gethash "displayName"
+                     (gethash "reporter" fields))
+            (gethash "description" fields))))