From 528556a36d5ff686689568c61422143276b0dc96 Mon Sep 17 00:00:00 2001
From: Krzysztof Kosciuszkiewicz <k.kosciuszkiewicz@gmail.com>
Date: Tue, 10 Jul 2007 16:08:45 +0200
Subject: 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
---
 Monitors/Mem.hs | 23 ++++++++---------------
 1 file changed, 8 insertions(+), 15 deletions(-)

(limited to 'Monitors/Mem.hs')

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
+-}
-- 
cgit v1.2.3