diff options
| author | daniel <daniel@wagner-home.com> | 2007-03-26 09:33:39 +0200 |
|---|---|---|
| committer | daniel <daniel@wagner-home.com> | 2007-03-26 09:33:39 +0200 |
| commit | bf9b1c525033c36397d6289270af52ba7b1463e0 (patch) | |
| tree | 6f085acced14072e906694c18b33ba423a308457 /Operations.hs | |
| parent | c39110bc27dcc7d4b66fa6ce52a8638cc9840edc (diff) | |
| download | metatile-bf9b1c525033c36397d6289270af52ba7b1463e0.tar metatile-bf9b1c525033c36397d6289270af52ba7b1463e0.zip | |
minor aesthetic changes
darcs-hash:20070326073339-c98ca-189e5a913582d8f6cf3ec6c7a01f39cf8718a222
Diffstat (limited to 'Operations.hs')
| -rw-r--r-- | Operations.hs | 12 |
1 files changed, 6 insertions, 6 deletions
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? |