mirror of
https://github.com/penpot/penpot.git
synced 2025-01-10 00:40:30 -05:00
🐛 Fix problem with content
This commit is contained in:
parent
4b9e7fdb15
commit
8d634a79c8
1 changed files with 5 additions and 2 deletions
|
@ -44,7 +44,9 @@
|
|||
(:large-arc-flag params) ","
|
||||
(:sweep-flag params) ","
|
||||
(:x params) ","
|
||||
(:y params)))))
|
||||
(:y params))
|
||||
|
||||
"")))
|
||||
|
||||
(defn command->string [{:keys [command relative] :as entry}]
|
||||
(let [command-str (case command
|
||||
|
@ -57,7 +59,8 @@
|
|||
:smooth-curve-to "S"
|
||||
:quadratic-bezier-curve-to "Q"
|
||||
:smooth-quadratic-bezier-curve-to "T"
|
||||
:elliptical-arc "A")
|
||||
:elliptical-arc "A"
|
||||
"")
|
||||
command-str (if relative (str/lower command-str) command-str)
|
||||
param-list (command->param-list entry)]
|
||||
(str command-str param-list)))
|
||||
|
|
Loading…
Reference in a new issue