From 1253e611f75763796affa3e16e199d8a5a7f33b6 Mon Sep 17 00:00:00 2001
From: Malebria <malebria@riseup.net>
Date: Tue, 27 May 2008 00:32:20 +0200
Subject: Bug correction when areasColumn > 1

darcs-hash:20080526223220-1ef02-534dcd578c67a108f176c892a87a732ba6ab1dab.gz
---
 XMonad/Actions/Plane.hs | 16 ++++++++++++----
 1 file changed, 12 insertions(+), 4 deletions(-)

(limited to 'XMonad/Actions/Plane.hs')

diff --git a/XMonad/Actions/Plane.hs b/XMonad/Actions/Plane.hs
index 92593c5..639368a 100644
--- a/XMonad/Actions/Plane.hs
+++ b/XMonad/Actions/Plane.hs
@@ -112,10 +112,18 @@ plane function columns limits direction = do
     state <- get
     xconf <- ask
     let vertical f =
-            if mod currentWS columns >= mod areas columns
-                then mod (f currentWS columns) $ div areas columns * columns
-                else mod (f currentWS columns) $ ((div areas columns + 1) * columns)
-        horizontal f = mod (f currentWS) columns + line * columns
+            if column >= areasColumn
+                then mod (f currentWS columns) $ areasLine * columns
+                else mod (f currentWS columns) $ (areasLine + 1) * columns
+
+        horizontal f =
+            if line < areasLine
+                then mod (f column) columns + lineNumber
+                else mod (f column) areasColumn + lineNumber
+
+        areasLine = div areas columns
+        areasColumn = mod areas columns
+        lineNumber = line * columns
         line = div currentWS columns
         column = mod currentWS columns
         currentWS = fromJust mCurrentWS
-- 
cgit v1.2.3