From 279e1da8e4e1cef7cd5eb71de2c1bb80c389c871 Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Sat, 30 Jun 2007 08:56:43 +0200 Subject: Make GreedyView work with ScreenDetails darcs-hash:20070630065643-a5988-58b391b0bebab7c19d100facaee4e0887ee6b527.gz --- GreedyView.hs | 5 ++--- 1 file 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 -- cgit v1.2.3