[taffybar] Update to support toggling

dotfiles/config/taffybar/taffybar.hs

@@ -63,14 +63,13 @@ main = do
       (monFilter, monNumber) =
         case monEither of
           Left _ -> (allMonitors, 0)
-          Right monString -> case readMaybe monString of
+          Right monString ->
+            case readMaybe monString of
               Nothing -> (allMonitors, 0)
               Just num -> (Nothing, num)
       memCfg =
         defaultGraphConfig
-        { graphDataColors = [(0.129, 0.588, 0.953, 1)]
-        , graphLabel = Just "mem"
-        }
+        {graphDataColors = [(0.129, 0.588, 0.953, 1)], graphLabel = Just "mem"}
       cpuCfg =
         defaultGraphConfig
         { graphDataColors = [(0, 1, 0, 1), (1, 0, 1, 0.5)]
@@ -114,7 +113,7 @@ main = do
       los = makeUnderline (layoutSwitcherNew pgr) "red"
       wnd = makeUnderline (windowSwitcherNew pgr) "teal"
 
-  defaultTaffybar
+      taffyConfig =
         defaultTaffybarConfig
         { startWidgets = [hud, los, wnd]
         , endWidgets =
@@ -125,12 +124,14 @@ main = do
             , makeUnderline mpris "red"
             ]
         , monitorNumber = monNumber
-    , monitorFilter = monFilter
+        , getMonitorConfig = monFilter
         , barPosition = Top
         , barHeight = 50
         , widgetSpacing = 5
         }
 
+  defaultTaffybar taffyConfig
+
 -- Local Variables:
 -- flycheck-ghc-args: ("-Wno-missing-signatures")
 -- End: