[XMonad] Bump all versions
This commit is contained in:
Submodule dotfiles/config/xmonad/xmonad updated: a5cee9bac2...af354f7528
Submodule dotfiles/config/xmonad/xmonad-contrib updated: 6aa7e1795c...7b83d924d1
@@ -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
|
||||
|
Reference in New Issue
Block a user