scroll: remove dead code

src/hyperfiddle/electric_scroll0.cljc

@@ -1,12 +1,10 @@
 (ns hyperfiddle.electric-scroll0
   (:require [clojure.math :as math]
-            [contrib.assert :refer [check]]
             [contrib.data :refer [clamp window]]
             [contrib.missionary-contrib :as mx]
             [hyperfiddle.electric3 :as e]
             [hyperfiddle.electric-dom3 :as dom]
             [hyperfiddle.rcf :as rcf]
-            [hyperfiddle.incseq :as i]
             [missionary.core :as m]
             [hyperfiddle.electric-local-def3 :as l]))
 
@@ -59,46 +57,17 @@
   (e/client (doto (e/input (scroll-window row-height record-count node props))
               #_(prn 'Scroll-window))))
 
-(e/defn Spool2 [cnt xs! offset limit]
+(e/defn Spool2 [cnt xs! offset limit] ; legacy
   (->> xs!
     (map vector (cycle (range limit)))
     (window cnt offset limit)
     (e/diff-by first)))
 
-(e/defn Spool [cnt xs! offset limit]
+(e/defn Spool [cnt xs! offset limit] ; legacy
   (->> (map-indexed vector xs!)
     (window cnt offset limit)
     (e/diff-by #(mod (first %) limit))))
 
-(e/defn Unrotate [limit xs]
-  (let [s (i/spine)]
-    (e/for [[i x] xs]
-      (s (mod i limit) {} [i x])
-      #_(e/amb)) ; undo permutations
-    (e/join s)))
-
-#_
-(e/defn Spool-scroll [record-count xs row-height node]
-  (Spool record-count xs (Scroll-window row-height record-count node)))
-
-(e/defn Scroll-indexed-headless
-  "random access (fixed height, counted, indexed)"
-  [viewport-node xs!
-   #_& {:keys [record-count row-height overquery-factor]
-        :or {overquery-factor 1}}]
-  (let [record-count (or record-count (count xs!))
-        row-height (check row-height) ; todo measure, account for browser zoom level
-        [offset limit] (Scroll-window row-height record-count viewport-node {:overquery-factor overquery-factor})]
-    {::Spool (e/fn [] (Spool record-count xs! offset limit)) ; site neutral, caller chooses
-     ::Offset (e/fn [] ; isolate animating value to not rebuild hashmap - micro optimization
-                (identity offset)) ; experimental: allow user to artificially delay offset if needed for UX
-     ::limit limit ::record-count record-count ::row-height row-height}))
-
-(e/defn TableScrollFixedCounted
-  [xs! TableBody
-   #_& {:keys [row-height]
-        :as props}])
-
 (defn index-ring
   "Return a vector of numbers of size `size` containing numbers [0..size[ shifted by `offset`, in the direction of sgn(offset).
   Contrary to usual \"sliding window\" shifting, where all slots shift one place left or right, this ring shifts as a tape.