[taffybar] Multi-line machine definitions

This commit is contained in:
2019-03-20 21:53:08 -07:00
parent 5999b3329a
commit b2861cf04a
2 changed files with 10 additions and 6 deletions

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 = []