wgester/dotfiles
1
0
Fork 0
forked from colonelpanic/dotfiles
Code Pull Requests Activity

[taffybar] Bump version

Browse Source
This commit is contained in:
Ivan Malison 2019-06-06 00:31:10 -07:00
parent f2868c0ac1
commit a1338e63f1
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
2 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
dotfiles/config/taffybar/taffybar

@ -1 +1 @@
Subproject commit 811068a21758ac70f66583e8fc07fa7189c6dc9a Subproject commit 397a85cbb712235624f402a3f1157a3c637f0aab

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

@ -80,9 +80,9 @@ cpuCallback = do
(_, systemLoad, totalLoad) <- cpuLoad (_, systemLoad, totalLoad) <- cpuLoad
return [totalLoad, systemLoad] return [totalLoad, systemLoad]
getFullWorkspaceNames :: X11Property [(WorkspaceIdx, String)] getFullWorkspaceNames :: X11Property [(WorkspaceId, String)]
getFullWorkspaceNames = go <$> readAsListOfString Nothing "_NET_DESKTOP_FULL_NAMES" getFullWorkspaceNames = go <$> readAsListOfString Nothing "_NET_DESKTOP_FULL_NAMES"
where go = zip [WSIdx i | i <- [0..]] where go = zip [WorkspaceId i | i <- [0..]]
workspaceNamesLabelSetter workspace = workspaceNamesLabelSetter workspace =
fromMaybe "" . lookup (workspaceIdx workspace) <$> fromMaybe "" . lookup (workspaceIdx workspace) <$>
@ -101,8 +101,8 @@ logDebug = do
saveGlobalLogger $ setLevel DEBUG logger saveGlobalLogger $ setLevel DEBUG logger
logger2 <- getLogger "StatusNotifier.Tray" logger2 <- getLogger "StatusNotifier.Tray"
saveGlobalLogger $ setLevel DEBUG logger2 saveGlobalLogger $ setLevel DEBUG logger2
workspacesLogger <- getLogger "System.Taffybar.Widget.Workspaces" -- workspacesLogger <- getLogger "System.Taffybar.Widget.Workspaces"
saveGlobalLogger $ setLevel WARNING workspacesLogger -- saveGlobalLogger $ setLevel WARNING workspacesLogger
-- logDebug -- logDebug
-- logM "What" WARNING "Why" -- logM "What" WARNING "Why"
-- enableLogger "System.Taffybar.Widget.Util" DEBUG -- enableLogger "System.Taffybar.Widget.Util" DEBUG
@ -117,6 +117,7 @@ cssFileByHostname =
] ]
main = do main = do
-- logDebug
hostName <- getHostName hostName <- getHostName
homeDirectory <- getHomeDirectory homeDirectory <- getHomeDirectory
cssFilePath <- cssFilePath <-