magic_rb/dotfiles
1
0
Fork 0
mirror of https://git.sr.ht/~magic_rb/dotfiles synced 2024-11-22 08:04:20 +01:00
Code Issues Packages Projects Releases Wiki Activity

Xmonad add keybind to move to physical screens

Browse source 
Signed-off-by: magic_rb <richard@brezak.sk>
This commit is contained in:
magic_rb 2023-10-23 21:42:31 +02:00
parent 4a47ce1e8c
commit c9db1e39b5
No known key found for this signature in database
GPG key ID: 08D5287CC5DDCA0E
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
home-manager/modules/xmonad/app/Main.hs
View file

@ -205,13 +205,20 @@ myKeymap c =
, ("M-<F9>", (workspacesGrouped >>= \ws -> (liftIO . print $ ws))) , ("M-<F9>", (workspacesGrouped >>= \ws -> (liftIO . print $ ws)))
] ]
++ ++
-- --
-- mod-[1..9], Switch to workspace N -- mod-[1..9], Switch to workspace N
-- --
[("M-" ++ m ++ [k], windows $ onCurrentScreen f i) [("M-" ++ m ++ [k], windows $ onCurrentScreen f i)
| (i, k) <- zip (workspaces' c) "1234567890" | (i, k) <- zip (workspaces' c) "1234567890"
, (f, m) <- [(W.greedyView, ""), (W.shift, "S-"), (copy, "S-C-")]] , (f, m) <- [(W.greedyView, ""), (W.shift, "S-"), (copy, "S-C-")]]
++
--
-- mod-{w,e,r}, Switch to physical/Xinerama screens 1, 2, or 3
-- mod-shift-{w,e,r}, Move client to screen 1, 2, or 3
--
[("M-"++m++[key], screenWorkspace sc >>= flip whenJust (windows . f))
| (key, sc) <- zip ".o," [0..]
, (f, m) <- [(W.view, ""), (W.shift, "S-")]]
where where
xMoveWindow xMoveWindow
:: (Position, Position) :: (Position, Position)