diff options
| author | Adam Vogt <vogt.adam@gmail.com> | 2009-11-13 17:14:02 +0100 |
|---|---|---|
| committer | Adam Vogt <vogt.adam@gmail.com> | 2009-11-13 17:14:02 +0100 |
| commit | dfb15478f05280486f694ffc648d0f6b12670f6f (patch) | |
| tree | 3ae25628e7bcc5103d2c7f7cbaf23bab114e9bd0 | |
| parent | b174fb528b0e2a04f3e1acb2c819d65bc83700ce (diff) | |
| download | XMonadContrib-dfb15478f05280486f694ffc648d0f6b12670f6f.tar.gz XMonadContrib-dfb15478f05280486f694ffc648d0f6b12670f6f.tar.xz XMonadContrib-dfb15478f05280486f694ffc648d0f6b12670f6f.zip | |
Don't erase floating information with H.InsertPosition (Issue 334)
Ignore-this: de1c03eb860ea25b390ee5c756b02997
darcs-hash:20091113161402-1499c-779e2879fe96727dcc46ee7e7d74c5169036a19d.gz
| -rw-r--r-- | XMonad/Hooks/InsertPosition.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/XMonad/Hooks/InsertPosition.hs b/XMonad/Hooks/InsertPosition.hs index 54c2a6d..722c48a 100644 --- a/XMonad/Hooks/InsertPosition.hs +++ b/XMonad/Hooks/InsertPosition.hs @@ -46,7 +46,7 @@ data Focus = Newer | Older insertPosition :: Position -> Focus -> ManageHook insertPosition pos foc = Endo . g <$> ask where - g w = viewingWs w (updateFocus w . ins w . W.delete w) + g w = viewingWs w (updateFocus w . ins w . W.delete' w) ins w = (\f ws -> fromMaybe id (W.focusWindow <$> W.peek ws) $ f ws) $ case pos of Master -> W.insertUp w . W.focusMaster |