started process of night time exclusions.

2014-12-27 22:59:50 -08:00
parent b20d8528ea
commit 8890961114
4 changed files with 37 additions and 23 deletions
--- a/desktop/src-common/advent/utils.clj
+++ b/desktop/src-common/advent/utils.clj
@@ -111,3 +111,6 @@
        (assoc-in entities [:cursor :override] (:cursor mouse-override))
        (assoc-in entities [:cursor :override] nil)))
    entities))
+
+(defn remove-interaction [entities id]
+  (update-in entities [:room :interactions] (fn [i] (remove #(= id (:id %)) i))))