diff options
author | David Roundy <droundy@darcs.net> | 2007-06-23 16:37:45 +0200 |
---|---|---|
committer | David Roundy <droundy@darcs.net> | 2007-06-23 16:37:45 +0200 |
commit | b40d0f8237f4140decbf4edc7366b900cf82428b (patch) | |
tree | d29c55f222ecb5a386cf1af8d420a6b180abec14 /Accordion.hs | |
parent | ec614439821045141fe4bbd40329cbca17780785 (diff) | |
download | XMonadContrib-b40d0f8237f4140decbf4edc7366b900cf82428b.tar.gz XMonadContrib-b40d0f8237f4140decbf4edc7366b900cf82428b.tar.xz XMonadContrib-b40d0f8237f4140decbf4edc7366b900cf82428b.zip |
move Accordian to use idModify.
darcs-hash:20070623143745-72aca-af7a62ddac17d009e0792e38d706e5d5746468e6.gz
Diffstat (limited to 'Accordion.hs')
-rw-r--r-- | Accordion.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Accordion.hs b/Accordion.hs index 0385969..96ba448 100644 --- a/Accordion.hs +++ b/Accordion.hs @@ -22,14 +22,14 @@ import Operations import qualified StackSet as W import Graphics.X11.Xlib import Data.Ratio +import XMonadContrib.LayoutHelpers ( idModify ) -- $usage -- > import XMonadContrib.Accordion -- > defaultLayouts = [ accordion ] accordion :: Eq a => Layout a -accordion = Layout { doLayout = accordionLayout - , modifyLayout = const $ return Nothing } +accordion = Layout { doLayout = accordionLayout, modifyLayout = idModify } accordionLayout :: Eq a => Rectangle -> W.Stack a -> X [(a, Rectangle)] accordionLayout sc ws = return $ (zip ups tops) ++ |