colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[XMonad] Bump all versions

Browse Source
This commit is contained in:
Ivan Malison 2021-07-04 01:33:58 -06:00
parent be87dc9dee
commit 8cdeb1afbd
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
3 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
dotfiles/config/xmonad/xmonad

@ -1 +1 @@
Subproject commit a5cee9bac265485d3e85ea707aeeac5e34a94ba3
Subproject commit af354f7528ada1de451365a0f5138ef10a318360

2
dotfiles/config/xmonad/xmonad-contrib

@ -1 +1 @@
Subproject commit 6aa7e1795c7bdc9092a666325a5389068179aa12
Subproject commit 7b83d924d19171f4ba98e7956a72e99ed815e022

5
dotfiles/config/xmonad/xmonad.hs
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