rilla
/
hmonitors
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

minor format change

Ricard Illa 2021-07-24 19:48:37 +02:00
parent a17f3f0e27
commit bca17dab68
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Monitors/Date.hs
View File

@ -18,12 +18,12 @@ fullFmtter True icon x = printf "%s %s" (icons M.! icon) x
fullFmtter _ _ x = x
fmtter :: FormatTime t => Bool -> String -> String -> t -> String
fmtter full icon fmt = (fullFmtter full icon) . (formatTime defaultTimeLocale fmt)
fmtter full icon fmt = fullFmtter full icon . formatTime defaultTimeLocale fmt
fmtTime :: FormatTime t => Bool -> t -> String
fmtTime full time =
let
date = fmtter full "calendar" "%m/%d" time
date = fmtter full "calendar" "%y/%m/%d" time
hour = fmtter full "clock" "%H:%M" time
in printf "%s%s%s%s " separator date separator hour