summaryrefslogtreecommitdiffhomepage
path: root/src
diff options
context:
space:
mode:
authorEric Mrak <mail@ericmrak.info>2014-03-14 14:50:17 -0700
committerEric Mrak <mail@ericmrak.info>2014-03-14 14:50:17 -0700
commit62843563ef21fa4c106572e91e88c8127bcf3fbf (patch)
tree2f622704ea6e68a00193cc86d9da1d2f79e982f4 /src
parent9b46234bddbecbcdb9f19aef7f441b15415db07d (diff)
downloadxmobar-62843563ef21fa4c106572e91e88c8127bcf3fbf.tar.gz
xmobar-62843563ef21fa4c106572e91e88c8127bcf3fbf.tar.bz2
Battery now has leftvbar
Diffstat (limited to 'src')
-rw-r--r--src/Plugins/Monitors/Batt.hs5
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Plugins/Monitors/Batt.hs b/src/Plugins/Monitors/Batt.hs
index c6e140e..d6b8ce0 100644
--- a/src/Plugins/Monitors/Batt.hs
+++ b/src/Plugins/Monitors/Batt.hs
@@ -80,7 +80,7 @@ sysDir = "/sys/class/power_supply"
battConfig :: IO MConfig
battConfig = mkMConfig
"Batt: <watts>, <left>% / <timeleft>" -- template
- ["leftbar", "left", "acstatus", "timeleft", "watts"] -- replacements
+ ["leftbar", "leftvbar", "left", "acstatus", "timeleft", "watts"] -- replacements
data Files = Files
{ fFull :: String
@@ -174,7 +174,8 @@ runBatt' bfs args = do
let x' = minimum [1, x]
p <- showPercentWithColors x'
b <- showPercentBar (100 * x') x'
- return [b, p]
+ vb <- showVerticalBar (100 * x')
+ return [b, vb, p]
fmtWatts x o s d = do
ws <- showWithPadding $ showDigits d x ++ (if s then "W" else "")
return $ color x o ws