match-datascript-parser.clj

(require '[clojure.core.match :refer [match]])
(require '[datascript.parser :refer [parse-query]])
(import (datascript.parser FindRel FindColl FindTuple FindScalar Variable Aggregate Pull))
(def q '[:find [?e ...] :where [?e :db/ident]])
(let [FindColl FindColl           ; Create locals for symbols
      FindScalar FindScalar
      FindRel FindRel
      FindTuple FindTuple]
  (match [(type (:qfind (parse-query q)))]
    [FindRel] :rel                ; match searches locals first before binding wildcards
    [FindColl] :coll
    [FindScalar] :scalar
    [FindTuple] :tuple))
; => :coll