From 6d633961451e1ab4747dcf1b5d3a6ea672d4d938 Mon Sep 17 00:00:00 2001
From: Josh Rahm <joshuarahm@gmail.com>
Date: Mon, 18 Apr 2022 01:31:22 -0600
Subject: Add basic language for moving windows around

---
 src/Rahm/Desktop/Workspaces.hs | 24 ------------------------
 1 file changed, 24 deletions(-)

(limited to 'src/Rahm/Desktop/Workspaces.hs')

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
-- 
cgit