twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-07-25 17:21:51 -07:00
Code Issues Packages Projects Releases Wiki Activity

CopyWindow.copy: remove seemingly unnecessary parameter from helper func.

Browse Source
This commit is contained in:
Joachim Fasting
2007-09-19 21:45:26 +00:00
parent 119412d095
commit d557e5f382
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
CopyWindow.hs
View File

@@ -56,10 +56,10 @@ import StackSet
-- | copy. Copy a window to a new workspace.
copy :: WorkspaceId -> X ()
copy n = windows (copy' n)
where copy' n s = if n `tagMember` s && n /= tag (workspace (current s))
then maybe s (go s) (peek s)
else s
copy n = windows copy'
where copy' s = if n `tagMember` s && n /= tag (workspace (current s))
then maybe s (go s) (peek s)
else s
go s w = view (tag (workspace (current s))) $ insertUp' w $ view n s
insertUp' a s = modify (Just $ Stack a [] [])
(\(Stack t l r) -> Just $ Stack a (L.delete a l) (L.delete a (t:r))) s