hektor/dots
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add 'copy window to all workspaces' shortcuts

Browse Source
This commit is contained in:
Hektor Misplon
2023-11-18 17:26:46 +01:00
parent 48681cfd4d
commit 4849b64ea5
1 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
.xmonad/xmonad.hs
View File

@@ -1,6 +1,7 @@
-- {{{ -- {{{
import XMonad import XMonad
import XMonad.Actions.CopyWindow (copyToAll, killAllOtherCopies)
import XMonad.Hooks.DynamicProperty import XMonad.Hooks.DynamicProperty
import XMonad.Hooks.EwmhDesktops import XMonad.Hooks.EwmhDesktops
import XMonad.Hooks.ManageDocks import XMonad.Hooks.ManageDocks
@@ -202,6 +203,8 @@ myKeys =
(withScreen 1 myWorkspaces) (withScreen 1 myWorkspaces)
++ zip mySharedWorkspaceKeys ++ zip mySharedWorkspaceKeys
(withScreen 2 mySharedWorkspaces) (withScreen 2 mySharedWorkspaces)
("M-c", windows copyToAll),
("M-S-c", killAllOtherCopies),
] ]
zipKeyPrefixes :: [String] -> [String] -> [String] zipKeyPrefixes :: [String] -> [String] -> [String]