(ns example.core
  (:require [reagent.core :as reagent]
            [datascript.core :as data]
            [hiposfer.rata.core :as rata]))

(defonce state (data/create-conn {:user/input {:db.unique :db.unique/identity}}))

(rata/listen! state)

(defn hello-world
  []
  (let [click-count @(rata/q! '[:find ?count .
                                :where [?input :user/input "click"]
                                       [?input :click/count ?count]]
                              state)] ;; this is conn not the db as in datascript !!
    [:div "For each click, you get a greeting :)"
     [:input {:type "button" :value "Click me!"
              :on-click #(data/transact! state [{:user/input "click"
                                                 :click/count (inc click-count)}])}]
     (for [i (range click-count)]
       ^{:key i}
       [:div "hello " i])]))

(reagent/render-component [hello-world]
                          (. js/document (getElementById "app")))