diff options
author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-06-29 23:39:17 +0200 |
---|---|---|
committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-06-29 23:39:17 +0200 |
commit | dc49874c83c20b17b5b6ea5ab63e638402ba8f1a (patch) | |
tree | d938fa4d290b5d324229fdf915b36ae6b86d6d45 /Main.hs | |
parent | 31209bf181ca53a126049cad67e90cb4ddc98b31 (diff) | |
download | xmonad-dc49874c83c20b17b5b6ea5ab63e638402ba8f1a.tar.gz xmonad-dc49874c83c20b17b5b6ea5ab63e638402ba8f1a.tar.xz xmonad-dc49874c83c20b17b5b6ea5ab63e638402ba8f1a.zip |
Move screen details into StackSet
darcs-hash:20070629213917-a5988-3ad31d8f028efcec41c9c4805c01c2d42c0009b2.gz
Diffstat (limited to '')
-rw-r--r-- | Main.hs | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -52,7 +52,8 @@ main = do let winset | ("--resume" : s : _) <- args , [(x, "")] <- reads s = x - | otherwise = new [0..fromIntegral workspaces-1] (fromIntegral $ length xinesc) + | otherwise = new [0..fromIntegral workspaces-1] $ zipWith SD xinesc gaps + gaps = take (length xinesc) $ defaultGaps ++ repeat (0,0,0,0) safeLayouts = case defaultLayouts of [] -> (full, []); (x:xs) -> (x,xs) cf = XConf @@ -63,8 +64,6 @@ main = do st = XState { windowset = winset , layouts = M.fromList [(w, safeLayouts) | w <- [0 .. W workspaces - 1]] - , statusGaps = take (length xinesc) $ defaultGaps ++ repeat (0,0,0,0) - , xineScreens = xinesc , mapped = S.empty , waitingUnmap = M.empty } |