获取递归组件在Om中工作的问题？

问题描述：

(ns commentz.client 
    (:require 
    [om.core :as om :include-macros true] 
    [om.dom :as dom :include-macros true] 
    [clojure.browser.repl])) 

(def app-state 
    (atom 
    {:id "a" 
    :value "I am the greatest of comments!" 
    :user "1" 
    :anonymous false 
    :score 10 
    :children 
    [{:value "I am ok too." 
     :user "1" 
     :anonymous false 
     :score 4 
     :children 
     [{:value "I am the second greatest comment" 
     :user "2" 
     :anonymous false 
     :score 7 
     :children {}}]} 
    {:value "I like turtles" 
      :user "3" 
      :anonymous true 
      :score -3 
      :children {}}]})) 

(defn header [app owner] 
    (dom/div #js {:className "header"} 
      (dom/div #js {:className "vote"} 
        (dom/div #js {:className "up"}) 
        (dom/div #js {:className "down"})) 
      (dom/a #js {:className "username" :href (:user app)} (:user-name app)) 
      (dom/div #js {:className "score"} (:score app)))) 

(defn footer [app owner] 
    (dom/div #js {:className "footer"} 
      (dom/a #js {:className "permalink" :href (str "#" (:id app))} "permalink") 
      (dom/a #js {:className "reply"} "reply"))) 

(defn comment [app owner] 
    (reify 
    om/IRender 
    (render [this] 
     (dom/div {:id (:id app) :className "comment"} 
       (header app owner) 
       (dom/div #js {:className "value"} (:value app)) 
       (footer app owner) 
       (om/build-all comment (:children app)))))) 

(om/root comment app-state {:target (. js/document (getElementById "app"))})

上面的代码并成功地编译，但我没有看到任何东西递归。相反，当我用浏览器检查时，我看到以下内容。

10 
I am the greatest of comments! 
permalink reply 
0 32374988

我认为32374988可能是一个对象散列，不知道0是关于什么。无论如何，我的意图是看到所有4个评论都显示出来，其中一些评论嵌套在其他评论中。目前，我只获得根源评论，加上一些奇怪的0 32374988递归构建的评论应该是。任何帮助表示赞赏。谢谢。

我犯同样的错误，我来到这里的谷歌搜索“32374988”笑 –

答

(om/build-all)返回一个seq。尝试(apply dom/div nil ...)。

(apply dom/div {:id (:id app) :className "comment"} 
      (header app owner) 
      (dom/div #js {:className "value"} (:value app)) 
      (footer app owner) 
      (om/build-all comment (:children app))))))

获取递归组件在Om中工作的问题？

相关推荐