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

[XMonad] Make gotoMenu greedily set workspace

Browse Source
This commit is contained in:
Ivan Malison 2016-10-23 01:34:31 -07:00
parent cd9a67706a
commit b45d93f0a6
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
dotfiles/xmonad/xmonad.hs
View File

@ -101,10 +101,13 @@ myLayoutHook = avoidStruts . smartSpacing 10 . noBorders . minimize .
myStartup = spawn "systemctl --user start wm.target" 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} = addKeys conf@XConfig {modMask = modm} =
[ ((modm, xK_p), spawn "rofi -show drun") [ ((modm, xK_p), spawn "rofi -show drun")
, ((modm .|. shiftMask, xK_p), spawn "rofi -show run") , ((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, xK_b), bringMenuConfig myWindowBringerConfig)
, ((modm .|. controlMask, xK_t), spawn , ((modm .|. controlMask, xK_t), spawn
"systemctl --user restart taffybar.service") "systemctl --user restart taffybar.service")