[taffybar] Config cleanup

This commit is contained in:
Ivan Malison 2019-01-05 18:42:16 -08:00
parent 7bf9b088e9
commit 4763811bbb
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
2 changed files with 7 additions and 20 deletions

View File

@ -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

View File

@ -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) $