Clean up default options for monitors.

 * Moved default configuration to Monitors.Common
 * Colors are optional and are off by default

darcs-hash:20070710140845-ba08c-86afb9d30e4b71ad48539510feabde650b1b6045.gz

1 files changed, 8 insertions, 15 deletions

diff --git a/Monitors/Mem.hs b/Monitors/Mem.hs
index 41f496d..4fd6434 100644
--- a/Monitors/Mem.hs
+++ b/Monitors/Mem.hs
@@ -16,21 +16,14 @@ module Monitors.Mem where
 
 import Monitors.Common
 
-import Data.IORef
-
 memConfig :: IO MConfig
-memConfig = 
-    do lc <- newIORef "#BFBFBF"
-       l <- newIORef 300
-       nc <- newIORef "#00FF00"
-       h <- newIORef 500
-       hc <- newIORef "#FF0000"
-       t <- newIORef "Mem: <usedratio>% (<cache>M)"
-       p <- newIORef package
-       u <- newIORef ""
-       a <- newIORef []
-       e <- newIORef ["total", "free", "buffer", "cache", "rest", "used", "usedratio"]
-       return $ MC nc l lc h hc t p u a e
+memConfig = newConfig
+       "Mem: <usedratio>% (<cache>M)" -- template
+       package                        -- package
+       ""                             -- usage tail?
+       []                             -- added args
+       ["total", "free", "buffer",    -- available replacements
+        "cache", "rest", "used", "usedratio"]
 
 fileMEM :: IO String
 fileMEM = readFile "/proc/meminfo"
@@ -64,4 +57,4 @@ main :: IO ()
 main =
     do let af = runMem []
        runMonitor monitorConfig af runMem
--}
\ No newline at end of file
+-}