[taffybar] Multi-line machine definitions

2019-03-20 21:53:08 -07:00 · 2019-03-20 21:53:08 -07:00 · b2861cf04a
commit b2861cf04a
parent 5999b3329a
2 changed files with 10 additions and 6 deletions
--- a/dotfiles/config/taffybar/taffybar
+++ b/dotfiles/config/taffybar/taffybar
@ -1 +1 @@
-Subproject commit e58efd030328aea6dc808749edcd5a3fabfee3e3
+Subproject commit 0393c3b01d057855bf927ac279dacc5550c27268
--- 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 = []