twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-07-31 20:21:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

restore focus to currently focused window after "float" (closes #32)

Browse Source
This commit is contained in:
Jason Creighton
2007-07-10 04:26:31 +00:00
parent bfd638d818
commit c146940154
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Operations.hs
View File

@@ -487,7 +487,7 @@ float w = withDisplay $ \d -> do
sw = W.tag . W.workspace $ sc sw = W.tag . W.workspace $ sc
bw = fi . wa_border_width $ wa 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)) (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_y wa) - fi (rect_y sr)) % fi (rect_height sr))
(fi (wa_width wa + bw*2) % fi (rect_width sr)) (fi (wa_width wa + bw*2) % fi (rect_width sr))