diff options
| author | Alexander Shabalin <shabalyn.a@gmail.com> | 2014-09-24 12:31:54 +0400 |
|---|---|---|
| committer | Alexander Shabalin <shabalyn.a@gmail.com> | 2014-09-24 12:31:54 +0400 |
| commit | f8b7b22253d72b7b6ecf83bac87a8cda41040f49 (patch) | |
| tree | 38705b1e87c9f8e7a74d8f2de502fec2c7de1725 /src/Plugins/Monitors/Wireless.hs | |
| parent | e26731b1fc292a16230f6517aa292dd3973929ae (diff) | |
| download | xmobar-f8b7b22253d72b7b6ecf83bac87a8cda41040f49.tar.gz xmobar-f8b7b22253d72b7b6ecf83bac87a8cda41040f49.tar.bz2 | |
Rename dynamic string to icon pattern
Diffstat (limited to 'src/Plugins/Monitors/Wireless.hs')
| -rw-r--r-- | src/Plugins/Monitors/Wireless.hs | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/Plugins/Monitors/Wireless.hs b/src/Plugins/Monitors/Wireless.hs index c87bec6..b1e3c7e 100644 --- a/src/Plugins/Monitors/Wireless.hs +++ b/src/Plugins/Monitors/Wireless.hs @@ -20,18 +20,18 @@ import Plugins.Monitors.Common import IWlib data WirelessOpts = WirelessOpts - { qualityDynamicString :: Maybe DynamicString + { qualityIconPattern :: Maybe IconPattern } defaultOpts :: WirelessOpts defaultOpts = WirelessOpts - { qualityDynamicString = Nothing + { qualityIconPattern = Nothing } options :: [OptDescr (WirelessOpts -> WirelessOpts)] options = - [ Option "" ["quality-dynamic-string"] (ReqArg (\d opts -> - opts { qualityDynamicString = Just $ parseDynamicString d }) "") "" + [ Option "" ["quality-icon-pattern"] (ReqArg (\d opts -> + opts { qualityIconPattern = Just $ parseIconPattern d }) "") "" ] parseOpts :: [String] -> IO WirelessOpts @@ -42,7 +42,7 @@ parseOpts argv = wirelessConfig :: IO MConfig wirelessConfig = - mkMConfig "<essid> <quality>" ["essid", "quality", "qualitybar", "qualityvbar", "qualitydstr"] + mkMConfig "<essid> <quality>" ["essid", "quality", "qualitybar", "qualityvbar", "qualityipat"] runWireless :: String -> [String] -> Monitor String runWireless iface args = do @@ -58,5 +58,5 @@ runWireless iface args = do else showWithPadding "" qb <- showPercentBar qlty (qlty / 100) qvb <- showVerticalBar qlty (qlty / 100) - qdstr <- showDynamicString (qualityDynamicString opts) (qlty / 100) - parseTemplate [ep, q, qb, qvb, qdstr] + qipat <- showIconPattern (qualityIconPattern opts) (qlty / 100) + parseTemplate [ep, q, qb, qvb, qipat] |