implemented crud

src/cljs/auto_ap/views/pages/admin/rules/table.cljs

@@ -1,5 +1,76 @@
-(ns auto-ap.views.pages.admin.rules.table)
+(ns auto-ap.views.pages.admin.rules.table
+  (:require [auto-ap.subs :as subs]
+            [auto-ap.views.components.paginator :refer [paginator]]
+            [auto-ap.views.components.sorter :refer [sorted-column]]
+            [re-frame.core :as re-frame]))
 
+(defn table [{:keys [id rule-page on-params-change params status]}]
+  (let [opc (fn [p]
+              (on-params-change (merge @params p )))]
+    (fn [{:keys [id rule-page on-params-change params status]}]
+      (let [{:keys [sort-by asc]} @params
+            {:keys [transaction-rules start end count total]} @rule-page
+            selected-client @(re-frame/subscribe [::subs/client])]
+        [:div
+         [paginator {:start start :end end :count count :total total
+                     :on-change (fn [p ]
+                                  (on-params-change (merge @params p)))}]
+         [:table.table.is-fullwidth.compact
+          [:thead  
+           [:tr  
+            [sorted-column {:on-sort opc
+                            :style {:width "25%" :cursor "pointer"}
+                            :sort-key "client"
+                            :sort-by sort-by
+                            :asc asc}
+             "Client"]
 
-(defn table [x]
-  [:div])
+            [sorted-column {:on-sort opc
+                            :style {:width "25%" :cursor "pointer"}
+                            :sort-key "bank-account"
+                            :sort-by sort-by
+                            :asc asc}
+             "Bank Account"]
+
+            [sorted-column {:on-sort opc
+                            :style {:width "25%" :cursor "pointer"}
+                            :sort-key "description"
+                            :sort-by sort-by
+                            :asc asc}
+             "Description"]
+
+            [sorted-column {:on-sort opc
+                            :style {:width "8em" :cursor "pointer"}
+                            :class "has-text-right"
+                            :sort-key "amount-gte"
+                            :sort-by sort-by
+                            :asc asc}
+             ">="]
+            [sorted-column {:on-sort opc
+                            :class "has-text-right"
+                            :style {:width "8em" :cursor "pointer"}
+                            :sort-key "amount-lte"
+                            :sort-by sort-by
+                            :asc asc}
+             "<="]
+
+            [sorted-column {:on-sort opc
+                            :style {:width "25%" :cursor "pointer"}
+                            :sort-key "note"
+                            :sort-by sort-by
+                            :asc asc}
+             "Note"]]]
+          [:tbody
+           (if (:loading @status)
+             [:tr 
+              [:td {:col-span 5}
+               [:i.fa.fa-spin.fa-spinner]]]
+             (for [{:keys [client bank-account description amount-lte amount-gte note] :as r} transaction-rules]
+               ^{:key id}
+               [:tr {:class (:class r)}
+                [:td (:name client)]
+                [:td (:name bank-account)]
+                [:td description]
+                [:td.has-text-right amount-gte ]
+                [:td.has-text-right amount-lte]
+                [:td note]]))]]]))))