Only reaches root element about cljfx-dtlv HOT 2 CLOSED

(ns simpler
  (:require [datalevin.core :as dtlv]
            [cljfx.api :as fx]
            [clojure.core.cache :as cache]))

(def *store (dtlv/get-conn "path" schema)
(def *context (atom (fx/create-context {:dtlv *store} cache/lru-cache-factory)))

(dtlv/listen! *store :ui (fn [_] (swap! *context fx/swap-context assoc :max-tx (:max-tx @*store))))

(defn q [ctx query-vector]
  (let [_ (fx/sub-val ctx :max-tx)] ; make sub depend on :max-tx to provoke rendering
    (dtlv/q query-vector @(fx/sub-val ctx :dtlv)))