diff options
Diffstat (limited to 'src/Rahm/Desktop/Workspaces.hs')
| -rw-r--r-- | src/Rahm/Desktop/Workspaces.hs | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/src/Rahm/Desktop/Workspaces.hs b/src/Rahm/Desktop/Workspaces.hs index 3a26823..f11520a 100644 --- a/src/Rahm/Desktop/Workspaces.hs +++ b/src/Rahm/Desktop/Workspaces.hs @@ -147,27 +147,3 @@ workspaceWithWindow wid = withWindowSet $ \(W.StackSet c v h _) -> W.tag <$> find (\(W.Workspace _ _ stack) -> wid `elem` W.integrate' stack) (map W.workspace (c : v) ++ h) - -selectWorkspace :: String -> Maybe (X WorkspaceId) -selectWorkspace s = case s of - [ch] | isAlphaNum ch || ch == '*' -> Just $ return [ch] - "]" -> Just $ adjacentWorkspaceNotVisible next - =<< getCurrentWorkspace - "[" -> Just $ adjacentWorkspaceNotVisible prev - =<< getCurrentWorkspace - ")" -> Just $ adjacentWorkspace next =<< getCurrentWorkspace - "(" -> Just $ adjacentWorkspace prev =<< getCurrentWorkspace - "}" -> Just $ adjacentScreen next - "{" -> Just $ adjacentScreen prev - "^" -> Just firstWorkspaceId - "'" -> Just $ do - l <- lastLocation - case l of - Just (Location ws _) -> return ws - Nothing -> getCurrentWorkspace - "." -> Just getCurrentWorkspace - "$" -> Just lastWorkspaceId - "/" -> Just $ fromMaybe <$> getCurrentWorkspace <*> runMaybeT ( - (MaybeT . workspaceWithWindow) =<< MaybeT askWindowId) - " " -> Just $ accompaningWorkspace <$> getCurrentWorkspace - _ -> Nothing |