From 8ca9c0849869b55743557a3714adcf991402917b Mon Sep 17 00:00:00 2001
From: Adam Vogt <vogt.adam@gmail.com>
Date: Thu, 21 Jan 2010 16:43:44 +0100
Subject: Swap window ordering in L.Accordion (closes Issue 358). Thanks
 rsaarelm.

Ignore-this: cd06b0f4fc85f857307aaae8f6e40af7

This change keeps windows in the same ordering when focus is changed.

darcs-hash:20100121154344-1499c-a486c8de3af0ab71155772f5264366c38b298384.gz
---
 XMonad/Layout/Accordion.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'XMonad')

diff --git a/XMonad/Layout/Accordion.hs b/XMonad/Layout/Accordion.hs
index a3c1efd..90268c8 100644
--- a/XMonad/Layout/Accordion.hs
+++ b/XMonad/Layout/Accordion.hs
@@ -42,7 +42,7 @@ data Accordion a = Accordion deriving ( Read, Show )
 instance LayoutClass Accordion Window where
     pureLayout _ sc ws = zip ups tops ++ [(W.focus ws, mainPane)] ++ zip dns bottoms
      where
-       ups    = W.up ws
+       ups    = reverse $ W.up ws
        dns    = W.down ws
        (top,  allButTop) = splitVerticallyBy (1%8 :: Ratio Int) sc
        (center,  bottom) = splitVerticallyBy (6%7 :: Ratio Int) allButTop
-- 
cgit v1.2.3