diff options
Diffstat (limited to 'Plugins/Date.hs')
| -rw-r--r-- | Plugins/Date.hs | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/Plugins/Date.hs b/Plugins/Date.hs index 02b1cb3..a9e48aa 100644 --- a/Plugins/Date.hs +++ b/Plugins/Date.hs @@ -3,15 +3,16 @@ -- Module : Plugins.Date -- Copyright : (c) Andrea Rossato -- License : BSD-style (see LICENSE) --- +-- -- Maintainer : Andrea Rossato <andrea.rossato@unibz.it> -- Stability : unstable -- Portability : unportable -- -- A date plugin for Xmobar -- --- Usage example: in template put --- Run Date "%a %b %_d %Y <fc=#ee9a00> %H:%M:%S</fc>" "mydate" 10 +-- Usage example: in template put +-- +-- > Run Date "%a %b %_d %Y <fc=#ee9a00> %H:%M:%S</fc>" "Mydate" 10 -- ----------------------------------------------------------------------------- @@ -31,6 +32,6 @@ instance Exec Date where rate (Date _ _ r) = r date :: String -> IO String -date format = do +date format = do t <- toCalendarTime =<< getClockTime return $ formatCalendarTime defaultTimeLocale format t |