spec.cljc

(ns qlkit.spec
  (:require [clojure.spec.alpha :as s]))

(def ^:dynamic *defining-component?*)

(defn mutation-query? [k]
  (= \! (last (name k))))

(defn contains-mutation? [query-term]
  (->> query-term
       (filter vector?)
       (map first)
       (some mutation-query?)))

(s/def ::component-definition-rules
  (fn [query-term]
    (if *defining-component?*
      (not (contains-mutation? query-term))
      true)))

(s/def ::query-term
  (s/spec (s/and vector?
                 ::component-definition-rules
                 (s/cat
                  :tag keyword?
                  :attrs (s/? map?)
                  :children (s/* ::query-term)))))

(s/def ::query
  (s/spec (s/and vector? (s/cat :query (s/* ::query-term)))))

(defn query-spec [query & [defining-component?]]
  (binding [*defining-component?* defining-component?]
    (when-not (s/valid? ::query query)
      (throw (ex-info (str "Invalid query: \n" query "\n" (with-out-str (s/explain ::query query))) {})))))