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:
parent
4b9e7fdb15
commit
8d634a79c8
1 changed files with 5 additions and 2 deletions
|
@ -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)))
|
||||||
|
|
Loading…
Reference in a new issue