wgester/dotfiles
1
0
Fork 0
forked from colonelpanic/dotfiles
Code Pull Requests Activity

[XMonad] Make WindowBringer text similar to rofi

Browse Source
This commit is contained in:
Ivan Malison 2016-10-21 16:37:26 -07:00
parent 43b512abb2
commit c520264f4c
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
dotfiles/xmonad/xmonad.hs
View File

@ -1,5 +1,6 @@
import Graphics.X11.ExtraTypes.XF86 import Graphics.X11.ExtraTypes.XF86
import System.Taffybar.Hooks.PagerHints (pagerHints) import System.Taffybar.Hooks.PagerHints (pagerHints)
import Text.Printf
import XMonad hiding ( (|||) ) import XMonad hiding ( (|||) )
import XMonad.Actions.CycleWS import XMonad.Actions.CycleWS
@ -23,7 +24,8 @@ import XMonad.Util.NamedWindows (getName)
myDecorateName ws w = do myDecorateName ws w = do
name <- show <$> getName w name <- show <$> getName w
return $ name ++ " [" ++ W.tag ws ++ "]" classHint <- withDisplay $ \d -> io $ getClassHint d w
return $ printf "%-2s %-20s%-20s" (W.tag ws) (resClass classHint) name
myWindowBringerConfig = WindowBringerConfig { menuCommand = "rofi" myWindowBringerConfig = WindowBringerConfig { menuCommand = "rofi"
, menuArgs = ["-dmenu", "-i"] , menuArgs = ["-dmenu", "-i"]