summaryrefslogtreecommitdiffhomepage
path: root/Plugins/Monitors/Wireless.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Plugins/Monitors/Wireless.hs')
-rw-r--r--Plugins/Monitors/Wireless.hs34
1 files changed, 0 insertions, 34 deletions
diff --git a/Plugins/Monitors/Wireless.hs b/Plugins/Monitors/Wireless.hs
deleted file mode 100644
index 4ac0c10..0000000
--- a/Plugins/Monitors/Wireless.hs
+++ /dev/null
@@ -1,34 +0,0 @@
------------------------------------------------------------------------------
--- |
--- 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", "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 ""
- qb <- showPercentBar fqlty (fqlty / 100)
- parseTemplate [e, q, qb]
-runWireless _ = return "" \ No newline at end of file