(defn make-commit-msg [reviewevent]
	(get-in env ["review" 0 "id"])
    )


(defn make-commit-email [event]
 (apply str (mapv make-commit-msg (get event "events")))
)

(deforch "Generic hook to send email when Merge request is created"
	(defstart
		:from :mergehook
		:when [
				(event=? "REVIEW" ["events" 0 "eventId"])
			]
		:then
		(let [event (:event context)]
			(email "pratima.mangena@oracle.com" "[Generic webhook from webhook.git] merge notification"
					(make-commit-email event))
		)
	)
)