Virtual pagination for accounts page

src/cljs/auto_ap/views/components/grid.cljs

@@ -141,13 +141,8 @@
 
 (defn cell [params]
   [:td params
-   [appearing {:visible? true
-               :timeout 1000
-               :enter-class "appear"
-               :exit-class "disappear"}
-
-    (into [:span.test ]
-          (r/children (r/current-component)))]])
+   (into [:span.test ]
+         (r/children (r/current-component)))])
 
 (defn body []
   (let [children (r/children (r/current-component))]
@@ -207,3 +202,11 @@
                      (into 
                       [:<> ]
                       (r/children (r/current-component))))))
+
+(defn virtual-paginate [start xs ]
+  (take 100 (drop start xs)))
+
+(defn virtual-paginate-controls [start xs]
+  {:start start :end (min (+ start 100)
+                          (count xs))
+   :total (count xs)})