0

データを含むテーブルを生成するテンプレートを作成しようとしています。データは、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 PersistentArrayMap clojure.lang.AFn.throwArity (AFn.java:437) に渡された引数の数 (0) が正しくありません。

4

1 に答える 1

1

これは本当にばかげているかもしれませんが、コードは私にとっては問題なく動作します。私が行った唯一の違いは、htmlをhiccup表記として表現し、ノードに変換することでした。これは、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"と、ファイルがノードに変換されます。

于 2014-07-13T22:35:07.800 に答える