From a8653d8712c2d218adf3f70cef7e511060bed695 Mon Sep 17 00:00:00 2001 From: Andrea Rossato Date: Wed, 18 Jul 2007 17:12:11 +0200 Subject: Monitors are now a Plugin that can be removed from Config.hs darcs-hash:20070718151211-d6583-7e0e49c22d07feda72d03370fd592c196dfcc9c1.gz --- Plugins/Monitors/Swap.hs | 50 ++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 50 insertions(+) create mode 100644 Plugins/Monitors/Swap.hs (limited to 'Plugins/Monitors/Swap.hs') diff --git a/Plugins/Monitors/Swap.hs b/Plugins/Monitors/Swap.hs new file mode 100644 index 0000000..fbddaae --- /dev/null +++ b/Plugins/Monitors/Swap.hs @@ -0,0 +1,50 @@ +----------------------------------------------------------------------------- +-- | +-- Module : Plugins.Monitors.Swap +-- Copyright : (c) Andrea Rossato +-- License : BSD-style (see LICENSE) +-- +-- Maintainer : Andrea Rossato +-- Stability : unstable +-- Portability : unportable +-- +-- A swap usage monitor for Xmobar +-- +----------------------------------------------------------------------------- + +module Plugins.Monitors.Swap where + +import Plugins.Monitors.Common + +import qualified Data.ByteString.Lazy.Char8 as B + +swapConfig :: IO MConfig +swapConfig = mkMConfig + "Swap: " -- template + ["total", "used", "free", "usedratio"] -- available replacements + +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, (tot - free) / tot] + +formatSwap :: [Float] -> Monitor [String] +formatSwap x = + do let f1 n = show (takeDigits 2 n) + f2 n = floatToPercent n + (hd, tl) = splitAt 3 x + firsts <- mapM (showWithColors f1) hd + lasts <- mapM (showWithColors f2) tl + return $ firsts ++ lasts + +runSwap :: [String] -> Monitor String +runSwap _ = + do m <- io $ parseMEM + l <- formatSwap m + parseTemplate l -- cgit v1.2.3