2

我目前正在使用美妙的Enlive作为模板引擎开发一个小型 CMS。Enlive 有一个宏调用at，它接受一个指定 HTML 片段的节点（映射）和任意数量的元组，每个元组由一个选择器（一个向量）和一个转换（一个闭包）组成。

(at a-node
  [:a :selector] a-transformation
  [:another :selector] another-transformation
  ...)

现在我想根据传入的数据/上下文生成元组。我尝试了很多不同的事情，但都没有成功。例如

(let [this (repository/u "http://example.com/ACMECorp")
      statements (repository/find-by-subject this)
      context {:depth 1}]
  `(at (snippet-for 'this 'context)
       [root] (set-attr :about (str 'this))
       ~@(loop [rules []
                st statements]
           (if-not (seq st)
             rules
             (recur (conj rules
                          `[:> (attr= :property ~(str (repository/predicate (first st))))]
                          `(content (renderit ~(repository/object (first st)) 'context)))
                    (rest st))))))

非常感谢任何帮助。

-约臣

4

2 回答 2

1

不确定它们是否可以互换，但看看 at* 函数。在我看来，你的问题在于成为一个宏。

编辑：他们不是。像这样称呼它：

(at* a-node
  [[:a :selector] a-transformation
   [:another :selector] another-transformation
   ...])
于 2011-07-23T21:21:52.390 回答
1

Clojure 是一个 Lisp，因此您始终可以回退到将您想要的代码构建为列表，然后调用eval它。我不是 100% 确定你给出的代码，但我猜你只是想在一个eval调用中包含你的整个语法引用。

(let [this (repository/u "http://example.com/ACMECorp")
      statements (repository/find-by-subject this)
      context {:depth 1}]
  (eval `(at (snippet-for 'this 'context)
             [root] (set-attr :about (str 'this))
             ~@(loop [rules []
                      st statements]
                 (if-not (seq st)
                   rules
                   (recur (conj rules
                                `[:> (attr= :property ~(str (repository/predicate (first st))))]
                                `(content (renderit ~(repository/object (first st)) 'context)))
                          (rest st)))))))
于 2011-07-24T13:02:08.060 回答