summaryrefslogtreecommitdiffhomepage
path: root/Plugins
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-12-08 00:26:20 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-12-08 00:26:20 +0100
commited3e2fb95c2b6180e827d20724d081e81345b000 (patch)
tree7bd61b9cbc73b73ad7dd6936840a36ae7a93f1bc /Plugins
parent243e7618cd5e630b8f9d12f8189ff356f10ad7f9 (diff)
downloadxmobar-ed3e2fb95c2b6180e827d20724d081e81345b000.tar.gz
xmobar-ed3e2fb95c2b6180e827d20724d081e81345b000.tar.bz2
Make Mem monitor honour -P
Diffstat (limited to 'Plugins')
-rw-r--r--Plugins/Monitors/Mem.hs5
1 files changed, 3 insertions, 2 deletions
diff --git a/Plugins/Monitors/Mem.hs b/Plugins/Monitors/Mem.hs
index f493862..4453559 100644
--- a/Plugins/Monitors/Mem.hs
+++ b/Plugins/Monitors/Mem.hs
@@ -47,8 +47,9 @@ formatMem (r:xs) =
rr = 100 * r
ub <- showPercentBar rr r
fb <- showPercentBar (100 - rr) (1 - r)
- s <- mapM (showWithColors f) (rr:xs)
- return (ub:fb:s)
+ rs <- showPercentWithColors r
+ s <- mapM (showWithColors f) xs
+ return (ub:fb:rs:s)
formatMem _ = return $ replicate 9 "N/A"
runMem :: [String] -> Monitor String