colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[taffybar] Multi-line machine definitions

Browse Source
This commit is contained in:
Ivan Malison
2019-03-20 21:53:08 -07:00
parent 5999b3329a
commit b2861cf04a
2 changed files with 10 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
dotfiles/config/taffybar/taffybar

Submodule dotfiles/config/taffybar/taffybar updated: e58efd0303...0393c3b01d

14
dotfiles/config/taffybar/taffybar.hs
View File

@@ -165,11 +165,15 @@ main = do
, barHeight = 30 , barHeight = 30
, cssPath = cssFilePath , cssPath = cssFilePath
} }
selectedConfig = fromMaybe baseConfig $ selectedConfig =
lookup hostName fromMaybe baseConfig $ lookup hostName
[ ("uber-loaner", baseConfig { endWidgets = shortLaptopEndWidgets } ) [ ( "uber-loaner"
, ("imalison-home", baseConfig { endWidgets = fullEndWidgets, barHeight = 42 } ) , baseConfig { endWidgets = shortLaptopEndWidgets }
] )
, ( "imalison-home"
, baseConfig { endWidgets = fullEndWidgets, barHeight = 42 }
)
]
simpleTaffyConfig = selectedConfig simpleTaffyConfig = selectedConfig
{ centerWidgets = map (>>= buildContentsBox) [] { centerWidgets = map (>>= buildContentsBox) []
-- , endWidgets = [] -- , endWidgets = []