From dc171e4a07e597f9f5d7839c231b8b9c3ae19437 Mon Sep 17 00:00:00 2001
From: Jose A Ortega Ruiz <jao@gnu.org>
Date: Fri, 19 Mar 2010 21:33:24 +0100
Subject: Usage bars

Ignore-this: 63fd21a117029674e33a9c4419dbc4de

ASCII art bars for a bunch of monitors.

darcs-hash:20100319203324-748be-2f927aa0e16d8874e10a04f0245427d32e0e53ce.gz
---
 Plugins/Monitors/Wireless.hs | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'Plugins/Monitors/Wireless.hs')

diff --git a/Plugins/Monitors/Wireless.hs b/Plugins/Monitors/Wireless.hs
index eb07afe..4ac0c10 100644
--- a/Plugins/Monitors/Wireless.hs
+++ b/Plugins/Monitors/Wireless.hs
@@ -18,14 +18,17 @@ import Plugins.Monitors.Common
 import IWlib
 
 wirelessConfig :: IO MConfig
-wirelessConfig = mkMConfig "<essid> <quality>" ["essid", "quality"]
+wirelessConfig =
+  mkMConfig "<essid> <quality>" ["essid", "quality", "qualitybar"]
 
 runWireless :: [String] -> Monitor String
 runWireless (iface:_) = do
   wi <- io $ getWirelessInfo iface
   let essid = wiEssid wi
       qlty = wiQuality wi
+      fqlty = fromIntegral qlty
       e = if essid == "" then "N/A" else essid
   q <- if qlty >= 0 then showWithColors show qlty else showWithPadding ""
-  parseTemplate [e, q]
+  qb <- showPercentBar fqlty (fqlty / 100)
+  parseTemplate [e, q, qb]
 runWireless _ = return ""
\ No newline at end of file
-- 
cgit v1.2.3