diff options
| -rw-r--r-- | Operations.hs | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/Operations.hs b/Operations.hs index 9bdd962..8a31d1e 100644 --- a/Operations.hs +++ b/Operations.hs @@ -179,6 +179,16 @@ refresh = do -- TODO seems fishy? -- Urgh. This is required because the fullscreen layout assumes that -- the focused window will be raised. Hmm. This is a reordering. + + -- This really doesn't work with fullscreen mode, where + -- focus is used to find the raised window. moving the floating + -- layer will move focus there, so we now have forgotten the + -- window on the top of the fullscreen + -- + -- I think the solution must be to track the floating layer separately + -- in its own zipper, on each workspace. And from there to + -- handle pushing between the two. + -- let tiled' = case W.peek this of Just x | x `elem` tiled -> x : delete x tiled _ -> tiled |