twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-05 06:31:54 -07:00
Code Issues Packages Projects Releases Wiki Activity

Fix layout switching order

Browse Source
This commit is contained in:
Spencer Janssen
2007-05-03 23:56:32 +00:00
parent 9d3d2f8503
commit a5e0e2458d
1 changed files with 1 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Operations.hs
View File

@@ -97,8 +97,7 @@ flipRect (Rectangle rx ry rw rh) = (Rectangle ry rx rh rw)
-- switching back , the focused window is uppermost. -- switching back , the focused window is uppermost.
-- --
switchLayout :: X () switchLayout :: X ()
switchLayout = layout rotateList where rotateList [] = [] switchLayout = layout (\(x:xs) -> xs ++ [x])
rotateList xs = last xs : init xs
data ShrinkOrExpand = Shrink | Expand deriving ( Typeable, Eq ) data ShrinkOrExpand = Shrink | Expand deriving ( Typeable, Eq )