diff options
| author | Eric Mrak <mail@ericmrak.info> | 2014-03-14 18:10:18 -0700 |
|---|---|---|
| committer | Eric Mrak <mail@ericmrak.info> | 2014-03-14 18:10:18 -0700 |
| commit | 48167e6f50f61453a269b321c8d3c8dad7a347b4 (patch) | |
| tree | 0f9ae86caae3aec4b617be3069501ff77d0418d7 /src/Plugins/Monitors/Wireless.hs | |
| parent | 62843563ef21fa4c106572e91e88c8127bcf3fbf (diff) | |
| download | xmobar-48167e6f50f61453a269b321c8d3c8dad7a347b4.tar.gz xmobar-48167e6f50f61453a269b321c8d3c8dad7a347b4.tar.bz2 | |
Wireless module has qualityvbar
Diffstat (limited to 'src/Plugins/Monitors/Wireless.hs')
| -rw-r--r-- | src/Plugins/Monitors/Wireless.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Plugins/Monitors/Wireless.hs b/src/Plugins/Monitors/Wireless.hs index f8192dc..d5342a1 100644 --- a/src/Plugins/Monitors/Wireless.hs +++ b/src/Plugins/Monitors/Wireless.hs @@ -19,7 +19,7 @@ import IWlib wirelessConfig :: IO MConfig wirelessConfig = - mkMConfig "<essid> <quality>" ["essid", "quality", "qualitybar"] + mkMConfig "<essid> <quality>" ["essid", "quality", "qualitybar", "qualityvbar"] runWireless :: [String] -> Monitor String runWireless (iface:_) = do @@ -33,5 +33,6 @@ runWireless (iface:_) = do then showPercentWithColors (qlty / 100) else showWithPadding "" qb <- showPercentBar qlty (qlty / 100) - parseTemplate [ep, q, qb] + qvb <- showVerticalBar qlty + parseTemplate [ep, q, qb, qvb] runWireless _ = getConfigValue naString |