twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-15 12:13:57 -07:00
Code Issues Packages Projects Releases Wiki Activity

X.P.OrgMode: Appropriately pad output time

Browse Source 
The standard formatting for org is to left-pad single digits with a
zero; do that.
This commit is contained in:
slotThe
2021-06-13 17:09:59 +02:00
parent 1c6e6c808d
commit dea8d9dced
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
XMonad/Prompt/OrgMode.hs
View File

@@ -226,7 +226,10 @@ data TimeOfDay = TimeOfDay Int Int
instance Show TimeOfDay where instance Show TimeOfDay where
show :: TimeOfDay -> String show :: TimeOfDay -> String
show (TimeOfDay h m) = show h <> ":" <> show m <> if m <= 9 then "0" else "" show (TimeOfDay h m) = pad h <> ":" <> pad m
where
pad :: Int -> String
pad n = (if n <= 9 then "0" else "") <> show n
-- | Type for specifying exactly which day one wants. -- | Type for specifying exactly which day one wants.
data Date data Date