41 lines
1.3 KiB
Clojure
41 lines
1.3 KiB
Clojure
(ns auto-ap.views.pages.admin.reminders
|
|
(: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.reminders :as events]
|
|
[auto-ap.views.utils :refer [login-url dispatch-value-change dispatch-event date-time->str date->str]]
|
|
[cljs.reader :as edn]
|
|
|
|
[auto-ap.routes :as routes]
|
|
[bidi.bidi :as bidi]))
|
|
|
|
|
|
(defn reminders-table []
|
|
(let [reminders (or @(re-frame/subscribe [::subs/reminders]) [])]
|
|
[:table {:class "table", :style {:width "100%"}}
|
|
[:thead
|
|
[:tr
|
|
[:th "Vendor"]
|
|
[:th "Scheduled Date"]
|
|
[:th "Status"]
|
|
[:th "Email"]]]
|
|
[:tbody (for [{:keys [id vendor scheduled sent email ]} reminders]
|
|
^{:key id}
|
|
[:tr
|
|
[:td (:name vendor)]
|
|
[:td (date->str scheduled)]
|
|
[:td (when sent
|
|
[:span [:span.icon [:i.fa.fa-check]] "Sent " (date-time->str sent)]) ]
|
|
[:td email]])]]))
|
|
|
|
|
|
(defn admin-reminders-page []
|
|
[(with-meta
|
|
(fn []
|
|
[:div
|
|
[:h1.title "Reminders"]
|
|
[reminders-table]])
|
|
{:component-did-mount (fn []
|
|
(re-frame/dispatch [::events/mounted]))})])
|