diff options
| -rw-r--r-- | Main.hs | 1 | ||||
| -rw-r--r-- | Operations.hs | 12 |
2 files changed, 6 insertions, 7 deletions
@@ -182,4 +182,3 @@ handle e@(ConfigureRequestEvent {window = w}) = do io $ sync dpy False handle e = trace (eventName e) -- ignoring - diff --git a/Operations.hs b/Operations.hs index b70f151..73d609c 100644 --- a/Operations.hs +++ b/Operations.hs @@ -24,12 +24,12 @@ import qualified StackSet as W -- screen and raises the window. refresh :: X () refresh = do - ws <- gets workspace - ws2sc <- gets wsOnScreen + ws <- gets workspace + ws2sc <- gets wsOnScreen xinesc <- gets xineScreens - d <- gets display - l <- gets layout - ratio <- gets leftWidth + d <- gets display + l <- gets layout + ratio <- gets leftWidth let move w a b c e = io $ moveResizeWindow d w a b c e flip mapM_ (M.assocs ws2sc) $ \(n, scn) -> do let sc = xinesc !! scn @@ -165,7 +165,7 @@ tag o = do -- | view. Change the current workspace to workspce at offset 'n-1'. view :: Int -> X () view o = do - ws <- gets workspace + ws <- gets workspace ws2sc <- gets wsOnScreen let m = W.current ws -- is the workspace we want to switch to currently visible? |