twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-05-19 08:30:21 -07:00
Code Issues Packages Projects Releases Wiki Activity

minor aesthetic changes

Browse Source
This commit is contained in:
daniel 2007-03-26 07:33:39 +00:00
parent 876417cfe8
commit 929d9c784a
2 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Main.hs
View File

@ -182,4 +182,3 @@ handle e@(ConfigureRequestEvent {window = w}) = do
io $ sync dpy False io $ sync dpy False
handle e = trace (eventName e) -- ignoring handle e = trace (eventName e) -- ignoring

12
Operations.hs
View File

@ -24,12 +24,12 @@ import qualified StackSet as W
-- screen and raises the window. -- screen and raises the window.
refresh :: X () refresh :: X ()
refresh = do refresh = do
ws <- gets workspace ws <- gets workspace
ws2sc <- gets wsOnScreen ws2sc <- gets wsOnScreen
xinesc <- gets xineScreens xinesc <- gets xineScreens
d <- gets display d <- gets display
l <- gets layout l <- gets layout
ratio <- gets leftWidth ratio <- gets leftWidth
let move w a b c e = io $ moveResizeWindow d w a b c e let move w a b c e = io $ moveResizeWindow d w a b c e
flip mapM_ (M.assocs ws2sc) $ \(n, scn) -> do flip mapM_ (M.assocs ws2sc) $ \(n, scn) -> do
let sc = xinesc !! scn let sc = xinesc !! scn
@ -165,7 +165,7 @@ tag o = do
-- | view. Change the current workspace to workspce at offset 'n-1'. -- | view. Change the current workspace to workspce at offset 'n-1'.
view :: Int -> X () view :: Int -> X ()
view o = do view o = do
ws <- gets workspace ws <- gets workspace
ws2sc <- gets wsOnScreen ws2sc <- gets wsOnScreen
let m = W.current ws let m = W.current ws
-- is the workspace we want to switch to currently visible? -- is the workspace we want to switch to currently visible?