From c520264f4cbe97161341d9ee11be1eaa34c13d3a Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Fri, 21 Oct 2016 16:37:26 -0700 Subject: [PATCH] [XMonad] Make WindowBringer text similar to rofi --- dotfiles/xmonad/xmonad.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/dotfiles/xmonad/xmonad.hs b/dotfiles/xmonad/xmonad.hs index 60035cb6..c94e8b24 100644 --- a/dotfiles/xmonad/xmonad.hs +++ b/dotfiles/xmonad/xmonad.hs @@ -1,5 +1,6 @@ import Graphics.X11.ExtraTypes.XF86 import System.Taffybar.Hooks.PagerHints (pagerHints) +import Text.Printf import XMonad hiding ( (|||) ) import XMonad.Actions.CycleWS @@ -23,7 +24,8 @@ import XMonad.Util.NamedWindows (getName) myDecorateName ws w = do 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" , menuArgs = ["-dmenu", "-i"]