idea: unify with predicate

[dustingetz]

(tests
  (def h (clojure.java.io/file "src/"))
  (type h) := java.io.File
  (datafy h)
  := #:user.datafy-fs{:name "src",
                      :lastModifiedTime _,
                      :size _,
                      :isDirectory ::folder,
                      :children ~seq?})                ; here

as well as {:children [~(instance? java.io.File %) & _]}

[dustingetz]

(tests
  (->> (m/? (query! '[:find (pull ?tx [:db/id :db/txInstant])
                     :where [?tx :db/txInstant]] db))
       (take 5))
  := [[#:db{:id _, & ?kvs}] & ?xs])

[dustingetz]

https://github.com/nubank/matcher-combinators