twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-01 04:31:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

fix problem found by Heffalump in CopyWindow.

Browse Source
This commit is contained in:
David Roundy
2007-10-05 14:37:46 +00:00
parent 6c2b35046d
commit dcbfe603b5
1 changed files with 1 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
CopyWindow.hs
View File

@@ -55,8 +55,7 @@ import StackSet
-- %keybindlist , (f, m) <- [(view, 0), (shift, shiftMask), (copy, shiftMask .|. controlMask)]] -- %keybindlist , (f, m) <- [(view, 0), (shift, shiftMask), (copy, shiftMask .|. controlMask)]]
-- | copy. Copy a window to a new workspace. -- | copy. Copy a window to a new workspace.
copy :: WorkspaceId -> X () copy n = copy'
copy n = windows copy'
where copy' s = if n `tagMember` s && n /= tag (workspace (current s)) where copy' s = if n `tagMember` s && n /= tag (workspace (current s))
then maybe s (go s) (peek s) then maybe s (go s) (peek s)
else s else s