Merge pull request #632 from awkay/timestamps

Added client timestamps to history as metadata
omcljs · Feb 29, 2016 · 8f31b2d · 8f31b2d
2 parents 8bbdebf + 4b8eedb
commit 8f31b2d
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/src/main/om/next/cache.cljs b/src/main/om/next/cache.cljs
@@ -3,10 +3,11 @@
 (deftype Cache [arr index size]
   Object
   (add [this id x]
-    (if (<= size (alength arr))
-      (let [id' (.shift arr)]
-        (swap! index #(-> % (dissoc id') (assoc id x))))
-      (swap! index assoc id x))
+    (let [x' (vary-meta x assoc :client-time (js/Date.))]
+      (if (<= size (alength arr))
+        (let [id' (.shift arr)]
+          (swap! index #(-> % (dissoc id') (assoc id x'))))
+        (swap! index assoc id x')))
     (.push arr id))
   (get [this id]
     (get @index id)))