diff options
| author | Jason Creighton <jcreigh@gmail.com> | 2007-07-10 06:26:31 +0200 |
|---|---|---|
| committer | Jason Creighton <jcreigh@gmail.com> | 2007-07-10 06:26:31 +0200 |
| commit | eb516c00e47b84424a002dc61015c63d68ba2780 (patch) | |
| tree | d3222844408bde0d6164d33592a7e925230df0e7 /Operations.hs | |
| parent | 9f826eef5b1a302c28dbdce0ffb6456b8a36a2ed (diff) | |
| download | xmonad-eb516c00e47b84424a002dc61015c63d68ba2780.tar.gz xmonad-eb516c00e47b84424a002dc61015c63d68ba2780.tar.xz xmonad-eb516c00e47b84424a002dc61015c63d68ba2780.zip | |
restore focus to currently focused window after "float" (closes #32)
darcs-hash:20070710042631-b9aa7-d7c3a5dfef1c7495f9c96fc16af8374a495a9cb9.gz
Diffstat (limited to 'Operations.hs')
| -rw-r--r-- | Operations.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Operations.hs b/Operations.hs index 68524f1..d5a5d3e 100644 --- a/Operations.hs +++ b/Operations.hs @@ -487,7 +487,7 @@ float w = withDisplay $ \d -> do sw = W.tag . W.workspace $ sc bw = fi . wa_border_width $ wa - windows $ W.shift sw . W.focusWindow w . W.float w + windows $ maybe id W.focusWindow (W.peek ws) . W.shift sw . W.focusWindow w . W.float w (W.RationalRect ((fi (wa_x wa) - fi (rect_x sr)) % fi (rect_width sr)) ((fi (wa_y wa) - fi (rect_y sr)) % fi (rect_height sr)) (fi (wa_width wa + bw*2) % fi (rect_width sr)) |