diff options
| -rw-r--r-- | lib/DynamicPerScreenWorkspaces.hs | 4 | ||||
| -rw-r--r-- | xmonad.hs | 2 |
2 files changed, 4 insertions, 2 deletions
diff --git a/lib/DynamicPerScreenWorkspaces.hs b/lib/DynamicPerScreenWorkspaces.hs index c54e9a1..263174d 100644 --- a/lib/DynamicPerScreenWorkspaces.hs +++ b/lib/DynamicPerScreenWorkspaces.hs @@ -1,6 +1,7 @@ {-# LANGUAGE DeriveDataTypeable #-} -module DynamicPerScreenWorkspaces ( WorkspaceScreens +module DynamicPerScreenWorkspaces ( screenWorkspaceStorage + , WorkspaceScreens , DynamicWorkspaceConfig(..) , dynamicRescreenHook , create @@ -59,6 +60,7 @@ workspaceScreen :: DynamicWorkspaceConfig -> Int -> X ScreenId workspaceScreen conf i = do wset <- gets windowset d <- getStoreData + let defaultScreen = defaultWorkspaceScreen conf (length $ W.screens wset) i return $ case d of Just (DWSD wsscreens) -> do @@ -164,7 +164,7 @@ myManageHook = composeAll --myUnmanageHook = moveUp1 -myLayoutHook = processWorkspaceManager $ manageFullscreen $ smartBorders (Full ||| tiled ||| Mirror tiled) +myLayoutHook = screenWorkspaceStorage $ processWorkspaceManager $ manageFullscreen $ smartBorders (Full ||| tiled ||| Mirror tiled) where -- default tiling algorithm partitions the screen into two panes tiled = ResizableTall nmaster delta ratio [] |