# HG changeset patch
# User Lucas Bergman <lucas@bergmans.us>
# Date 1394560145 18000
# Node ID 64e73453e43fa7cb56ebdb50fcab5dca70552424
# Parent  231aef6069ccf8e21c942af027d8d06f3bf295c9
xmonad: Pull apart custom layout into something readable

This change doesn't affect any behavior, but it does document the custom
layout by naming function parameters. Hopefully, this will make things
easier to fix the next time the XMonad developers break us.

diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs
--- a/.xmonad/xmonad.hs
+++ b/.xmonad/xmonad.hs
@@ -10,12 +10,17 @@ import XMonad.Layout.LayoutBuilder
 import XMonad.Util.EZConfig
 import XMonad.Util.Run(spawnPipe)
 
-myLayout = augie2 ||| augie1 ||| Full
-  where augie2 = ((layoutN 2 (relBox 0 0 1 0.75) (Just $ relBox 0 0 1 1) $ (Tall 1 0.03 0.75))
-                 $ (layoutAll (relBox 0 0.75 1 1) $ (Mirror (Column 1))))
-        augie1 = ((layoutN 1 (relBox 0 0 1 0.75) (Just $ relBox 0 0 1 1) $ (Tall 1 0.03 0.75))
-                 $ (layoutAll (relBox 0 0.75 1 1) $ (Mirror (Column 1))))
+myLayout = (augieLayout 2) ||| (augieLayout 1) ||| Full
 
+augieLayout num = layoutN num mainBox (Just overflowBox) layout overflowLayout
+  where
+    mainBox = relBox 0 0 1 mainHeightFrac
+    overflowBox = relBox 0 0 1 1
+    layout = Tall 1 0.03 mainWidthFrac
+    overflowLayout = layoutAll (relBox 0 mainHeightFrac 1 1) singleRow
+    mainHeightFrac = 0.75  -- main area takes up this much screen height
+    mainWidthFrac = 0.75   -- main window takes up this much screen width
+    singleRow = Mirror $ Column 1
 
 myDmenuTitleBar =
     "exec `dmenu_path | dmenu\