Magic Focus

Automatically puts the focused window in the master position. It's magic.
I wrote this for the Circle layout, but it's actually usable with other
layouts as well.

MagicFocus.hs

@@ -0,0 +1,11 @@
+module XMonadContrib.MagicFocus (magicFocus) where
+
+import XMonad
+import StackSet
+
+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)

MetaModule.hs

@@ -22,6 +22,7 @@ import XMonadContrib.FindEmptyWorkspace ()
 import XMonadContrib.GreedyView ()
 import XMonadContrib.HintedTile ()
 import XMonadContrib.LayoutHints ()
+import XMonadContrib.MagicFocus ()
 import XMonadContrib.Mosaic ()
 import XMonadContrib.NamedWindows ()
 import XMonadContrib.NoBorders ()