3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-05-25 03:56:11 +02:00
Code Issues Projects Releases Packages Wiki Activity

🐛 Import files with interactions correctly

Browse source
This commit is contained in:
Andrés Moya 2021-10-25 17:39:12 +02:00 • committed by Andrey Antukh
parent 75c8d97a6e
commit 6d28a9ad58
1 changed files with 20 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

30
frontend/src/app/util/import/parser.cljs
View file

@ -9,6 +9,7 @@
[app.common.data :as d] [app.common.data :as d]
[app.common.geom.matrix :as gmt] [app.common.geom.matrix :as gmt]
[app.common.geom.point :as gpt] [app.common.geom.point :as gpt]
[app.common.types.interactions :as cti]
[app.common.uuid :as uuid] [app.common.uuid :as uuid]
[app.util.color :as uc] [app.util.color :as uc]
[app.util.json :as json] [app.util.json :as json]
@ -755,14 +756,23 @@
(let [interactions-node (get-data node :penpot:interactions)] (let [interactions-node (get-data node :penpot:interactions)]
(->> (find-all-nodes interactions-node :penpot:interaction) (->> (find-all-nodes interactions-node :penpot:interaction)
(mapv (fn [node] (mapv (fn [node]
{:event-type (get-meta node :event-type keyword) (let [interaction {:event-type (get-meta node :event-type keyword)
:action-type (get-meta node :action-type keyword) :action-type (get-meta node :action-type keyword)}]
:delay (get-meta node :delay d/parse-double) (cond-> interaction
:destination (get-meta node :destination uuid/uuid) (cti/has-delay interaction)
:overlay-pos-type (get-meta node :overlay-pos-type keyword) (assoc :delay (get-meta node :delay d/parse-double))
:overlay-position-x (get-meta node :overlay-position-x d/parse-double)
:overlay-position-y (get-meta node :overlay-position-x d/parse-double) (cti/has-destination interaction)
:url (get-meta node :url str) (assoc :destination (get-meta node :destination uuid/uuid))
:close-click-outside (get-meta node :close-click-outside str->bool)
:background-overlay (get-meta node :background-overlay str->bool)}))))) (cti/has-url interaction)
(assoc :url (get-meta node :url str))
(cti/has-overlay-opts interaction)
(assoc :overlay-pos-type (get-meta node :overlay-pos-type keyword)
:overlay-position (gpt/point
(get-meta node :overlay-position-x d/parse-double)
(get-meta node :overlay-position-y d/parse-double))
:close-click-outside (get-meta node :close-click-outside str->bool)
:background-overlay (get-meta node :background-overlay str->bool)))))))))