From b45d93f0a67c05318dd5c4dde9310d3a7866153f Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Sun, 23 Oct 2016 01:34:31 -0700 Subject: [PATCH] [XMonad] Make gotoMenu greedily set workspace --- dotfiles/xmonad/xmonad.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/dotfiles/xmonad/xmonad.hs b/dotfiles/xmonad/xmonad.hs index ed09ed17..3f1fe036 100644 --- a/dotfiles/xmonad/xmonad.hs +++ b/dotfiles/xmonad/xmonad.hs @@ -101,10 +101,13 @@ myLayoutHook = avoidStruts . smartSpacing 10 . noBorders . minimize . myStartup = spawn "systemctl --user start wm.target" +greedyFocusWindow :: Window -> WindowSet -> WindowSet +greedyFocusWindow w ws = W.greedyView (fromMaybe (W.currentTag ws) $ W.findTag w ws) ws + addKeys conf@XConfig {modMask = modm} = [ ((modm, xK_p), spawn "rofi -show drun") , ((modm .|. shiftMask, xK_p), spawn "rofi -show run") - , ((modm, xK_g), gotoMenuConfig myWindowBringerConfig) + , ((modm, xK_g), actionMenu myWindowBringerConfig greedyFocusWindow) , ((modm, xK_b), bringMenuConfig myWindowBringerConfig) , ((modm .|. controlMask, xK_t), spawn "systemctl --user restart taffybar.service")