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

🐛 Fix problem with content

This commit is contained in:
alonso.torres 2021-09-29 12:36:45 +02:00
parent 4b9e7fdb15
commit 8d634a79c8

View file

@ -44,7 +44,9 @@
(:large-arc-flag params) "," (:large-arc-flag params) ","
(:sweep-flag params) "," (:sweep-flag params) ","
(:x params) "," (:x params) ","
(:y params))))) (:y params))
"")))
(defn command->string [{:keys [command relative] :as entry}] (defn command->string [{:keys [command relative] :as entry}]
(let [command-str (case command (let [command-str (case command
@ -57,7 +59,8 @@
:smooth-curve-to "S" :smooth-curve-to "S"
:quadratic-bezier-curve-to "Q" :quadratic-bezier-curve-to "Q"
:smooth-quadratic-bezier-curve-to "T" :smooth-quadratic-bezier-curve-to "T"
:elliptical-arc "A") :elliptical-arc "A"
"")
command-str (if relative (str/lower command-str) command-str) command-str (if relative (str/lower command-str) command-str)
param-list (command->param-list entry)] param-list (command->param-list entry)]
(str command-str param-list))) (str command-str param-list)))