summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lib/DynamicPerScreenWorkspaces.hs4
-rw-r--r--xmonad.hs2
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
diff --git a/xmonad.hs b/xmonad.hs
index 637dd6e..d2c3ba8 100644
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -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 []