0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-01-09 08:20:45 -05:00

🐛 Fix problems importing files

This commit is contained in:
Andrés Moya 2021-11-12 12:23:27 +01:00 committed by Andrey Antukh
parent da6c62414b
commit c5adeecd90
2 changed files with 4 additions and 4 deletions

View file

@ -42,7 +42,8 @@
(let [head-p (gsp/command->point head) (let [head-p (gsp/command->point head)
head (cond head (cond
(and (= :close-path (:command head)) (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 nil
(= :close-path (:command head)) (= :close-path (:command head))

View file

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