Add missing fields on loaded image collections.

src/uxbox/main/data/images.cljs

@@ -45,16 +45,33 @@
       (rx/empty))))
 
 (defn initialize
-  []
+  [type id]
-  (Initialize.))
+  (Initialize. type id))
+
+;; --- Select a Collection
+
+(defrecord SelectCollection [type id]
+  rs/WatchEvent
+  (-apply-watch [_ state stream]
+    (rx/of (r/navigate :dashboard/images
+                       {:type type :id id}))))
+
+(defn select-collection
+  ([type]
+   (select-collection type nil))
+  ([type id]
+   {:pre [(keyword? type)]}
+   (SelectCollection. type id)))
 
 ;; --- Color Collections Fetched
 
 (defrecord CollectionsFetched [items]
   rs/UpdateEvent
   (-apply-update [_ state]
-    (reduce (fn [acc {:keys [id] :as item}]
+    (reduce (fn [state item]
-               (assoc-in acc [:images-by-id id] item))
+              (let [id (:id item)
+                    item (assoc item :type :own)]
+                (assoc-in state [:images-by-id id] item)))
             state
             items)))
 
@@ -80,10 +97,11 @@
 (defrecord CollectionCreated [item]
   rs/UpdateEvent
   (-apply-update [_ state]
-    (-> state
+    (let [item (assoc item :type :own)]
-        (assoc-in [:images-by-id (:id item)] item)
+      (-> state
-        (assoc-in [:dashboard :collection-id] (:id item))
+          (assoc-in [:images-by-id (:id item)] item)
-        (assoc-in [:dashboard :collection-type] :own))))
+          (assoc-in [:dashboard :collection-id] (:id item))
+          (assoc-in [:dashboard :collection-type] :own)))))
 
 (defn collection-created
   [item]