twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-07-31 20:21:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

clean up names of layout code

Browse Source
This commit is contained in:
Don Stewart
2007-10-13 20:43:00 +00:00
parent f5bec53b83
commit 775172983b
4 changed files with 60 additions and 53 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Main.hs
View File

@@ -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)