Fix: revert to using D* CDN in examples

Author: JeremS

src/dev/examples/animation_gzip.clj

@@ -4,7 +4,6 @@
     [examples.animation-gzip.handlers :as handlers]
     [examples.animation-gzip.rendering :as rendering]
     [examples.animation-gzip.state :as state]
-    [examples.common :as c]
     [examples.utils :as u]
     [reitit.ring :as rr]
     [reitit.ring.middleware.exception :as reitit-exception]
@@ -13,7 +12,6 @@
     [starfederation.datastar.clojure.adapter.http-kit-schemas]
     [starfederation.datastar.clojure.adapter.ring :as ring-gen]
     [starfederation.datastar.clojure.adapter.ring-schemas]
-    [starfederation.datastar.clojure.api :as d*]
     [starfederation.datastar.clojure.api-schemas]
     [starfederation.datastar.clojure.brotli :as brotli]))
 
@@ -34,8 +32,7 @@
    ["/pause"     handlers/pause-handler]
    ["/updates"   (handlers/->updates-handler ->sse-response opts)]
    ["/refresh"   handlers/refresh-handler]
-   ["/resize"    handlers/resize-handler]
-   c/datastar-route])
+   ["/resize"    handlers/resize-handler]])
 
 
 (defn ->router [->sse-handler opts]

src/dev/examples/animation_gzip/animation.clj

@@ -44,7 +44,7 @@
   {:animator nil
    :animation-tick 100
    :clock 0
-   :size {:x 10 :y 10}
+   :size {:x 50 :y 50}
    :color :r
    :pings []})
 

src/dev/examples/animation_gzip/rendering.clj

@@ -34,19 +34,18 @@
 
 #_ {:clj-kondo/ignore true}
 (defn cell-color [state pos]
-  (let [general-clock (:clock state)] ;; TODO: don't need the clock
-    (dt/loopr [r 255
-               g 255
-               b 255]
-              [ping (:pings state)]
-      (let [intensity (compute-intensity ping pos)]
-        (if (pos? intensity)
-          (case (:color ping)
-            :r (recur r (modify-color g intensity) (modify-color b intensity))
-            :g (recur (modify-color r intensity) g (modify-color b intensity))
-            :b (recur (modify-color r intensity) (modify-color g intensity) b))
-          (recur r g b)))
-      [r g b])))
+  (dt/loopr [r 255
+             g 255
+             b 255]
+            [ping (:pings state)]
+    (let [intensity (compute-intensity ping pos)]
+      (if (pos? intensity)
+        (case (:color ping)
+          :r (recur r (modify-color g intensity) (modify-color b intensity))
+          :g (recur (modify-color r intensity) g (modify-color b intensity))
+          :b (recur (modify-color r intensity) (modify-color g intensity) b))
+        (recur r g b)))
+    [r g b]))
 
 
 

src/dev/examples/common.clj

@@ -2,7 +2,6 @@
   (:require
     [dev.onionpancakes.chassis.core :as h]
     [dev.onionpancakes.chassis.compiler :as hc]
-    [ring.util.response :as rur]
     [starfederation.datastar.clojure.consts :as consts]))
 
 
@@ -11,25 +10,13 @@
        consts/version
        "/bundles/datastar.js"))
 
-(def datastar-response
-  (-> (slurp "../../bundles/datastar.js")
-      rur/response
-      (rur/content-type "text/javascript")))
-
-
-(def datastar-route
-  ["/datastar.js"
-   (fn ([_req]                         datastar-response)
-       ([_req respond _raise] (respond datastar-response)))])
-
-
 (defn page-scaffold [body]
   (hc/compile
     [[h/doctype-html5]
      [:html
       [:head
        [:meta {:charset "UTF-8"}]
        [:script {:type "module"
-                 :src "/datastar.js"}]]
+                 :src cdn-url}]]
       [:body body]]]))