summaryrefslogtreecommitdiffhomepage
path: root/Monitors/Swap.hs
diff options
context:
space:
mode:
authorAndrea Rossato <andrea.rossato@ing.unitn.it>2007-07-05 15:20:22 +0200
committerAndrea Rossato <andrea.rossato@ing.unitn.it>2007-07-05 15:20:22 +0200
commita809f5486b1d48cc80d08bc36e9b36737b828cda (patch)
tree1d111b24443e0d563b0100b911c63cf7a97cd021 /Monitors/Swap.hs
parent39f9a1fc168196d4def8b87d0c7a5107b2b48e11 (diff)
downloadxmobar-a809f5486b1d48cc80d08bc36e9b36737b828cda.tar.gz
xmobar-a809f5486b1d48cc80d08bc36e9b36737b828cda.tar.bz2
added a swap monitor
darcs-hash:20070705132022-d6583-c0419e16963b67bcb2385804a6f67a39e7b98de9.gz
Diffstat (limited to 'Monitors/Swap.hs')
-rw-r--r--Monitors/Swap.hs64
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