From b2861cf04ac7eac4c8c3b06e069a8f39d06ba6f9 Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Wed, 20 Mar 2019 21:53:08 -0700 Subject: [PATCH] [taffybar] Multi-line machine definitions --- dotfiles/config/taffybar/taffybar | 2 +- dotfiles/config/taffybar/taffybar.hs | 14 +++++++++----- 2 files changed, 10 insertions(+), 6 deletions(-) diff --git a/dotfiles/config/taffybar/taffybar b/dotfiles/config/taffybar/taffybar index e58efd03..0393c3b0 160000 --- a/dotfiles/config/taffybar/taffybar +++ b/dotfiles/config/taffybar/taffybar @@ -1 +1 @@ -Subproject commit e58efd030328aea6dc808749edcd5a3fabfee3e3 +Subproject commit 0393c3b01d057855bf927ac279dacc5550c27268 diff --git a/dotfiles/config/taffybar/taffybar.hs b/dotfiles/config/taffybar/taffybar.hs index 451f3066..96ae7dfc 100644 --- a/dotfiles/config/taffybar/taffybar.hs +++ b/dotfiles/config/taffybar/taffybar.hs @@ -165,11 +165,15 @@ main = do , barHeight = 30 , cssPath = cssFilePath } - selectedConfig = fromMaybe baseConfig $ - lookup hostName - [ ("uber-loaner", baseConfig { endWidgets = shortLaptopEndWidgets } ) - , ("imalison-home", baseConfig { endWidgets = fullEndWidgets, barHeight = 42 } ) - ] + selectedConfig = + fromMaybe baseConfig $ lookup hostName + [ ( "uber-loaner" + , baseConfig { endWidgets = shortLaptopEndWidgets } + ) + , ( "imalison-home" + , baseConfig { endWidgets = fullEndWidgets, barHeight = 42 } + ) + ] simpleTaffyConfig = selectedConfig { centerWidgets = map (>>= buildContentsBox) [] -- , endWidgets = []