[taffybar] Update to support toggling
This commit is contained in:
parent
d773662d44
commit
f45e0cf442
@ -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:
|
||||
|
Loading…
Reference in New Issue
Block a user