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 --- Monitors/Swap.hs | 50 -------------------------------------------------- 1 file changed, 50 deletions(-) delete mode 100644 Monitors/Swap.hs (limited to 'Monitors/Swap.hs') diff --git a/Monitors/Swap.hs b/Monitors/Swap.hs deleted file mode 100644 index 5460a19..0000000 --- a/Monitors/Swap.hs +++ /dev/null @@ -1,50 +0,0 @@ ------------------------------------------------------------------------------ --- | --- Module : 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 Monitors.Swap where - -import 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