{-# LANGUAGE CPP #-}
module Xmobar.Plugins.Date (Date(..)) where
import Xmobar.Run.Exec
#if ! MIN_VERSION_time(1,5,0)
import System.Locale
#endif
import Data.Time
data Date = Date String String Int
deriving (Read, Show)
instance Exec Date where
alias (Date _ a _) = a
rate (Date _ _ r) = r
start (Date f _ r) cb = do
t <- getCurrentTime
zone <- getTimeZone t
go zone
where
go zone = doEveryTenthSeconds r $ date zone f >>= cb
date :: TimeZone -> String -> IO String
date timezone format = do
time <- getCurrentTime
let zonedTime = utcToZonedTime timezone time
pure $ formatTime defaultTimeLocale format zonedTime