[XMonad] Bump all versions

This commit is contained in:
2021-07-04 01:33:58 -06:00
parent be87dc9dee
commit 8cdeb1afbd
3 changed files with 5 additions and 4 deletions

View File

@@ -414,14 +414,15 @@ getEWMHClasses w = do
mValue <- fmap (UTF8.decode . map fromIntegral) <$> xGetWindowProperty8 atom w
pure $ filter (not . null) $ splitOn "\NUL" $ join $ maybeToList mValue
myDecorateName :: WindowSpace -> Window -> X String
myDecorateName ws w = do
name <- show <$> getName w
classes <- getEWMHClasses w
classTitle <- getClass w
workspaceToName <- getWorkspaceNames
workspaceToName <- getWorkspaceNames'
let iconName = fromMaybe (map toLower $ head classes) $ lookupIconFromClasses classes
entryString = printf "%-20s%-40s %+30s in %s \0icon\x1f%s"
classTitle (take 40 name) " " (workspaceToName (W.tag ws)) iconName
classTitle (take 40 name) " " (fromMaybe "" $ workspaceToName (W.tag ws)) iconName
return entryString
data ChromeInfo = ChromeInfo