summaryrefslogtreecommitdiffhomepage
path: root/src/Xmobar/Plugins/Monitors/Mem
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2022-04-14 16:41:36 +0100
committerjao <jao@gnu.org>2022-04-14 16:41:36 +0100
commit727478f5b8916d8d98ae4208d4f6a80abb4fafc7 (patch)
tree4fa4a57f31e5cc9cfd172edb31eae420809dbec5 /src/Xmobar/Plugins/Monitors/Mem
parentc714967eb3cab550ed1387d43182ee3b498124e3 (diff)
downloadxmobar-727478f5b8916d8d98ae4208d4f6a80abb4fafc7.tar.gz
xmobar-727478f5b8916d8d98ae4208d4f6a80abb4fafc7.tar.bz2
Memory: new argument to scale usage units
Fixes #624
Diffstat (limited to 'src/Xmobar/Plugins/Monitors/Mem')
-rw-r--r--src/Xmobar/Plugins/Monitors/Mem/Linux.hs9
1 files changed, 6 insertions, 3 deletions
diff --git a/src/Xmobar/Plugins/Monitors/Mem/Linux.hs b/src/Xmobar/Plugins/Monitors/Mem/Linux.hs
index 9e48d22..79dcc9d 100644
--- a/src/Xmobar/Plugins/Monitors/Mem/Linux.hs
+++ b/src/Xmobar/Plugins/Monitors/Mem/Linux.hs
@@ -23,11 +23,14 @@ parseMEM :: IO [Float]
parseMEM =
do file <- fileMEM
let content = map words $ take 8 $ lines file
- info = M.fromList $ map (\line -> (head line, (read $ line !! 1 :: Float) / 1024)) content
- [total, free, buffer, cache] = map (info M.!) ["MemTotal:", "MemFree:", "Buffers:", "Cached:"]
+ info = M.fromList $ map (
+ \line -> (head line, (read $ line !! 1 :: Float) / 1024)) content
+ [total, free, buffer, cache] =
+ map (info M.!) ["MemTotal:", "MemFree:", "Buffers:", "Cached:"]
available = M.findWithDefault (free + buffer + cache) "MemAvailable:" info
used = total - available
usedratio = used / total
freeratio = free / total
availableratio = available / total
- return [usedratio, freeratio, availableratio, total, free, buffer, cache, available, used]
+ return [ usedratio, freeratio, availableratio
+ , total, free, buffer, cache, available, used]