Skip to content

Instantly share code, notes, and snippets.

@xeago

xeago/rewrite.clj

Created March 30, 2014 22:09
Show Gist options
  • Save xeago/9880716 to your computer and use it in GitHub Desktop.
Save xeago/9880716 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
rewrite.clj
(where* trigger-predicate
(with :state "critical" s)
(else (where* (fn [events] (and (not @state-ok) #(cancel-predicate events)))
(with :state "critical" s)
(else (with :state "ok" s)))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment