diff --git a/dotfiles/config/taffybar/taffybar b/dotfiles/config/taffybar/taffybar index 28b9515b..5a01a6c7 160000 --- a/dotfiles/config/taffybar/taffybar +++ b/dotfiles/config/taffybar/taffybar @@ -1 +1 @@ -Subproject commit 28b9515b1ddb9854d159b7943eb0136676d29fd9 +Subproject commit 5a01a6c7df328da4b012dd054b5a8314f1594640 diff --git a/dotfiles/config/taffybar/taffybar.hs b/dotfiles/config/taffybar/taffybar.hs index 8b7d6bd0..d2955552 100644 --- a/dotfiles/config/taffybar/taffybar.hs +++ b/dotfiles/config/taffybar/taffybar.hs @@ -41,8 +41,15 @@ instance WorkspaceWidgetController ConstantIconController where updateWidget cic _ = return cic getWidget = Gtk.toWidget . cicImage -memCfg = +myGraphConfig = defaultGraphConfig + { graphPadding = 5 + , graphBorderWidth = 0 + , graphWidth = 75 + } + +memCfg = + myGraphConfig {graphDataColors = [(0.129, 0.588, 0.953, 1)], graphLabel = Just "mem"} memCallback :: Gtk.Widget -> IO [Double] @@ -165,7 +172,7 @@ main = do IINone -> IIFilePath $ inResourcesDirectory "exe-icon.png" _ -> res cpuCfg = - defaultGraphConfig + myGraphConfig { graphDataColors = [(0, 1, 0, 1), (1, 0, 1, 0.5)] , graphLabel = Just "cpu" } @@ -179,16 +186,16 @@ main = do , minWSWidgetSize = Nothing , minIcons = 1 , getIconInfo = myGetIconInfo - , windowIconSize = 32 + , windowIconSize = 28 , widgetGap = 0 - , widgetBuilder = - buildButtonController $ - buildUnderlineController $ - buildContentsController - [ buildConstantIconController - , buildLabelController - , buildIconController - ] + -- , widgetBuilder = + -- buildButtonController $ + -- buildUnderlineController $ + -- buildContentsController + -- [ buildConstantIconController + -- , buildLabelController + -- , buildIconController + -- ] , showWorkspaceFn = hideEmpty , updateRateLimitMicroseconds = 100000 , updateIconsOnTitleChange = True @@ -203,23 +210,23 @@ main = do pagerConfig = defaultPagerConfig {useImages = True, windowSwitcherFormatter = myFormatEntry} - makeUnderline = underlineWidget myHUDConfig + -- makeUnderline = underlineWidget myHUDConfig pgr <- pagerNew pagerConfig -- tray2 <- movableWidget tray let hud = buildWorkspaceHUD myHUDConfig pgr - los = makeUnderline (layoutSwitcherNew pgr) "red" - wnd = makeUnderline (windowSwitcherNew pgr) "teal" + los = layoutSwitcherNew pgr + wnd = windowSwitcherNew pgr taffyConfig = defaultTaffybarConfig - { startWidgets = [hud, wnd, los] + { startWidgets = [hud, los, wnd] , endWidgets = [ batteryBarNew defaultBatteryConfig 1.0 - , makeUnderline clock "teal" - , makeUnderline systrayNew "yellow" - , makeUnderline mem "blue" - , makeUnderline cpu "green" - , makeUnderline netMonitor "yellow" - , makeUnderline mpris "red" + , clock + , systrayNew + , mem + , cpu + , netMonitor + , mpris ] , barPosition = Top , barPadding = 10