twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

move Accordian to use idModify.

Browse Source
This commit is contained in:
David Roundy 2007-06-23 14:37:45 +00:00
parent 62a7deafd3
commit 91a286a9fd
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Accordion.hs
View File

@ -22,14 +22,14 @@ import Operations
import qualified StackSet as W import qualified StackSet as W
import Graphics.X11.Xlib import Graphics.X11.Xlib
import Data.Ratio import Data.Ratio
import XMonadContrib.LayoutHelpers ( idModify )
-- $usage -- $usage
-- > import XMonadContrib.Accordion -- > import XMonadContrib.Accordion
-- > defaultLayouts = [ accordion ] -- > defaultLayouts = [ accordion ]
accordion :: Eq a => Layout a accordion :: Eq a => Layout a
accordion = Layout { doLayout = accordionLayout accordion = Layout { doLayout = accordionLayout, modifyLayout = idModify }
, modifyLayout = const $ return Nothing }
accordionLayout :: Eq a => Rectangle -> W.Stack a -> X [(a, Rectangle)] accordionLayout :: Eq a => Rectangle -> W.Stack a -> X [(a, Rectangle)]
accordionLayout sc ws = return $ (zip ups tops) ++ accordionLayout sc ws = return $ (zip ups tops) ++