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

Reduce a bit of recently introduced duplication in L.SubLayouts

Browse Source
This commit is contained in:
Adam Vogt 2009-07-05 17:51:45 +00:00
parent f8a4dd9503
commit f0c0f4d5c3
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
XMonad/Layout/SubLayouts.hs
View File

@ -352,12 +352,10 @@ instance (Read (l Window), Show (l Window), LayoutClass l Window) => LayoutModif
in fgs $ M.unions $ map mkSingleton ws
| Just (Merge x y) <- fromMessage m
, let findGrp z = mplus (M.lookup z gs) $ listToMaybe
$ M.elems $ M.filter ((z `elem`) . W.integrate) gs
, Just (W.Stack _ xb xn) <- findGrp x
, Just yst <- findGrp y =
, Just (W.Stack _ xb xn) <- findGroup x
, Just yst <- findGroup y =
let zs = W.Stack x xb (xn ++ W.integrate yst)
in fgs $ M.update (\_ -> Just zs) x $ M.delete y gs
in fgs $ M.insert x zs $ M.delete (W.focus yst) gs
| Just (UnMerge x) <- fromMessage m =
fgs . M.fromList . map (W.focus &&& id) . M.elems