added a swap monitor

darcs-hash:20070705132022-d6583-c0419e16963b67bcb2385804a6f67a39e7b98de9.gz

1 files changed, 64 insertions, 0 deletions

diff --git a/Monitors/Swap.hs b/Monitors/Swap.hs
new file mode 100644
index 0000000..6848228
--- /dev/null
+++ b/Monitors/Swap.hs
@@ -0,0 +1,64 @@
+-----------------------------------------------------------------------------
+-- |
+-- Module      :  Monitors.Swap
+-- Copyright   :  (c) Andrea Rossato
+-- License     :  BSD-style (see LICENSE)
+-- 
+-- Maintainer  :  Andrea Rossato <andrea.rossato@unibz.it>
+-- Stability   :  unstable
+-- Portability :  unportable
+--
+-- A  swap usage monitor for XMobar
+--
+-----------------------------------------------------------------------------
+
+module Main where
+
+import Monitors.Common
+
+import Data.IORef
+import qualified Data.ByteString.Lazy.Char8 as B
+
+monitorConfig :: IO MConfig
+monitorConfig = 
+    do lc <- newIORef "#BFBFBF"
+       l <- newIORef 30
+       nc <- newIORef "#00FF00"
+       h <- newIORef 75
+       hc <- newIORef "#FF0000"
+       t <- newIORef "Swap: <usedratio>%"
+       p <- newIORef package
+       u <- newIORef ""
+       a <- newIORef []
+       e <- newIORef ["total", "used", "free", "usedratio"]
+       return $ MC nc l lc h hc t p u a e
+
+fileMEM :: IO B.ByteString
+fileMEM = B.readFile "/proc/meminfo"
+
+parseMEM :: IO [Float]
+parseMEM =
+    do file <- fileMEM
+       let p x y = flip (/) 1024 . read . stringParser x $ y
+           tot = p (1,11) file
+           free = p (1,12) file
+       return [tot, (tot - free), free, free / tot * 100]
+
+formatMem :: [Float] -> Monitor [String] 
+formatMem x =
+    do let f n = show (takeDigits 2 n)
+       mapM (showWithColors f) x
+
+package :: String
+package = "xmb-swap"
+
+runMem :: [String] -> Monitor String
+runMem _ =
+    do m <- io $ parseMEM
+       l <- formatMem m
+       parseTemplate l 
+    
+main :: IO ()
+main =
+    do let af = runMem []
+       runMonitor monitorConfig af runMem