diff options
| author | Adam Vogt <vogt.adam@gmail.com> | 2010-01-21 16:43:44 +0100 |
|---|---|---|
| committer | Adam Vogt <vogt.adam@gmail.com> | 2010-01-21 16:43:44 +0100 |
| commit | 8ca9c0849869b55743557a3714adcf991402917b (patch) | |
| tree | 57c7ddd1bb4f8a989d54705036fb80acf5c98196 /XMonad/Layout | |
| parent | ee5ec0b2aad2ed0347824b36e111055c61a2cdce (diff) | |
| download | XMonadContrib-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.hs | 2 |
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 |