aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Layout
diff options
context:
space:
mode:
authorAdam Vogt <vogt.adam@gmail.com>2010-01-21 16:43:44 +0100
committerAdam Vogt <vogt.adam@gmail.com>2010-01-21 16:43:44 +0100
commit8ca9c0849869b55743557a3714adcf991402917b (patch)
tree57c7ddd1bb4f8a989d54705036fb80acf5c98196 /XMonad/Layout
parentee5ec0b2aad2ed0347824b36e111055c61a2cdce (diff)
downloadXMonadContrib-8ca9c0849869b55743557a3714adcf991402917b.tar.gz
XMonadContrib-8ca9c0849869b55743557a3714adcf991402917b.tar.xz
XMonadContrib-8ca9c0849869b55743557a3714adcf991402917b.zip
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
Diffstat (limited to '')
-rw-r--r--XMonad/Layout/Accordion.hs2
1 files changed, 1 insertions, 1 deletions
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