From 96ca21277e7e04e1c3a1c56e49d99da93d24b28c Mon Sep 17 00:00:00 2001
From: Andrey Antukh <niwi@niwi.nz>
Date: Tue, 24 May 2016 00:14:52 +0300
Subject: [PATCH] Improved image collection title edition behavior.

---
 src/uxbox/ui/dashboard/images.cljs | 36 +++++++++++++++++-------------
 1 file changed, 21 insertions(+), 15 deletions(-)

diff --git a/src/uxbox/ui/dashboard/images.cljs b/src/uxbox/ui/dashboard/images.cljs
index 42b3e1f40..853d479dc 100644
--- a/src/uxbox/ui/dashboard/images.cljs
+++ b/src/uxbox/ui/dashboard/images.cljs
@@ -80,23 +80,28 @@
   (let [local (:rum/local own)
         dashboard (rum/react dashboard-l)
         own? (:builtin coll false)]
-    (letfn [(on-title-save [e]
-              (rs/emit! (di/rename-collection (:id coll) (:coll-name @local)))
-              (swap! local assoc :edit false))
-            (on-title-edited [e]
+    (letfn [(persist [event]
+              (let [name (:coll-name @local)]
+                (rs/emit! (di/rename-collection (:id coll) name))
+                (swap! local assoc :edit false)))
+
+            (on-key-down [event]
               (cond
-                (kbd/esc? e)
+                (kbd/esc? event)
                 (swap! local assoc :edit false)
 
-                (kbd/enter? e)
-                (do (dom/stop-propagation e)
-                    (on-title-save e))
+                (kbd/enter? event)
+                (do
+                  (dom/stop-propagation event)
+                  (persist event))))
 
-                :else
-                (let [content (dom/event->inner-text e)]
-                  (swap! local assoc :coll-name content))))
-            (on-title-edit [e]
+            (on-input [event]
+              (let [content (dom/event->inner-text event)]
+                (swap! local assoc :coll-name content)))
+
+            (on-edit [e]
               (swap! local assoc :edit true :coll-name (:name coll)))
+
             (on-delete [e]
               (rs/emit! (di/delete-collection (:id coll))))]
       (html
@@ -106,7 +111,8 @@
            [:div.dashboard-title-field
             [:span.edit
              {:content-editable ""
-              :on-key-down on-title-edited}
+              :on-input on-input
+              :on-key-down on-key-down}
              (:name coll)]
             [:span.close
              {:on-click #(swap! local assoc :edit false)}
@@ -116,8 +122,8 @@
         (if (and (not own?) coll)
           [:div.edition
            (if (:edit @local)
-             [:span {:on-click on-title-save} i/save]
-             [:span {:on-click on-title-edit} i/pencil])
+             [:span {:on-click persist} i/save]
+             [:span {:on-click on-edit} i/pencil])
            [:span {:on-click on-delete} i/trash]])]))))
 
 (def ^:private page-title