query-orphan-entities.clj

query-orphan-entities.clj

(defn orphan? [db e atts]
  (not-any? seq (for [a atts]
                  (xt/q db {:find '[e*]
                            :in '[e]
                            :limit 1
                            :where [['e* a 'e]]}
                        e))))

(let [node (xt/start-node {})]
  (xt/await-tx node (xt/submit-tx node [[::xt/put {:xt/id :foo2 :ref :foo}]
                                        [::xt/put {:xt/id :foo :ref :foo2}]
                                        [::xt/put {:xt/id :qux}]]))
  (with-open [db (xt/open-db node)]
    (xt/q db '{:find [e]
               :in [atts]
               :where [[e :xt/id]
                       [(dev/orphan? $ e atts)]]}
          (-> (xt/attribute-stats node)
              keys
              set
              (disj :xt/id)))))
;; => #{[:qux]}