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

L.SubLayouts fix bug where previously run layouts would not get messages

Browse Source
This commit is contained in:
Adam Vogt 2009-07-05 17:35:04 +00:00
parent 99788c8780
commit 48e74031f9
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
XMonad/Layout/SubLayouts.hs
View File

@ -50,7 +50,7 @@ import Control.Monad(Monad(return), Functor(..),
import Data.Function((.), ($), flip, id, on)
import Data.List((++), foldr, filter, map, concatMap, elem,
notElem, null, nubBy, (\\), find)
import Data.Maybe(Maybe(..), maybe, fromMaybe, listToMaybe,
import Data.Maybe(Maybe(..), isNothing, maybe, fromMaybe, listToMaybe,
mapMaybe)
import Data.Traversable(sequenceA)
@ -450,8 +450,8 @@ fromGroups' :: (Ord k) => a -> [a] -> Maybe (W.Stack k) -> Groups k -> [a]
-> [(Bool,(a, W.Stack k))]
fromGroups' defl defls st gs sls =
[ (isNew,fromMaybe2 (dl, single w) (l, M.lookup w gs))
| l <- map Just sls ++ repeat Nothing
| (isNew,dl) <- map ((,) False) defls ++ map ((,) True) (repeat defl)
| l <- map Just sls ++ repeat Nothing, let isNew = isNothing l
| dl <- defls ++ repeat defl
| w <- W.integrate' $ W.filter (`notElem` unfocs) =<< st ]
where unfocs = unfocused =<< M.elems gs
single w = W.Stack w [] []