diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-06-30 08:56:43 +0200 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-06-30 08:56:43 +0200 |
| commit | 279e1da8e4e1cef7cd5eb71de2c1bb80c389c871 (patch) | |
| tree | 9c5f6c84784f3c9a95ebdba73663e015a8074c20 | |
| parent | 8c57d383a08a3dec19c39473dc3127f560508f7f (diff) | |
| download | XMonadContrib-279e1da8e4e1cef7cd5eb71de2c1bb80c389c871.tar.gz XMonadContrib-279e1da8e4e1cef7cd5eb71de2c1bb80c389c871.tar.xz XMonadContrib-279e1da8e4e1cef7cd5eb71de2c1bb80c389c871.zip | |
Make GreedyView work with ScreenDetails
darcs-hash:20070630065643-a5988-58b391b0bebab7c19d100facaee4e0887ee6b527.gz
| -rw-r--r-- | GreedyView.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/GreedyView.hs b/GreedyView.hs index db54df0..6cfa612 100644 --- a/GreedyView.hs +++ b/GreedyView.hs @@ -54,11 +54,10 @@ greedyView = windows . greedyView' greedyView' :: WorkspaceId -> WindowSet -> WindowSet greedyView' w ws | any wTag (hidden ws) = W.view w ws - | (Just s) <- find (wTag . workspace) (visible ws) = ws { current = setScreen s (screen $ current ws) - , visible = setScreen (current ws) (screen s) + | (Just s) <- find (wTag . workspace) (visible ws) = ws { current = (current ws) { workspace = workspace s } + , visible = s { workspace = workspace (current ws) } : filter (not . wTag . workspace) (visible ws) } | otherwise = ws where - setScreen s i = s { screen = i } wTag = (w == ) . tag |