3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-05-19 10:36:12 +02:00
Code Issues Projects Releases Packages Wiki Activity

🐛 Fixes Ctrl+a for viewer

Browse source
This commit is contained in:
alonso.torres 2021-02-04 14:23:56 +01:00 • committed by Andrey Antukh
parent 32b0fd7b36
commit 89cb20ada7
1 changed files with 13 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

25
frontend/src/app/main/data/viewer.cljs
View file

@ -112,21 +112,22 @@
(defn bundle-fetched (defn bundle-fetched
[{:keys [project file page share-token token libraries users] :as bundle}] [{:keys [project file page share-token token libraries users] :as bundle}]
(us/verify ::bundle bundle) (us/verify ::bundle bundle)
(ptk/reify ::file-fetched (ptk/reify ::bundle-fetched
ptk/UpdateEvent ptk/UpdateEvent
(update [_ state] (update [_ state]
(let [objects (:objects page) (let [objects (:objects page)
frames (extract-frames objects)] frames (extract-frames objects)]
(assoc state (-> state
:viewer-libraries (d/index-by :id libraries) (assoc :viewer-libraries (d/index-by :id libraries))
:viewer-data {:project project (update :viewer-data assoc
:objects objects :project project
:users (d/index-by :id users) :objects objects
:file file :users (d/index-by :id users)
:page page :file file
:frames frames :page page
:token token :frames frames
:share-token share-token}))))) :token token
:share-token share-token))))))
(defn fetch-comment-threads (defn fetch-comment-threads
[{:keys [file-id page-id] :as params}] [{:keys [file-id page-id] :as params}]
@ -346,7 +347,7 @@
(defn set-current-frame [frame-id] (defn set-current-frame [frame-id]
(ptk/reify ::current-frame (ptk/reify ::set-current-frame
ptk/UpdateEvent ptk/UpdateEvent
(update [_ state] (update [_ state]
(assoc-in state [:viewer-data :current-frame-id] frame-id)))) (assoc-in state [:viewer-data :current-frame-id] frame-id))))