summaryrefslogtreecommitdiffhomepage
path: root/Plugins/Monitors
diff options
context:
space:
mode:
authorJose A Ortega Ruiz <jao@gnu.org>2010-02-21 21:38:09 +0100
committerJose A Ortega Ruiz <jao@gnu.org>2010-02-21 21:38:09 +0100
commitd56e2da928343b9cadb8e034036926e089ad861e (patch)
tree9e316ea2523d97f8f208a580de9ddafc35412052 /Plugins/Monitors
parent7f9eb02f5c420d8f9e425310d3982145649dbba1 (diff)
downloadxmobar-d56e2da928343b9cadb8e034036926e089ad861e.tar.gz
xmobar-d56e2da928343b9cadb8e034036926e089ad861e.tar.bz2
New Wireless monitor
Ignore-this: b1b66ffa9077f8d41a5c0e962ee0bff3 darcs-hash:20100221203809-748be-71bc1951a2eb8164b0043725bcb707f42e530ded.gz
Diffstat (limited to 'Plugins/Monitors')
-rw-r--r--Plugins/Monitors/Wireless.hs31
1 files changed, 31 insertions, 0 deletions
diff --git a/Plugins/Monitors/Wireless.hs b/Plugins/Monitors/Wireless.hs
new file mode 100644
index 0000000..167a48f
--- /dev/null
+++ b/Plugins/Monitors/Wireless.hs
@@ -0,0 +1,31 @@
+-----------------------------------------------------------------------------
+-- |
+-- Module : Plugins.Monitors.Wireless
+-- Copyright : (c) Jose Antonio Ortega Ruiz
+-- License : BSD-style (see LICENSE)
+--
+-- Maintainer : Jose Antonio Ortega Ruiz
+-- Stability : unstable
+-- Portability : unportable
+--
+-- A monitor reporting ESSID and link quality for wireless interfaces
+--
+-----------------------------------------------------------------------------
+
+module Plugins.Monitors.Wireless (wirelessConfig, runWireless) where
+
+import Plugins.Monitors.Common
+import IWlib
+
+wirelessConfig :: IO MConfig
+wirelessConfig = mkMConfig "<essid> <quality>" ["essid", "quality"]
+
+runWireless :: [String] -> Monitor String
+runWireless (iface:_) = do
+ wi <- io $ getWirelessInfo iface
+ let essid = wiEssid wi
+ quality = wiQuality wi
+ e = if essid == "" then "N/A" else essid
+ q <- if quality >= 0 then showWithColors show quality else return "N/A"
+ parseTemplate [e, q]
+runWireless _ = return "" \ No newline at end of file