[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
|
||||
Nothing -> (allMonitors, 0)
|
||||
Just num -> (Nothing, num)
|
||||
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)]
|
||||
@ -81,12 +80,12 @@ main = do
|
||||
mem = pollingGraphNew memCfg 1 memCallback
|
||||
cpu = pollingGraphNew cpuCfg 0.5 cpuCallback
|
||||
tray = do
|
||||
tray <- systrayNew
|
||||
container <- Gtk.eventBoxNew
|
||||
Gtk.containerAdd container tray
|
||||
Gtk.widgetSetName container "Taffytray"
|
||||
Gtk.widgetSetName tray "Taffytray"
|
||||
return $ Gtk.toWidget container
|
||||
tray <- systrayNew
|
||||
container <- Gtk.eventBoxNew
|
||||
Gtk.containerAdd container tray
|
||||
Gtk.widgetSetName container "Taffytray"
|
||||
Gtk.widgetSetName tray "Taffytray"
|
||||
return $ Gtk.toWidget container
|
||||
hudConfig =
|
||||
defaultWorkspaceHUDConfig
|
||||
{ underlineHeight = 3
|
||||
@ -110,26 +109,28 @@ main = do
|
||||
pager = taffyPagerNew pagerConfig
|
||||
makeUnderline = underlineWidget hudConfig
|
||||
pgr <- pagerNew pagerConfig
|
||||
let hud = buildWorkspaceHUD hudConfig pgr
|
||||
let hud = buildWorkspaceHUD hudConfig pgr
|
||||
los = makeUnderline (layoutSwitcherNew pgr) "red"
|
||||
wnd = makeUnderline (windowSwitcherNew pgr) "teal"
|
||||
|
||||
defaultTaffybar
|
||||
defaultTaffybarConfig
|
||||
{ startWidgets = [hud, los, wnd]
|
||||
, endWidgets =
|
||||
[ makeUnderline tray "yellow"
|
||||
, makeUnderline clock "teal"
|
||||
, makeUnderline mem "blue"
|
||||
, makeUnderline cpu "green"
|
||||
, makeUnderline mpris "red"
|
||||
]
|
||||
, monitorNumber = monNumber
|
||||
, monitorFilter = monFilter
|
||||
, barPosition = Top
|
||||
, barHeight = 50
|
||||
, widgetSpacing = 5
|
||||
}
|
||||
taffyConfig =
|
||||
defaultTaffybarConfig
|
||||
{ startWidgets = [hud, los, wnd]
|
||||
, endWidgets =
|
||||
[ makeUnderline tray "yellow"
|
||||
, makeUnderline clock "teal"
|
||||
, makeUnderline mem "blue"
|
||||
, makeUnderline cpu "green"
|
||||
, makeUnderline mpris "red"
|
||||
]
|
||||
, monitorNumber = monNumber
|
||||
, getMonitorConfig = monFilter
|
||||
, barPosition = Top
|
||||
, barHeight = 50
|
||||
, widgetSpacing = 5
|
||||
}
|
||||
|
||||
defaultTaffybar taffyConfig
|
||||
|
||||
-- Local Variables:
|
||||
-- flycheck-ghc-args: ("-Wno-missing-signatures")
|
||||
|
Loading…
Reference in New Issue
Block a user