summaryrefslogtreecommitdiffhomepage
path: root/src/Plugins/DateZone.hs
diff options
context:
space:
mode:
authorMartin Perner <martin@perner.cc>2011-07-21 18:13:32 +0200
committerMartin Perner <martin@perner.cc>2011-07-21 18:27:40 +0200
commit4c1a6b350095e671eea5a4963e6b82997c5098fc (patch)
tree14d8068afb63cca955af6787ea47c7fcb3ee2c5f /src/Plugins/DateZone.hs
parent5d5b4a4d7e07d20eec62b5650df5d55807741a4c (diff)
downloadxmobar-4c1a6b350095e671eea5a4963e6b82997c5098fc.tar.gz
xmobar-4c1a6b350095e671eea5a4963e6b82997c5098fc.tar.bz2
DateZone: Added plugin for localized date
Diffstat (limited to 'src/Plugins/DateZone.hs')
-rw-r--r--src/Plugins/DateZone.hs44
1 files changed, 44 insertions, 0 deletions
diff --git a/src/Plugins/DateZone.hs b/src/Plugins/DateZone.hs
new file mode 100644
index 0000000..4d5ce6a
--- /dev/null
+++ b/src/Plugins/DateZone.hs
@@ -0,0 +1,44 @@
+-----------------------------------------------------------------------------
+-- |
+-- Module : Plugins.DateZone
+-- Copyright : (c) Martin Perner
+-- License : BSD-style (see LICENSE)
+--
+-- Maintainer : Martin Perner <martin@perner.cc>
+-- Stability : unstable
+-- Portability : unportable
+--
+-- A date plugin with localization support for Xmobar
+--
+-- Based on Plugins.Date
+--
+-- Usage example: in template put
+--
+-- > Run DateZone "%H:%M:%S" "utcDate" "UTC" 10
+--
+-----------------------------------------------------------------------------
+
+module Plugins.DateZone (DateZone(..)) where
+
+import Plugins
+
+import System.Locale
+
+import Data.Time.LocalTime
+import Data.Time.Format
+import Data.Time.LocalTime.TimeZone.Olson
+import Data.Time.LocalTime.TimeZone.Series
+
+data DateZone = DateZone String String String Int
+ deriving (Read, Show)
+
+instance Exec DateZone where
+ alias (DateZone _ a _ _) = a
+ run (DateZone f _ z _) = date f z
+ rate (DateZone _ _ _ r) = r
+
+date :: String -> String -> IO String
+date format zone = do
+ timeZone <- getTimeZoneSeriesFromOlsonFile ("/usr/share/zoneinfo/" ++ zone)
+ zonedTime <- getZonedTime
+ return $ formatTime defaultTimeLocale format $ utcToLocalTime' timeZone $ zonedTimeToUTC zonedTime