twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-07-26 09:41:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

Update MagicFocus to the new StackSet

Browse Source
This commit is contained in:
Spencer Janssen
2007-06-13 03:53:23 +00:00
parent d6dec18856
commit 0a0609bd15
1 changed files with 1 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
MagicFocus.hs
View File

@@ -7,5 +7,4 @@ magicFocus l = l { doLayout = \s -> (doLayout l) s . swap
, modifyLayout = \x -> fmap magicFocus `fmap` modifyLayout l x }
swap :: Stack a -> Stack a
swap Empty = Empty
swap (Node f u d) = Node f [] (reverse u ++ d)
swap (Stack f u d) = Stack f [] (reverse u ++ d)