From 80addc4ae9dbafacd01ef16f3225d04a270f0084 Mon Sep 17 00:00:00 2001
From: Ivan Malison <IvanMalison@gmail.com>
Date: Thu, 20 Oct 2016 17:58:25 -0700
Subject: [PATCH] [XMonad] Use custom WindowBringer config

---
 dotfiles/xmonad/xmonad.hs | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/dotfiles/xmonad/xmonad.hs b/dotfiles/xmonad/xmonad.hs
index 7a78ed50..a12a2c41 100644
--- a/dotfiles/xmonad/xmonad.hs
+++ b/dotfiles/xmonad/xmonad.hs
@@ -21,6 +21,16 @@ import qualified XMonad.StackSet as W
 import XMonad.Util.CustomKeys
 import XMonad.Util.NamedWindows (getName)
 
+myDecorateName ws w = do
+  name <- show <$> getName w
+  return $ name -- ++ " [" ++ W.tag ws ++ "]"
+
+myWindowBringerConfig = WindowBringerConfig{ menuCommand = "rofi"
+                                           , menuArgs = ["-dmenu"]
+                                           , windowTitler = myDecorateName
+                                           }
+
+
 main = xmonad $ ewmh $ pagerHints def
        { modMask = mod4Mask
        , terminal = "urxvt"
@@ -53,10 +63,10 @@ myStartup = spawn "systemctl --user start wm.target"
 addKeys conf@XConfig {modMask = modm} =
     [ ((modm, xK_p), spawn "rofi -show drun")
     , ((modm .|. shiftMask, xK_p), spawn "rofi -show run")
-    , ((modm, xK_g), gotoMenuArgs' "rofi" ["-dmenu"])
+    , ((modm, xK_g), gotoMenuConfig myWindowBringerConfig)
+    , ((modm, xK_b), bringMenuConfig myWindowBringerConfig)
     , ((modm .|. controlMask, xK_t), spawn
        "systemctl --user restart taffybar.service")
-    , ((modm, xK_b), bringMenuArgs' "rofi" ["-dmenu"])
     , ((modm, xK_v), spawn "copyq paste")
     , ((modm, xK_s), swapNextScreen)
     , ((modm .|. controlMask, xK_space), sendMessage $ JumpToLayout "Full")