enhance(logbook): sort logbook

This commit is contained in:
leizhe
2021-12-02 18:33:04 +08:00
parent ab0e5fec0a
commit 79970a3e24

View File

@@ -2359,6 +2359,7 @@
(defn logbook-cp
[log]
(let [clocks (filter #(string/starts-with? % "CLOCK:") log)
clocks (reverse (sort-by str clocks))
;; TODO: diplay states change log
states (filter #(not (string/starts-with? % "CLOCK:")) log)]
(when (seq clocks)