summaryrefslogtreecommitdiffhomepage
path: root/src/Plugins/Monitors
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2012-02-01 19:12:47 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2012-02-01 19:12:47 +0100
commit30d1e63298d35811d91df14f5cbc6b38e6e8003d (patch)
tree03fe0093f02dba11f28fea4a8f5b32a7b727eea1 /src/Plugins/Monitors
parent7d32da7117f91c65bbc58c30648b60d767ebf8c3 (diff)
downloadxmobar-30d1e63298d35811d91df14f5cbc6b38e6e8003d.tar.gz
xmobar-30d1e63298d35811d91df14f5cbc6b38e6e8003d.tar.bz2
Wireless monitor honours padding settings for ESSIDs
Hat tip David U.
Diffstat (limited to 'src/Plugins/Monitors')
-rw-r--r--src/Plugins/Monitors/Wireless.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Plugins/Monitors/Wireless.hs b/src/Plugins/Monitors/Wireless.hs
index 503dd11..8d32c99 100644
--- a/src/Plugins/Monitors/Wireless.hs
+++ b/src/Plugins/Monitors/Wireless.hs
@@ -27,7 +27,8 @@ runWireless (iface:_) = do
let essid = wiEssid wi
qlty = fromIntegral $ wiQuality wi
e = if essid == "" then "N/A" else essid
+ ep <- showWithPadding e
q <- if qlty >= 0 then showPercentWithColors (qlty/100) else showWithPadding ""
qb <- showPercentBar qlty (qlty / 100)
- parseTemplate [e, q, qb]
+ parseTemplate [ep, q, qb]
runWireless _ = return ""