neocturne/xmonad-conf
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use screenWorkspaceStorage

Browse source
This commit is contained in:
Matthias Schiffer 2011-09-03 13:09:55 +02:00
parent daadcaa31b
commit 6ce8a6515e
2 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/DynamicPerScreenWorkspaces.hs
View file

@ -1,6 +1,7 @@
{-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE DeriveDataTypeable #-}
module DynamicPerScreenWorkspaces ( WorkspaceScreens module DynamicPerScreenWorkspaces ( screenWorkspaceStorage
, WorkspaceScreens
, DynamicWorkspaceConfig(..) , DynamicWorkspaceConfig(..)
, dynamicRescreenHook , dynamicRescreenHook
, create , create
@ -59,6 +60,7 @@ workspaceScreen :: DynamicWorkspaceConfig -> Int -> X ScreenId
workspaceScreen conf i = do workspaceScreen conf i = do
wset <- gets windowset wset <- gets windowset
d <- getStoreData d <- getStoreData
let defaultScreen = defaultWorkspaceScreen conf (length $ W.screens wset) i let defaultScreen = defaultWorkspaceScreen conf (length $ W.screens wset) i
return $ case d of return $ case d of
Just (DWSD wsscreens) -> do Just (DWSD wsscreens) -> do

2
xmonad.hs
View file

@ -164,7 +164,7 @@ myManageHook = composeAll
--myUnmanageHook = moveUp1 --myUnmanageHook = moveUp1
myLayoutHook = processWorkspaceManager $ manageFullscreen $ smartBorders (Full ||| tiled ||| Mirror tiled) myLayoutHook = screenWorkspaceStorage $ processWorkspaceManager $ manageFullscreen $ smartBorders (Full ||| tiled ||| Mirror tiled)
where where
-- default tiling algorithm partitions the screen into two panes -- default tiling algorithm partitions the screen into two panes
tiled = ResizableTall nmaster delta ratio [] tiled = ResizableTall nmaster delta ratio []