summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-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