我有以下代码,旨在将一组设备表示为 SVG:
(ns foo.core
(:use [c2.core :only [unify]]
[c2.dom :only [replace! append!]]
[c2.svg :only [translate]]))
(def conf
{ :devices [{:alias "OSC Sender",
:name "OSC Sender",
:ins []},
{:alias "const2", :name "const",
:outs []}],
:layout [{:alias "const2",
:x 72.12447405329594,
:y 99.88499298737729},
{:alias "tick",
:x 82.5732819074334,
:y 133.91374474053296},
{:alias "OSC Sender",
:x 185.17741935483872,
:y 113.90322580645162}]})
(def render-config
[:svg {:viewBox "0 0 900 400"}
[:rect {:id "frame" :x "1" :y "1" :width "600" :height "300" :fill "none" :stroke "blue"}]
(unify (:layout conf)
(fn [{alias :alias x :x y :y}]
[:g {:transform (translate [x y])}
[:text alias]]))])
(append! "#main" render-config)
试图render-config
在 REPL 中进行评估,我得到:
[:svg {:viewBox "0 0 900 400"} [:rect {:width "600", :y "1", :x "1", :fill "none", :stroke "blue", :id "frame", :height "300"}] ([:g {:transform "translate(72,99)"} [:text "const2"]] [:g {:transform "translate(82,133)"} [:text "tick"]] [:g {:transform "translate(185,113)"} [:text "OSC Sender"]])]
对我来说,这看起来像是一个适当的 Hiccup 表示(当然unify
是它的魔力)。
render-config
然而,在网页上下文中进行评估时(使用singult
),我只得到一个错误。在浏览器中生成一个非常简单的 SVG(基本上只有封闭的“框架”矩形)。
任何提示/提示?
干杯!
注意:render-config
使用 进行渲染Hiccup
,然后将结果输出到文件中,会得到 Inkscape 可读的 SVG 图像。