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

[XMonad] Add workspace name to window info

Browse Source
This commit is contained in:
Ivan Malison 2016-10-21 21:58:14 -07:00
parent 65d74ea982
commit a89dbb8d18
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
dotfiles/xmonad/xmonad.hs
View File

@ -22,10 +22,16 @@ import qualified XMonad.StackSet as W
import XMonad.Util.CustomKeys import XMonad.Util.CustomKeys
import XMonad.Util.NamedWindows (getName) import XMonad.Util.NamedWindows (getName)
getClass :: Window -> X String
getClass w = do
classHint <- withDisplay $ \d -> io $ getClassHint d w
return $ resClass classHint
myDecorateName ws w = do myDecorateName ws w = do
name <- show <$> getName w name <- show <$> getName w
classHint <- withDisplay $ \d -> io $ getClassHint d w classTitle <- getClass w
return $ printf "%-2s %-20s%-20s" (W.tag ws) (resClass classHint) name workspaceToName <- getWorkspaceNames
return $ printf "%-20s%-50s %+40s" classTitle name $ "in " ++ workspaceToName (W.tag ws)
myWindowBringerConfig = WindowBringerConfig { menuCommand = "rofi" myWindowBringerConfig = WindowBringerConfig { menuCommand = "rofi"
, menuArgs = ["-dmenu", "-i"] , menuArgs = ["-dmenu", "-i"]