[taffybar] Remap NSP
This commit is contained in:
parent
ed95ed104b
commit
c14de26be4
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user