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.

darcs-hash:20070612175357-06a25-9fdeb7878abc915e54ac0880a3ea21199aab75cc.gz

1 files changed, 11 insertions, 0 deletions

diff --git a/MagicFocus.hs b/MagicFocus.hs
new file mode 100644
index 0000000..444a100
--- /dev/null
+++ b/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)