Add missing ppVisibleNoWindows to workspaceNamesPP, marshallPP, clickableRenamedPP

The ppVisibleNoWindows was added in #241 but none of the modules that
rename/mangle workspace names were updated (or didn't exist at the
time). This fixes this.

Related: https://github.com/xmonad/xmonad-contrib/pull/241
Related: 670eb3bc60 ("Added pretty printer for empty visible workspaces")
This commit is contained in:
Tomas Janousek
2021-02-03 15:48:02 +00:00
parent c6b4e69f39
commit c37737bf73
3 changed files with 7 additions and 0 deletions

View File

@@ -54,6 +54,7 @@ import XMonad.Prompt (mkXPrompt, XPConfig)
import XMonad.Prompt.Workspace (Wor(Wor))
import XMonad.Util.WorkspaceCompare (getSortByIndex)
import Data.Functor ((<&>))
import qualified Data.Map as M
import Data.Maybe (fromMaybe)
import Data.List (isInfixOf)
@@ -146,6 +147,7 @@ workspaceNamesPP pp = do
ppVisible = ppVisible pp . names,
ppHidden = ppHidden pp . names,
ppHiddenNoWindows = ppHiddenNoWindows pp . names,
ppVisibleNoWindows= ppVisibleNoWindows pp <&> (. names),
ppUrgent = ppUrgent pp . names
}