vendors.

src/cljs/auto_ap/views/pages/admin/vendors.cljs

@@ -0,0 +1,102 @@
+(ns auto-ap.views.pages.admin.vendors
+  (:require-macros [cljs.core.async.macros :refer [go]])
+  (:require [re-frame.core :as re-frame]
+            [reagent.core :as reagent]
+            [auto-ap.subs :as subs]
+            [auto-ap.events.admin.vendors :as events]
+            [auto-ap.views.utils :refer [login-url dispatch-value-change]]
+            [cljs.reader :as edn]
+            [auto-ap.routes :as routes]
+            [bidi.bidi :as bidi]))
+(defn vendors-table []
+  (let [vendors (re-frame/subscribe [::subs/vendors])
+        admin-vendors (re-frame/subscribe [::subs/admin-vendors])
+        editing-vendor (:editing @admin-vendors)]
+    (println @vendors)
+    [:table {:class "table", :style {:width "100%"}}
+     [:thead  
+      [:tr  
+       [:th "Name"]
+       [:th "Email"]
+       [:th "Invoice Reminders"]]]
+     [:tbody (for [{:keys [id name email data invoice-reminder-schedule]} @vendors]
+               ^{:key (str name "-" id )}
+               [:tr {:on-click (fn [] (re-frame/dispatch [::events/edit id]))
+                     :style {"cursor" "pointer"}}
+                [:td name]
+                [:td email]
+                [:td invoice-reminder-schedule]])]]))
+
+(defn admin-vendors-page []
+  [(with-meta
+     (fn []
+       [:div {:class "inbox-messages"}
+        [:div.hero
+         [:div.hero-body
+          [:div.container
+           (let [vendors (re-frame/subscribe [::subs/vendors])
+                 admin-vendors (re-frame/subscribe [::subs/admin-vendors])
+                 editing-vendor (:editing @admin-vendors)]
+             
+             [:div
+              [:h1.title "Vendors"]
+              [vendors-table]
+              
+
+
+              (when editing-vendor
+                [:div.modal.is-active
+                 [:div.modal-background {:on-click (fn [] (re-frame/dispatch [::events/edit nil]))}]
+                 
+                 [:div.modal-card
+                  [:header.modal-card-head
+                   [:p.modal-card-title
+                    (str "Edit " (:name editing-vendor))]
+                   [:button.delete {:on-click (fn [] (re-frame/dispatch [::events/edit nil]))}]]
+                  [:section.modal-card-body
+                   [:div.field
+                    [:label.label  "Name"]
+                    [:div.control
+                     [:input.input {:type "text" :value (:name editing-vendor)
+                                    :on-change (dispatch-value-change [::events/change [:name]])}]]]
+
+                   [:div.field
+                    [:label.label "Email"]
+                    [:div.control
+                     [:input.input {:type "email"
+                                    :value (:email editing-vendor)
+                                    :on-change (dispatch-value-change [::events/change [:email]])}]]]
+
+                   [:div.field
+                    [:labal.label "Invoice Reminders"]
+                    [:div.control
+                     [:label.radio 
+                      [:input {:type "radio"
+                               :name "schedule"
+                               :value "Weekly"
+                               :checked (if (= "Weekly" (:invoice-reminder-schedule editing-vendor))
+                                          "checked"
+                                          "")
+                               :on-change (dispatch-value-change [::events/change [:invoice-reminder-schedule]])}]
+                      " Send weekly"]]
+                    [:div.control
+                     [:label.radio 
+                      [:input {:type "radio"
+                               :name "schedule"
+                               :value "Never"
+                               :checked (if (= "Never" (:invoice-reminder-schedule editing-vendor))
+                                          "checked"
+                                          "")
+                               :on-change (dispatch-value-change [::events/change [:invoice-reminder-schedule]])}]
+                      " Never"]]]
+                   
+                   (when (:saving? editing-vendor) [:div.is-overlay {:style {"backgroundColor" "rgba(150,150,150, 0.5)"}}])]
+                  
+                  [:footer.modal-card-foot
+                   [:a.button.is-primary {:on-click (fn [] (re-frame/dispatch [::events/save]))}
+                    [:span "Save"] 
+                    (when (:saving? editing-vendor)
+                      [:span.icon
+                       [:i.fa.fa-spin.fa-spinner]])]]]])])]]]])
+     {:component-did-mount (fn []
+                             (re-frame/dispatch [::events/mounted]))})])