[taffybar] Update to support toggling

This commit is contained in:
Ivan Malison 2017-03-12 21:25:59 -07:00
parent d773662d44
commit f45e0cf442
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8

View File

@ -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: