blob: c877edaca978552b6c80b52c6b15731184b46424 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
(in-package :wajir)
(defun deliver-email (recipient issue)
(cl-smtp:write-rfc8822-message
*standard-output*
(format nil "wajir@~A" (uiop:hostname))
`(,recipient)
(format-subject issue)
(format-description issue)))
(defun format-subject (issue)
(format nil
"[JIRA] (~A) ~A"
(gethash "key" issue)
(gethash "summary"
(gethash "fields" issue))))
(defun format-description (issue)
(gethash "description"
(gethash "fields" issue)))
|
