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
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
2 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
dotfiles/config/taffybar/taffybar

@ -1 +1 @@
Subproject commit e58efd030328aea6dc808749edcd5a3fabfee3e3 Subproject commit 0393c3b01d057855bf927ac279dacc5550c27268

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