[taffybar] Better padding styling

This commit is contained in:
Ivan Malison 2018-05-17 15:06:58 -07:00
parent 3f8afe40d9
commit 4d9ea9acbe
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
3 changed files with 10 additions and 4 deletions

@ -1 +1 @@
Subproject commit 6b1f3732ce5af9c8383585ad277c9866d459c9f4 Subproject commit 441f16f381c66e22d95054a605ebc348012b93ad

View File

@ -25,6 +25,13 @@
} }
.InnerPad { .InnerPad {
padding-bottom: 12px;
padding-top: 12px;
padding-left: 4px;
padding-right: 4px;
}
.Workspaces .InnerPad {
padding-bottom: 5px; padding-bottom: 5px;
padding-top: 5px; padding-top: 5px;
padding-left: 2px; padding-left: 2px;

View File

@ -137,7 +137,6 @@ main = do
case res of case res of
IINone -> IIFilePath $ inResourcesDirectory "exe-icon.png" IINone -> IIFilePath $ inResourcesDirectory "exe-icon.png"
_ -> res _ -> res
clock = textClockNew Nothing "%a %b %_d %r" 1
cpu = pollingGraphNew cpuCfg 0.5 cpuCallback cpu = pollingGraphNew cpuCfg 0.5 cpuCallback
mem = pollingGraphNew memCfg 1 memCallback mem = pollingGraphNew memCfg 1 memCallback
layout = layoutNew defaultLayoutConfig layout = layoutNew defaultLayoutConfig
@ -158,12 +157,12 @@ main = do
workspaces = workspacesNew myWorkspacesConfig workspaces = workspacesNew myWorkspacesConfig
baseConfig = defaultSimpleTaffyConfig baseConfig = defaultSimpleTaffyConfig
{ startWidgets = { startWidgets =
[ workspaces [ flip widgetSetClass "Workspaces" =<< workspaces
, layout >>= buildPadBox , layout >>= buildPadBox
, windows >>= buildPadBox , windows >>= buildPadBox
] ]
, endWidgets = map (>>= buildPadBox) , endWidgets = map (>>= buildPadBox)
[ clock >>= setMinWidth 200 [ textClockNew Nothing "%a %b %_d %r" 1
, textBatteryNew "$percentage$% ($time$)" , textBatteryNew "$percentage$% ($time$)"
, batteryIconNew , batteryIconNew
, sniTrayNew , sniTrayNew