From 89cb20ada76fd85044286bd6bbc5c5f49d61056e Mon Sep 17 00:00:00 2001
From: "alonso.torres" <alonso.torres@kaleidos.net>
Date: Thu, 4 Feb 2021 14:23:56 +0100
Subject: [PATCH] :bug: Fixes Ctrl+a for viewer

---
 frontend/src/app/main/data/viewer.cljs | 25 +++++++++++++------------
 1 file changed, 13 insertions(+), 12 deletions(-)

diff --git a/frontend/src/app/main/data/viewer.cljs b/frontend/src/app/main/data/viewer.cljs
index 5ee01939b..96d3f1bdd 100644
--- a/frontend/src/app/main/data/viewer.cljs
+++ b/frontend/src/app/main/data/viewer.cljs
@@ -112,21 +112,22 @@
 (defn bundle-fetched
   [{:keys [project file page share-token token libraries users] :as bundle}]
   (us/verify ::bundle bundle)
-  (ptk/reify ::file-fetched
+  (ptk/reify ::bundle-fetched
     ptk/UpdateEvent
     (update [_ state]
       (let [objects (:objects page)
             frames  (extract-frames objects)]
-        (assoc state
-               :viewer-libraries (d/index-by :id libraries)
-               :viewer-data {:project project
-                             :objects objects
-                             :users (d/index-by :id users)
-                             :file file
-                             :page page
-                             :frames frames
-                             :token token
-                             :share-token share-token})))))
+        (-> state
+            (assoc :viewer-libraries (d/index-by :id libraries))
+            (update :viewer-data assoc
+                    :project project
+                    :objects objects
+                    :users (d/index-by :id users)
+                    :file file
+                    :page page
+                    :frames frames
+                    :token token
+                    :share-token share-token))))))
 
 (defn fetch-comment-threads
   [{:keys [file-id page-id] :as params}]
@@ -346,7 +347,7 @@
 
 
 (defn set-current-frame [frame-id]
-  (ptk/reify ::current-frame
+  (ptk/reify ::set-current-frame
     ptk/UpdateEvent
     (update [_ state]
       (assoc-in state [:viewer-data :current-frame-id] frame-id))))