From 01cc232d3e1fee19a93d054b69dbb8590059e813 Mon Sep 17 00:00:00 2001
From: slotThe <soliditsallgood@tuta.io>
Date: Mon, 14 Oct 2019 12:21:16 +0200
Subject: Add types for displaying a string based on volume percentage

---
 src/Xmobar/Plugins/Monitors/Volume.hs | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/src/Xmobar/Plugins/Monitors/Volume.hs b/src/Xmobar/Plugins/Monitors/Volume.hs
index 250918a..fb158eb 100644
--- a/src/Xmobar/Plugins/Monitors/Volume.hs
+++ b/src/Xmobar/Plugins/Monitors/Volume.hs
@@ -44,6 +44,9 @@ data VolumeOpts = VolumeOpts
     , volumeIconPattern :: Maybe IconPattern
     , lowVolThresh :: Maybe Float
     , highVolThresh :: Maybe Float
+    , lowString :: String
+    , mediumString :: String
+    , highString :: String
     }
 
 defaultOpts :: VolumeOpts
@@ -55,8 +58,11 @@ defaultOpts = VolumeOpts
     , highDbThresh = -5.0
     , lowDbThresh = -30.0
     , volumeIconPattern = Nothing
-    , lowVolThresh = Just 20
-    , highVolThresh = Just 60
+    , lowVolThresh = Just 20.0
+    , highVolThresh = Just 60.0
+    , lowString = ""
+    , mediumString = ""
+    , highString = ""
     }
 
 options :: [OptDescr (VolumeOpts -> VolumeOpts)]
@@ -71,6 +77,9 @@ options =
        o { volumeIconPattern = Just $ parseIconPattern x }) "") ""
     , Option "L" ["lowv"] (ReqArg (\x o -> o { lowVolThresh = Just $ read x }) "") ""
     , Option "H" ["highv"] (ReqArg (\x o -> o { highVolThresh = Just $ read x }) "") ""
+    , Option "l" ["lows"] (ReqArg (\x o -> o { lowString = x }) "") ""
+    , Option "m" ["mediums"] (ReqArg (\x o -> o { mediumString = x }) "") ""
+    , Option "h" ["highs"] (ReqArg (\x o -> o { highString = x }) "") ""
     ]
 
 parseOpts :: [String] -> IO VolumeOpts
-- 
cgit v1.2.3