Creates a VictorOps adapter. Takes your API key and routing key and returns a map of functions :info, :warning, :critical, :acknowledgement and :recovery corresponding to the related VictorOps API message types. Each message’s entity id will be “/”. The state message will be the host, service, state and metric.

(let [vo (victorops "my-api-key" "my-routing-key")]
  (changed-state
    (where (state "info") (:info vo))
    (where (state "warning") (:warning vo))
    (where (state "critical") (:critical vo))
    (where (state "ok") (:recovery vo))))