twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-01 20:51:55 -07:00
Code Issues Packages Projects Releases Wiki Activity

Workspace-specific layouts

Browse Source
This commit is contained in:
hughes
2007-03-26 15:02:13 +00:00
parent bffb0126e0
commit 4fc3448186
4 changed files with 63 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
Main.hs
View File

@@ -41,17 +41,17 @@ main = do
xinesc <- getScreenInfo dpy
let st = XState
{ display = dpy
, screen = dflt
, xineScreens = xinesc
, wsOnScreen = M.fromList $ map (\n -> (n,n)) [0..((length xinesc)-1)]
, theRoot = rootw
, wmdelete = wmdelt
, wmprotocols = wmprot
, dimensions = (displayWidth dpy dflt, displayHeight dpy dflt)
, workspace = W.empty workspaces
, layout = defaultLayout
, leftWidth = defaultLeftWidth
{ display = dpy
, screen = dflt
, xineScreens = xinesc
, wsOnScreen = M.fromList $ map (\n -> (n,n)) [0..((length xinesc)-1)]
, theRoot = rootw
, wmdelete = wmdelt
, wmprotocols = wmprot
, dimensions = (displayWidth dpy dflt, displayHeight dpy dflt)
, workspace = W.empty workspaces
, defaultLayoutDesc = startingLayoutDesc
, layoutDescs = M.empty
}
xSetErrorHandler -- in C, I'm too lazy to write the binding