diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2011-08-21 21:08:54 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2011-08-21 21:08:54 +0200 |
| commit | a3e6a4dd6ce4b624b4fad7a3a16a4c985db7b398 (patch) | |
| tree | 636d16d29c370b8cd5cd3e9681d63f0056042058 /src | |
| parent | adbdfbc7aea7e4df7fe8ca4e3fb3fd9685936a26 (diff) | |
| download | xmobar-a3e6a4dd6ce4b624b4fad7a3a16a4c985db7b398.tar.gz xmobar-a3e6a4dd6ce4b624b4fad7a3a16a4c985db7b398.tar.bz2 | |
Wireless: treat <quality> as a %, and honor -p (fixes #48)
Diffstat (limited to 'src')
| -rw-r--r-- | src/Plugins/Monitors/Wireless.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/Plugins/Monitors/Wireless.hs b/src/Plugins/Monitors/Wireless.hs index 4ac0c10..1b7e890 100644 --- a/src/Plugins/Monitors/Wireless.hs +++ b/src/Plugins/Monitors/Wireless.hs @@ -25,10 +25,9 @@ runWireless :: [String] -> Monitor String runWireless (iface:_) = do wi <- io $ getWirelessInfo iface let essid = wiEssid wi - qlty = wiQuality wi - fqlty = fromIntegral qlty + qlty = fromIntegral $ wiQuality wi e = if essid == "" then "N/A" else essid - q <- if qlty >= 0 then showWithColors show qlty else showWithPadding "" - qb <- showPercentBar fqlty (fqlty / 100) + q <- if qlty >= 0 then showPercentWithColors (qlty/100) else showWithPadding "" + qb <- showPercentBar qlty (qlty / 100) parseTemplate [e, q, qb] runWireless _ = return ""
\ No newline at end of file |