[taffybar] Remove underlines

This commit is contained in:
Ivan Malison 2017-10-26 00:32:31 -07:00
parent d3114467f5
commit c1432a83bf
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
2 changed files with 29 additions and 22 deletions

@ -1 +1 @@
Subproject commit 28b9515b1ddb9854d159b7943eb0136676d29fd9 Subproject commit 5a01a6c7df328da4b012dd054b5a8314f1594640

View File

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