From f8b7b22253d72b7b6ecf83bac87a8cda41040f49 Mon Sep 17 00:00:00 2001
From: Alexander Shabalin <shabalyn.a@gmail.com>
Date: Wed, 24 Sep 2014 12:31:54 +0400
Subject: Rename dynamic string to icon pattern

---
 src/Plugins/Monitors/Wireless.hs | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'src/Plugins/Monitors/Wireless.hs')

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]
-- 
cgit v1.2.3