diff options
-rw-r--r-- | Monitors/Swap.hs | 64 |
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 |