🎉 Integrate exporter with svgclean.

This commit is contained in:
Andrey Antukh 2021-01-13 13:32:53 +01:00
parent 70d464189f
commit f66ddcaa2d
8 changed files with 165 additions and 75 deletions

View file

@ -68,10 +68,13 @@
(defn- do-svg-clean
[ctx data]
(let [res (promise)
cleaner (->> (graal/source "js" "require('svgclean')")
(graal/eval! ctx))
resultp (graal/invoke-member cleaner "optimize" data)]
(let [res (promise)
bindings (graal/get-bindings ctx "js")
optimize (-> (graal/get-bindings ctx "js")
(graal/get-member "svgc")
(graal/get-member "optimize"))
resultp (graal/invoke optimize data)]
(graal/invoke-member resultp "then"
(reify Consumer
(accept [_ val]

View file

@ -34,8 +34,8 @@
(.eval ^Context ctx ^Source source))
(defn ^Value get-bindings
[ctx]
(.getBindings ^Context ctx))
[ctx lang]
(.getBindings ^Context ctx ^String lang))
(defn ^Value get-member
[vobj name]