clone/logseq
1
0
Fork 0
mirror of https://github.com/logseq/logseq.git synced 2026-05-23 20:24:15 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix: date label

Browse Source
This commit is contained in:
Tienson Qin
2025-01-04 00:52:39 +08:00
parent d9d9d26116
commit 17ee522779
1 changed files with 11 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
src/main/frontend/components/property/value.cljs
View File

@@ -382,19 +382,20 @@
(defn- human-date-label
[date]
(let [today (t/today)]
(let [today (t/today)
today-y (t/year today)
today-m (t/month today)
today-d (t/day today)
same-day? (fn [date]
(and (= today-y (t/year date)) (= today-m (t/month date)) (= today-d (t/day date))))]
(cond
(and (or (t/after? date today)
(t/equal? date today))
(t/before? date (t/plus today (t/days 1))))
(same-day? date)
"Today"
(and (or (t/equal? date (t/plus today (t/days 1)))
(t/after? date (t/plus today (t/days 1))))
(t/before? date (t/plus today (t/days 2))))
(let [tomorrow (t/minus date (t/days 1))]
(same-day? tomorrow))
"Tomorrow"
(and (or (t/equal? date (t/minus today (t/days 1)))
(t/after? date (t/minus today (t/days 1))))
(t/before? date today))
(let [yesterday (t/plus date (t/days 1))]
(same-day? yesterday))
"Yesterday"
:else
nil)))