From 62843563ef21fa4c106572e91e88c8127bcf3fbf Mon Sep 17 00:00:00 2001
From: Eric Mrak <mail@ericmrak.info>
Date: Fri, 14 Mar 2014 14:50:17 -0700
Subject: Battery now has leftvbar

---
 src/Plugins/Monitors/Batt.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src')

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
-- 
cgit v1.2.3