(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"})]])])