diff options
Diffstat (limited to 'src/Rahm/Desktop/Keys')
| -rw-r--r-- | src/Rahm/Desktop/Keys/Wml.hs | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/src/Rahm/Desktop/Keys/Wml.hs b/src/Rahm/Desktop/Keys/Wml.hs index 8abb17b..d1e381c 100644 --- a/src/Rahm/Desktop/Keys/Wml.hs +++ b/src/Rahm/Desktop/Keys/Wml.hs @@ -96,9 +96,9 @@ import qualified Rahm.Desktop.StackSet as W focusWindow, getLocationWorkspace, greedyView, - shiftWin, integrate', screens, + shiftWin, sink, ) import Rahm.Desktop.Submap (mapNextStringWithKeysym) @@ -131,8 +131,8 @@ import XMonad StateExtension (PersistentExtension), Typeable, Window, - WorkspaceId, WindowSet, + WorkspaceId, X, asks, directories, @@ -211,8 +211,7 @@ instance ExtensionClass MaybeMacros where data Workspace = forall a. (Typeable a) => Workspace - { - moveWindowToWorkspaceFn :: Window -> X (WindowSet -> WindowSet), + { moveWindowToWorkspaceFn :: Window -> X (WindowSet -> WindowSet), gotoWorkspaceFn :: X (), workspaceName :: Maybe String, extraWorkspaceData :: a @@ -285,9 +284,9 @@ alternateWorkspace :: Workspace alternateWorkspace = Workspace { moveWindowToWorkspaceFn = \win -> do - alter <- getAlternateWorkspace win - return $ \ss -> - maybe ss (\a -> W.shiftWin a win ss) alter, + alter <- getAlternateWorkspace win + return $ \ss -> + maybe ss (\a -> W.shiftWin a win ss) alter, gotoWorkspaceFn = do (Location _ maybeWin) <- getCurrentLocation case maybeWin of @@ -308,7 +307,7 @@ floatWorkspace ws@Workspace {extraWorkspaceData = d} = Just (FloatWorkspace ws') -> do movefn <- moveWindowToWorkspaceFn ws' win return $ W.sink win . movefn - Nothing ->do + Nothing -> do movefn <- moveWindowToWorkspaceFn ws win return $ \ss -> do if win `Map.member` W.floating ss @@ -581,7 +580,7 @@ readNextLocationSet = -- Windows in a workspace (_, _, s) | s == "\t" || s == "@" || s == "\n" -> - (mt . windowsInWorkspace) =<< readNextWorkspaceName + (mt . windowsInWorkspace) =<< readNextWorkspaceName -- The first window in the next window set. (_, _, "!") -> (: []) <$> joinMaybe (head <$> readNextLocationSet) -- The windows except the first in a window set. |