diff options
author | Don Stewart <dons@galois.com> | 2007-10-13 22:43:00 +0200 |
---|---|---|
committer | Don Stewart <dons@galois.com> | 2007-10-13 22:43:00 +0200 |
commit | bc62d80641a5948f41fdfb7d50d8abaae4e0f381 (patch) | |
tree | c4e7fd7cc287f672f0653c3c601922769bd8d208 /Main.hs | |
parent | 9210b48e15a40b99f6755da7efc5019719233ebf (diff) | |
download | xmonad-bc62d80641a5948f41fdfb7d50d8abaae4e0f381.tar.gz xmonad-bc62d80641a5948f41fdfb7d50d8abaae4e0f381.tar.xz xmonad-bc62d80641a5948f41fdfb7d50d8abaae4e0f381.zip |
clean up names of layout code
darcs-hash:20071013204300-cba2c-7f8fb3244bbd918cd28679debad2129db542d7e8.gz
Diffstat (limited to '')
-rw-r--r-- | Main.hs | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -50,7 +50,7 @@ main = do hSetBuffering stdout NoBuffering args <- getArgs - let initialWinset = new defaultLayout workspaces $ zipWith SD xinesc gaps + let initialWinset = new layoutHook workspaces $ zipWith SD xinesc gaps maybeRead s = case reads s of [(x, "")] -> Just x @@ -59,8 +59,8 @@ main = do winset = fromMaybe initialWinset $ do ("--resume" : s : _) <- return args ws <- maybeRead s - return . W.ensureTags defaultLayout workspaces - $ W.mapLayout (fromMaybe defaultLayout . maybeRead) ws + return . W.ensureTags layoutHook workspaces + $ W.mapLayout (fromMaybe layoutHook . maybeRead) ws gaps = take (length xinesc) $ defaultGaps ++ repeat (0,0,0,0) |