[taffybar] Config cleanup

dotfiles/config/taffybar/imalison-taffybar.cabal

@@ -14,8 +14,8 @@ executable imalison-taffybar
   hs-source-dirs:      .
   main-is:             taffybar.hs
   ghc-options:         -threaded -rtsopts -with-rtsopts=-N
-  -- ghc-options:      -threaded -debug -g
-  -- cpp-options: +RTS -DS
+  -- ghc-options:      -threaded -g -rtsopts
+  ghc-prof-options: -fprof-auto
   build-depends:       base
                      , X11>=1.8
                      , bytestring

dotfiles/config/taffybar/taffybar.hs

@@ -1,4 +1,3 @@
-{-# LANGUAGE PackageImports #-}
 {-# LANGUAGE OverloadedStrings #-}
 module Main where
 
@@ -100,10 +99,6 @@ logDebug = do
   workspacesLogger <- getLogger "System.Taffybar.Widget.Workspaces"
   saveGlobalLogger $ setLevel WARNING workspacesLogger
 
--- github = do
---   Right (token, _) <- passGet "github-token"
---   githubNotificationsNew $ defaultGithubConfig $ Auth.OAuth $ BS.pack token
-
 main = do
   homeDirectory <- getHomeDirectory
   -- logDebug
@@ -116,14 +111,6 @@ main = do
       highContrastDirectory =
         "/" </> "usr" </> "share" </> "icons" </> "HighContrast" </> "256x256"
       inHighContrastDirectory file = highContrastDirectory </> file
-      getIconFileName w@WindowData {windowTitle = title, windowClass = klass}
-        -- | "URxvt" `isInfixOf` klass = Just "urxvt.png"
-        -- | "Termite" `isInfixOf` klass = Just "urxvt.png"
-        -- | "Kodi" `isInfixOf` klass = Just "kodi.png"
-        | "@gmail.com" `isInfixOf` title &&
-            "chrome" `isInfixOf` klass && "Gmail" `isInfixOf` title =
-          Just "gmail.png"
-        | otherwise = Nothing
       myIcons = scaledWindowIconPixbufGetter $
                 getWindowIconPixbufFromChrome <|||>
                 unscaledDefaultGetWindowIconPixbuf <|||>
@@ -157,7 +144,6 @@ main = do
               , batteryIconNew
               , textClockNew Nothing "%a %b %_d %r" 1
               , sniTrayNew
-          -- , github
               , cpu
               , mem
               , networkGraphNew netCfg Nothing
@@ -170,9 +156,10 @@ main = do
         , barHeight = 45
         }
       simpleTaffyConfig = baseConfig
-        -- { endWidgets = []
+        { centerWidgets = map (>>= buildContentsBox) []
+        -- , endWidgets = map (>>= buildContentsBox) [ sniTrayNew,  mpris2New ]
         -- , startWidgets = [flip widgetSetClass "Workspaces" =<< workspaces]
-        -- }
+        }
   startTaffybar $
     appendHook notifySystemD $
     appendHook (void $ getHost False) $