Question

我正在尝试创建生成包含一些数据的表的模板。数据来自msh-contents中定义的地图。

   (require '[net.cgrand.enlive-html :as html])

   (def msh-contents {:title "Events mashup",
                  :data-content [{:title "ICTM Study Group ",  
                                :url "http://some-url.com"} 
                                {:title "Volodja Balzalorsky - Hinko Haas",
                                :url "http://some- other-url.com"}
                                ]})

   ;; define snippets based on some divs in the template
    (html/defsnippet header-cell (template-div) [:div.Heading :div.Cell][value]
    (html/content value))

   (html/defsnippet value-cell (template-div) [:div.Row :div.Cell] [value]
   (html/content value))

   ;; define a template
   (html/deftemplate mshp "index.html" [cont]
   [:div.Heading] 
   (html/content (for [c (keys (first (:data-content cont)))] (header-cell (name c))))
   [:div.Row] 
   (html/content (map #(value-cell %) (for[e (:data-content cont)] (vals e)))))

因此，在REPL中调用模板

   (mshp msh-contents)

产生错误：IllegalArgumentException ArityException传递给的参数arg（0）错误：PersistentArrayMap clojure.lang.AFn.throwArity（AFn.java:437），可能是因为片段产生了LazySeq。

Answer 1

这可能真的很蠢，但代码对我来说非常好。我做的唯一区别是将你的html表示为打嗝符号，然后转换为节点，相当于只给它一个html文件（我这样做是因为我还没弄清楚html-resource究竟是如何工作的，不知道在哪里我可以把文件）。下面的工作代码：

(require '[net.cgrand.enlive-html :as h])

(def msh-contents {:title "Events mashup",
     :data-content [{:title "ICTM Study Group ",  
                            :url "http://some-url.com"} 
                            {:title "Volodja Balzalorsky - Hinko Haas",
                            :url "http://some- other-url.com"}]})

(defn template-div []
  (h/html [:div {:class "Table"}
                [:div {:class "Title"}
                      [:p "This is a Table"]]
                [:div {:class "Heading"}
                      [:div {:class "Cell"}
                            [:p "Heading 1"]]]
                [:div {:class "Row"}
                      [:div {:class "Cell"}
                            [:p "Row 1 Column 1"]]]]))

(defn index []
  (h/html [:html [:div {:class "Table"}
                       [:div {:class "Title"}
                             [:p "This is a Table"]]
                       [:div {:class "Heading"}
                             [:div {:class "Cell"}
                                   [:p "Heading 1"]]]
                       [:div {:class "Row"}
                             [:div {:class "Cell"}
                                   [:p "Row 1 Column 1"]]]]]))

(h/defsnippet header-cell (template-div) [:div.Heading :div.Cell] [value]
              (h/content value))

(h/defsnippet value-cell (template-div) [:div.Row :div.Cell] [value]
              (h/content value))

(h/deftemplate mshp (index) [cont]
               [:div.Heading] 
               (h/content (for [c (keys (first (:data-content cont)))] (header-cell (name c))))
               [:div.Row] 
               (h/content (map #(value-cell %) (for[e (:data-content cont)] (vals e)))))

最终结果：

(clojure.string/join (mshp msh-contents))
=> "<html><div class=\"Table\"><div class=\"Title\"><p>This is a Table</p></div><div class=\"Heading\"><div class=\"Cell\">title</div><div class=\"Cell\">url</div></div><div class=\"Row\"><div class=\"Cell\">ICTM Study Group http://some-url.com</div><div class=\"Cell\">Volodja Balzalorsky - Hinko Haashttp://some- other-url.com</div></div></div></html>"

在执行defsnippet时，您可能会给(template-div)一个不良来源。 defsnippet和deftemplate都接受节点。当您为它们提供类似"index.html"的文件时，它会将文件转换为节点。

Clojure：enlive deftemplate不能使用片段

1 个答案: