jenkins.clj

(defn chat-status [job-name]
  "Sends job status info to chat. Sample output:
  SUCCESS at Wed Nov 16. Started by trevor.
  Currently building? false
  Show 6 rumors before truncating"
  (let [json (status job-name)]
    (println json)
    (if-let [building (str (:building json))] ; convert to string so a `false` doesn't give a false-negative
      (let [result (str (:result json))
            changeset (s/join
                        \newline 
                        (map (fn [i]
                               (let [msg (:msg i)
                                     author (if (seq (:author i))
                                              (:fullName (:author i)) ; git
                                              (:user i))]; svn
                                 (str author ": " msg))) 
                             (:items (:changeSet json))))]
        (cf/send-paste (s/join \newline
                               [(:url json)
                                (str result " at " (c/to-date (c/from-long (:timestamp json))) ". " (:shortDescription (first (:causes (first (:actions json))))) ".")
                                (str "Currently building: " building)
                                ""
                                changeset
                                ]))))))