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

[taffybar] Remap NSP

Browse Source
This commit is contained in:
Ivan Malison 2021-08-20 15:37:49 -06:00
parent ed95ed104b
commit c14de26be4
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -99,8 +99,10 @@ getFullWorkspaceNames = go <$> readAsListOfString Nothing "_NET_DESKTOP_FULL_NAM
where go = zip [WorkspaceId i | i <- [0..]] where go = zip [WorkspaceId i | i <- [0..]]
workspaceNamesLabelSetter workspace = workspaceNamesLabelSetter workspace =
fromMaybe "" . lookup (workspaceIdx workspace) <$> remapNSP . fromMaybe "" . lookup (workspaceIdx workspace) <$>
liftX11Def [] getFullWorkspaceNames liftX11Def [] getFullWorkspaceNames
where remapNSP "NSP" = "S"
remapNSP n = n
enableLogger logger level = do enableLogger logger level = do
logger <- getLogger logger logger <- getLogger logger