Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-01-10 08:50:57 -05:00
Code Issues Activity

Merge branch 'main' into develop

Browse source
This commit is contained in:
Andrey Antukh 2021-11-12 13:31:13 +01:00
commit 03e6a187c5
2 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
common/src/app/common/path/bool.cljc
View file

@ -42,7 +42,8 @@
(let [head-p (gsp/command->point head)
head (cond
(and (= :close-path (:command head))
(< (gpt/distance last-p last-move) 0.01))
(or (nil? last-p) ;; Ignore consecutive close-paths
(< (gpt/distance last-p last-move) 0.01)))
nil
(= :close-path (:command head))

5
common/src/app/common/types/interactions.cljc
View file

@ -69,8 +69,7 @@
(defmulti action-opts-spec :action-type)
(defmethod action-opts-spec :navigate [_]
(s/keys :req-un [::destination]
:opt-un [::preserve-scroll]))
(s/keys :opt-un [::destination ::preserve-scroll]))
(defmethod action-opts-spec :open-overlay [_]
(s/keys :req-un [::destination
@ -87,7 +86,7 @@
::background-overlay]))
(defmethod action-opts-spec :close-overlay [_]
(s/keys :req-un [::destination]))
(s/keys :opt-un [::destination]))
(defmethod action-opts-spec :prev-screen [_]
(s/keys :req-un []))