0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-01-10 17:00:36 -05:00

Consider overlays inside flows

This commit is contained in:
Andrés Moya 2021-10-20 13:59:53 +02:00 committed by Andrés Moya
parent 5b9bcf8b1d
commit a4bbfe3c79

View file

@ -362,15 +362,15 @@
(some #(= (:event-type %) :click) interactions)) (some #(= (:event-type %) :click) interactions))
(defn flow-origin? (defn flow-origin?
"Check if there is any interaction of type :navigate that goes outside" "Check if there is any interaction that is the start or the continuation of a flow"
[interactions] [interactions]
(some #(and (= (:action-type %) :navigate) (some #(and (#{:navigate :open-overlay :toggle-overlay :close-overlay} (:action-type %))
(some? (:destination %))) (some? (:destination %)))
interactions)) interactions))
(defn flow-to? (defn flow-to?
"Check if there is any interaction of type :navigate that goes to the given frame" "Check if there is any interaction that flows into the given frame"
[interactions frame-id] [interactions frame-id]
(some #(and (= (:action-type %) :navigate) (some #(and (#{:navigate :open-overlay :toggle-overlay :close-overlay} (:action-type %))
(= (:destination %) frame-id)) (= (:destination %) frame-id))
interactions)) interactions))