3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-06-06 13:21:39 +02:00
Code Issues Projects Releases Packages Wiki Activity

🎉 Add delay interactions trigger

Browse source
This commit is contained in:
Andrés Moya 2021-09-24 10:07:10 +02:00 • committed by Alonso Torres
parent edefb588b6
commit ed380c86eb
7 changed files with 139 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

19
frontend/src/app/main/ui/viewer/shapes.cljs
View file

@ -26,6 +26,7 @@
[app.main.ui.shapes.text :as text]
[app.util.dom :as dom]
[app.util.object :as obj]
[app.util.timers :as tm]
[rumext.alpha :as mf]))
(defn activate-interaction
@ -142,6 +143,19 @@
(doseq [interaction interactions-inv]
(deactivate-interaction interaction shape)))))
(defn on-load
[shape]
(let [interactions (->> (:interactions shape)
(filter #(= (:event-type %) :after-delay)))]
(loop [interactions (seq interactions)
sems []]
(if-let [interaction (first interactions)]
(let [sem (tm/schedule (:delay interaction)
#(activate-interaction interaction shape))]
(recur (next interactions)
(conj sems sem)))
sems))))
(mf/defc interaction
[{:keys [shape interactions show-interactions?]}]
(let [{:keys [x y width height]} (:selrect shape)
@ -173,6 +187,11 @@
svg-element? (and (= :svg-raw (:type shape))
(not= :svg (get-in shape [:content :tag])))]
(mf/use-effect
(fn []
(let [sems (on-load shape)]
#(run! tm/dispose! sems))))
(if-not svg-element?
[:> shape-container {:shape shape
:cursor (when (cti/actionable? interactions) "pointer")