forked from colonelpanic/dotfiles
Add shiftThenView command and binding to xmonad
This commit is contained in:
parent
f8ac3b6f20
commit
f576e2be24
@ -8,6 +8,7 @@ import XMonad.Layout.MultiToggle.Instances
|
|||||||
import XMonad.Layout.NoBorders
|
import XMonad.Layout.NoBorders
|
||||||
import XMonad.Layout.Spacing
|
import XMonad.Layout.Spacing
|
||||||
import XMonad.Layout.ThreeColumns
|
import XMonad.Layout.ThreeColumns
|
||||||
|
import qualified XMonad.StackSet as W
|
||||||
import XMonad.Util.CustomKeys
|
import XMonad.Util.CustomKeys
|
||||||
|
|
||||||
main = xmonad $ ewmh def
|
main = xmonad $ ewmh def
|
||||||
@ -23,7 +24,9 @@ main = xmonad $ ewmh def
|
|||||||
|
|
||||||
delKeys _ = []
|
delKeys _ = []
|
||||||
|
|
||||||
addKeys XConfig {modMask = modm} =
|
shiftThenView i = W.greedyView i . W.shift i
|
||||||
|
|
||||||
|
addKeys conf@XConfig {modMask = modm} =
|
||||||
[ ((modm, xK_p), spawn "rofi -show drun")
|
[ ((modm, xK_p), spawn "rofi -show drun")
|
||||||
, ((modm, xK_g), spawn "rofi -show window")
|
, ((modm, xK_g), spawn "rofi -show window")
|
||||||
-- , ((modm, xK_s), sequence_ [shiftNextScreen, nextScreen])
|
-- , ((modm, xK_s), sequence_ [shiftNextScreen, nextScreen])
|
||||||
@ -31,7 +34,14 @@ addKeys XConfig {modMask = modm} =
|
|||||||
, ((modm, xK_b), spawn "rofi -show run")
|
, ((modm, xK_b), spawn "rofi -show run")
|
||||||
, ((modm .|. controlMask, xK_space), sendMessage $ JumpToLayout "Full")
|
, ((modm .|. controlMask, xK_space), sendMessage $ JumpToLayout "Full")
|
||||||
, ((modm, xK_slash), sendMessage $ Toggle MIRROR)
|
, ((modm, xK_slash), sendMessage $ Toggle MIRROR)
|
||||||
]
|
] ++
|
||||||
|
-- Replace original moving stuff around + greedy view bindings
|
||||||
|
[((additionalMask .|. modm, key), windows $ function workspace)
|
||||||
|
| (workspace, key) <- zip (workspaces conf) [xK_1 .. xK_9]
|
||||||
|
, (function, additionalMask) <-
|
||||||
|
[ (W.greedyView, 0)
|
||||||
|
, (W.shift, shiftMask)
|
||||||
|
, (shiftThenView, controlMask)]]
|
||||||
|
|
||||||
layouts = tiled ||| Full ||| ThreeCol 1 (3/100) (1/3)
|
layouts = tiled ||| Full ||| ThreeCol 1 (3/100) (1/3)
|
||||||
where
|
where
|
||||||
|
Loading…
Reference in New Issue
Block a user