HassanYA

(require '[starfederation.datastar.clojure.adapter.http-kit :as hk-gen])

(defn short-sse
  [handler]
  (fn [request]
    (let [hooks (handler request)
          on-init (:init hooks)
          on-open (:open hooks)
          on-close (:close hooks)
          init-results (when on-init (on-init))]

HassanYA

(ns utils.query
  (:require [datomic.api :refer [q]]))

(defn- in?
  [elm coll]
  (some #(= elm %) coll))

(defn qr
  "returns the first items of each tuple in `coll`"
  [coll]

HassanYA

HassanYA

HassanYA