32 lines
1.7 KiB
Clojure
32 lines
1.7 KiB
Clojure
(ns auto-ap.ssr.components.date-range
|
|
(:require [auto-ap.ssr.components :as com]
|
|
[auto-ap.time :as atime]
|
|
[clj-time.coerce :as c]
|
|
[clj-time.core :as t]
|
|
[clj-time.periodic :as per]))
|
|
|
|
(defn date-range-field [{:keys [value id]}]
|
|
[:div {:id id}
|
|
(com/field {:label "Date Range"}
|
|
[:div.space-y-4
|
|
[:div
|
|
(com/button-group {:name "date-range"}
|
|
(com/button-group-button {:size :small :value "all" :hx-trigger "click"} "All")
|
|
(com/button-group-button {:size :small :value "week" :hx-trigger "click"} "Week")
|
|
(com/button-group-button {:size :small :value "month" :hx-trigger "click"} "Month")
|
|
(com/button-group-button {:size :small :value "year" :hx-trigger "click"} "Year"))]
|
|
[:div.flex.space-x-1.items-baseline.w-full.justify-start
|
|
(com/date-input {:name "start-date"
|
|
:value (some-> (:start value)
|
|
(atime/unparse-local atime/normal-date))
|
|
:placeholder "Date"
|
|
:size :small
|
|
:class "shrink"})
|
|
|
|
(com/date-input {:name "end-date"
|
|
:value (some-> (:end value)
|
|
(atime/unparse-local atime/normal-date))
|
|
:placeholder "Date"
|
|
:size :small
|
|
:class "shrink"})]])])
|