added a refresh rate configuration option

darcs-hash:20070619174006-d6583-810248e638d7062b41fd7ae771b625ac1a5164c5.gz

2 files changed, 5 insertions, 0 deletions

diff --git a/xmobar.config-sample b/xmobar.config-sample
index 69b068c..289af9b 100644
--- a/xmobar.config-sample
+++ b/xmobar.config-sample
@@ -5,4 +5,5 @@ Config { fonts = "-misc-fixed-*-*-*-*-*-*-*-*-*-*-*-*"
        , yPos = 0
        , width = 1024
        , hight = 15
+       , refresh = 10
        }
diff --git a/xmobar.hs b/xmobar.hs
index 00e85be..7b0360e 100644
--- a/xmobar.hs
+++ b/xmobar.hs
@@ -44,6 +44,7 @@ import Graphics.X11.Xlib.Misc
 import Text.ParserCombinators.Parsec
 
 import Control.Monad
+import Control.Concurrent
 import System.Environment
 
 -- $config
@@ -58,6 +59,7 @@ data Config =
            , yPos :: Int       -- ^ y Window position 
            , width :: Int      -- ^ Window width
            , hight :: Int      -- ^ Window hight
+           , refresh :: Int    -- ^ Refresh rate in tenth of seconds
            } deriving (Eq, Show, Read, Ord)
 
 defaultConfig :: Config
@@ -69,6 +71,7 @@ defaultConfig =
            , yPos = 0
            , width = 1024
            , hight = 15
+           , refresh = 10
            }
 
 -- $main
@@ -131,6 +134,7 @@ drawInWin config (dpy, win) str = do
   freeGC dpy gc
   sync dpy True
   -- back again: we are never ending
+  threadDelay $ 100000 * refresh config
   eventLoop config