Merge branch 'master' of github.com:IvanMalison/dotfiles

dotfiles/config/taffybar/taffybar.hs

@@ -107,8 +107,8 @@ logDebug = do
   handler <- streamHandler stdout DEBUG
   logger <- getLogger "System.Taffybar"
   saveGlobalLogger $ setLevel DEBUG logger
-  infoLogger <- getLogger "System.Information"
-  saveGlobalLogger $ setLevel DEBUG infoLogger
+  workspacesLogger <- getLogger "System.Taffybar.Widget.Workspaces"
+  saveGlobalLogger $ setLevel WARNING workspacesLogger
 
 github = do
   Right (token, _) <- passGet "github-token"
@@ -179,7 +179,8 @@ main = do
         }
       simpleTaffyConfig =
         baseConfig
-  dyreTaffybar $ withLogServer $ withToggleServer $ toTaffyConfig simpleTaffyConfig
+  dyreTaffybar $ withBatteryRefresh $ withLogServer $ withToggleServer $
+               toTaffyConfig simpleTaffyConfig
 
 -- Local Variables:
 -- flycheck-ghc-args: ("-Wno-missing-signatures")