我可以拉一個實體，它的父組件一直到組件樹上？

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」}]}]}