DataScript set intersection query

datascript-set-intersection.clj

;; A variation for DataScript

(defn make-intersection-q
  "Generate an intersection q for searchable tags."
  [n]
  (assert (pos? n))
  (into
   [:find '[(pull ?e [*]) ...]
    :in '$ (->> (range 1 (inc n)) (mapv #(symbol (str "?v" %))))
    :where]
   (map
    (fn [n]
      ['?e :tags (symbol (str "?v" n))])
    (range 1 (inc n)))))



(defn search-intersection
  [db tags]
  (ds/q (make-intersection-q (count tags))
        db
        tags))