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

---
 readme.md                    | 2 +-
 src/Plugins/Monitors/Batt.hs | 5 +++--
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/readme.md b/readme.md
index 88daf39..9153c26 100644
--- a/readme.md
+++ b/readme.md
@@ -767,7 +767,7 @@ something like:
     "AC/online")
 
 - Variables that can be used with the `-t`/`--template` argument:
-	    `left`, `leftbar`, `timeleft`, `watts`, `acstatus`
+	    `left`, `leftbar`, `leftvbar`, `timeleft`, `watts`, `acstatus`
 - Default template: `Batt: <watts>, <left>% / <timeleft>`
 - Example (note that you need "--" to separate regular monitor options from
   Battery's specific ones):
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