colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[taffybar] Filter workspaces by default in logDebug

Browse Source
This commit is contained in:
Ivan Malison 2018-05-15 18:04:47 -07:00
parent c165225803
commit 1f8cf272bd
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
dotfiles/config/taffybar/taffybar.hs
View File

@ -155,8 +155,8 @@ logDebug = do
handler <- streamHandler stdout DEBUG handler <- streamHandler stdout DEBUG
logger <- getLogger "System.Taffybar" logger <- getLogger "System.Taffybar"
saveGlobalLogger $ setLevel DEBUG logger saveGlobalLogger $ setLevel DEBUG logger
infoLogger <- getLogger "System.Information" workspacesLogger <- getLogger "System.Taffybar.Widget.Workspaces"
saveGlobalLogger $ setLevel DEBUG infoLogger saveGlobalLogger $ setLevel WARNING workspacesLogger
github = do github = do
Right (token, _) <- passGet "github-token" Right (token, _) <- passGet "github-token"
@ -165,6 +165,7 @@ github = do
main = do main = do
interfaceNames <- getInterfaces interfaceNames <- getInterfaces
homeDirectory <- getHomeDirectory homeDirectory <- getHomeDirectory
-- logDebug
let resourcesDirectory = homeDirectory </> ".lib" </> "resources" let resourcesDirectory = homeDirectory </> ".lib" </> "resources"
inResourcesDirectory file = resourcesDirectory </> file inResourcesDirectory file = resourcesDirectory </> file
highContrastDirectory = highContrastDirectory =
@ -257,7 +258,8 @@ main = do
-- , centerWidgets = [makeContents (addClass "Window" wnd) "Cpu"] -- , centerWidgets = [makeContents (addClass "Window" wnd) "Cpu"]
-- , endWidgets = [makeContents los "Cpu"] -- , endWidgets = [makeContents los "Cpu"]
-- } -- }
dyreTaffybar $ withLogServer $ withToggleServer $ toTaffyConfig simpleTaffyConfig dyreTaffybar $ withBatteryRefresh $ withLogServer $ withToggleServer $
toTaffyConfig simpleTaffyConfig
-- Local Variables: -- Local Variables:
-- flycheck-ghc-args: ("-Wno-missing-signatures") -- flycheck-ghc-args: ("-Wno-missing-signatures")