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

fix MagicFocus/floats interaction

Browse Source
This commit is contained in:
Peter De Wachter 2007-08-16 18:52:17 +00:00
parent 405a7c6307
commit 73c26465a6
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
MagicFocus.hs
View File

@ -16,6 +16,7 @@ module XMonadContrib.MagicFocus (
-- $usage
magicFocus) where
import Graphics.X11.Xlib (Window)
import XMonad
import StackSet
@ -23,9 +24,10 @@ import StackSet
-- > import XMonadContrib.MagicFocus
-- > defaultLayouts = [ magicFocus tiled , magicFocus $ mirror tiled ]
magicFocus :: Layout a -> Layout a
magicFocus l = l { doLayout = \s -> (doLayout l) s . swap
magicFocus :: Layout Window -> Layout Window
magicFocus l = l { doLayout = \r s -> withWindowSet (return . peek) >>= (doLayout l) r . swap s
, modifyLayout = \x -> fmap magicFocus `fmap` modifyLayout l x }
swap :: Stack a -> Stack a
swap (Stack f u d) = Stack f [] (reverse u ++ d)
swap :: (Eq a) => Stack a -> Maybe a -> Stack a
swap (Stack f u d) focused | Just f == focused = Stack f [] (reverse u ++ d)
| otherwise = Stack f u d