Commits

Brian McKenna  committed e8935bc

Remove old windows from Stack

  • Participants
  • Parent commits efad7f1

Comments (0)

Files changed (1)

File OSXMonad/Core.hs

 
   namedWindows <- XM.io . getNamedWindows $ context
   let wids = map (fromIntegral . wid) namedWindows
-      newStack = foldr S.insertUp ws $ wids
+      newStack = S.modify Nothing (S.filter (`elem` wids)) $ foldr S.insertUp ws $ wids
 
   XM.modify (\s -> s { XM.windowset = newStack })