我可以拉一个实体，它的父组件一直到组件树上？

Question

是否有可能将实体和所有组件父项一直拉到树上？

反向递归拉。

如果不是，我该怎么做？

Answer 1

Datomic pull表达式支持反向属性导航。假设你的模式是这样的：

(d/transact conn [{:db/id     (d/tempid :db.part/db) 
        :db/ident    :node/children 
        :db/valueType   :db.type/ref 
        :db/cardinality  :db.cardinality/many 
        :db.install/_attribute :db.part/db}]) 

要创建树：

(defn node [name & children] 
    (cond-> {:db/id (d/tempid :db.part/user) 
      :db/doc name} 
    children (assoc :node/children children))) 

(d/transact conn [(node "L1" 
         (node "L1.1" 
           (node "L1.1.1") 
           (node "L1.1.2")) 
         (node "L1.2" 
           (node "L1.2.1")))]) 

使用查询拉组件父母递归（注意 “_children”）：

(d/q '[:find (pull ?e [:db/doc {:node/_children ...}]) . 
     :where [?e :db/doc "L1.2.1"]] 
    (d/db conn)) 

=> {：db/doc“L1.2.1”，：node/_children [{：db/doc“L1.2”，：node/_children [{：db/doc“L1”}]}]}