diff options
| -rw-r--r-- | CopyWindow.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/CopyWindow.hs b/CopyWindow.hs index 285b042..23cadb8 100644 --- a/CopyWindow.hs +++ b/CopyWindow.hs @@ -55,6 +55,7 @@ import StackSet -- %keybindlist , (f, m) <- [(view, 0), (shift, shiftMask), (copy, shiftMask .|. controlMask)]] -- | copy. Copy a window to a new workspace. +copy :: WorkspaceId -> WindowSet -> WindowSet copy n = copy' where copy' s = if n `tagMember` s && n /= tag (workspace (current s)) then maybe s (go s) (peek s) |