Andrey Shovkoplyas 2017-04-19 15:43:24 +03:00 committed by Roman Volosovskyi
parent 9a80548cf3
commit 0c7aab902a
1 changed files with 3 additions and 1 deletions

View File

@ -137,7 +137,9 @@
(sort-by :clock-value >)
(map #(assoc % :datemark (time/day-relative (:timestamp %))))
(group-by :datemark)
(map (fn [[k v]] [v {:type :datemark :value k}]))
(vals)
(sort-by (comp :clock-value first) >)
(map (fn [v] [v {:type :datemark :value (:datemark (first v))}]))
(flatten))
remove-last? (some (fn [{:keys [content-type]}]
(= content-type content-type-status))