Maybe using new datepicker

This commit is contained in:
2023-09-27 09:03:16 -07:00
parent 160c289f03
commit c5c752417b
5 changed files with 50 additions and 39 deletions

View File

@@ -9,8 +9,6 @@
[cemerick.url :as url]
[clojure.string :as str]
[auto-ap.ssr.svg :as svg]
[unilog.context :as lc]
[com.brunobonacci.mulog :as mu]
[auto-ap.time :as atime]
[clj-time.core :as time]))
@@ -181,23 +179,23 @@
(condp = date-range
"week"
(assoc query-params
:start-date (atime/unparse-local (time/plus (time/now) (time/days -7)) atime/iso-date)
:end-date (atime/unparse-local (time/now) atime/iso-date))
:start-date (atime/unparse-local (time/plus (time/now) (time/days -7)) atime/normal-date)
:end-date (atime/unparse-local (time/now) atime/normal-date))
"month"
(assoc query-params
:start-date (atime/unparse-local (time/plus (time/now) (time/months -1)) atime/iso-date)
:end-date (atime/unparse-local (time/now) atime/iso-date))
:start-date (atime/unparse-local (time/plus (time/now) (time/months -1)) atime/normal-date)
:end-date (atime/unparse-local (time/now) atime/normal-date))
"year"
(assoc query-params
:start-date (atime/unparse-local (time/plus (time/now) (time/years -1)) atime/iso-date)
:end-date (atime/unparse-local (time/now) atime/iso-date))
:start-date (atime/unparse-local (time/plus (time/now) (time/years -1)) atime/normal-date)
:end-date (atime/unparse-local (time/now) atime/normal-date))
"all"
(assoc query-params
:start-date (atime/unparse-local (time/plus (time/now) (time/years -3)) atime/iso-date)
:end-date (atime/unparse-local (time/now) atime/iso-date))
:start-date (atime/unparse-local (time/plus (time/now) (time/years -3)) atime/normal-date)
:end-date (atime/unparse-local (time/now) atime/normal-date))
query-params))