gistfile1.clj

(by :service
  (coalesce
    (smap folds/sum (with {:host "total cluster" :state "ok"} index))
    (smap
      (fn [events]
        (let [total (:metric (folds/sum events))]
          (info total " " (type events) " " (map (fn [e] (:host e)) events))
          ;(info (map (fn [e] e) events))
        )
      )
    )
  )
)