0

我有以下代码,旨在将一组设备表示为 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 图像。

4

1 回答 1

1

问题是你unify不是独生子。在 ClojureScript 中,unify 的语义是“确保这里所有的孩子都是通过这个模板 fn 获得的这些数据”,而正在发生的事情是 Singult 正试图将rect变成 a g(以匹配模板)。这是荒谬的,这就是它爆炸的原因。如果你包装统一,它看起来像

[:g.devices (unify ...)]

你应该没事。

这在服务器端有效,因为unify被视为map.

于 2012-08-10T14:48:31.603 回答