[taffybar] Remap NSP

2021-08-20 15:37:49 -06:00 · 2021-08-20 15:37:49 -06:00 · c14de26be4
commit c14de26be4
parent ed95ed104b
1 changed files with 3 additions and 1 deletions
--- a/dotfiles/config/taffybar/taffybar.hs
+++ b/dotfiles/config/taffybar/taffybar.hs
@ -99,8 +99,10 @@ getFullWorkspaceNames = go <$> readAsListOfString Nothing "_NET_DESKTOP_FULL_NAM
  where go = zip [WorkspaceId i | i <- [0..]]

 workspaceNamesLabelSetter workspace =
-  fromMaybe "" . lookup (workspaceIdx workspace) <$>
+  remapNSP . fromMaybe "" . lookup (workspaceIdx workspace) <$>
            liftX11Def [] getFullWorkspaceNames
+  where remapNSP "NSP" = "S"
+        remapNSP n = n

 enableLogger logger level = do
  logger <- getLogger logger