From 7690a088abe4bebde535074a72a13e73df5202ca Mon Sep 17 00:00:00 2001
From: Andrey Antukh <niwi@niwi.nz>
Date: Fri, 21 Oct 2016 00:17:08 +0200
Subject: [PATCH] Add better naming to newly created icon collections.

---
 src/uxbox/main/data/icons.cljs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/uxbox/main/data/icons.cljs b/src/uxbox/main/data/icons.cljs
index 887b5fd7b..51087383f 100644
--- a/src/uxbox/main/data/icons.cljs
+++ b/src/uxbox/main/data/icons.cljs
@@ -104,8 +104,8 @@
 (defrecord CreateCollection []
   rs/WatchEvent
   (-apply-watch [_ state s]
-    (let [coll {:name "Unnamed collection"
-                :id (uuid/random)}]
+    (let [name (str "Unnamed Collection (" (gensym "c") ")")
+          coll {:name name}]
       (->> (rp/req :create/icon-collection coll)
            (rx/map :payload)
            (rx/map collection-created)))))