notid/integreat
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Makes tooltip, also makes date ranges work the way Ben asked for

Browse Source
This commit is contained in:
Bryce
2024-12-12 08:20:57 -08:00
parent aaeafae871
commit ef7c127cd5
2 changed files with 16 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
src/clj/auto_ap/ssr/utils.clj
View File

@@ -255,19 +255,22 @@
(if date-range-value
(-> (condp = date-range-value
"week"
(let [last-monday (coerce/to-date-time (atime/last-monday))]
(let [last-monday (atime/as-local-time (coerce/to-date-time (atime/last-monday)))]
(assoc m
start-date-key (time/plus last-monday (time/days -7))
end-date-key last-monday))
end-date-key (time/plus last-monday (time/days -1))))
"month"
(assoc m
start-date-key (time/plus (time/now) (time/months -1))
end-date-key nil)
(let [end-of-month (atime/as-local-time (coerce/to-date-time (time/plus (time/first-day-of-the-month (atime/local-today)) (time/days -1))))]
(assoc m
start-date-key (time/first-day-of-the-month end-of-month)
end-date-key end-of-month))
"year"
(assoc m
start-date-key (time/plus (time/now) (time/years -1))
start-date-key (atime/as-local-time (time/date-time (time/year (atime/local-today))
1
1))
end-date-key nil)
"all"