Virtual pagination for accounts page

src/cljs/auto_ap/views/components/layouts.cljs

@@ -14,7 +14,8 @@
    [auto-ap.views.components.modal :as modal]
    [auto-ap.entities.vendors :as vendor]
    [auto-ap.views.components.vendor-dialog :as vendor-dialog]
-   [clojure.string :as str]))
+   [clojure.string :as str]
+   [reagent.core :as r]))
 
 
 (defn navbar-drop-down-contents [{:keys [id]} children ]
@@ -168,10 +169,11 @@
     [:p  
      [:strong "Integreat"] ]]])
 
-(defn appearing-side-bar [{:keys [visible?]} & children ]
+(defn appearing-side-bar [{:keys [visible?]} ]
   [appearing {:visible? visible? :enter-class "slide-in-right" :exit-class "slide-out-right" :timeout 500}
    [:aside  {:class "column is-4 aside menu" :style {:height "calc(100vh - 46px)" :overflow "auto"}}
-    (into [:div.sub-main {} ] children )]])
+    (into [:div.sub-main {} ]
+          (r/children (r/current-component)))]])
 
 (defn side-bar-layout [{:keys [side-bar main ap bottom right-side-bar]}]
   (let [ap @(re-frame/subscribe [::subs/active-page])