1 files changed, 11 insertions, 0 deletions
diff --git a/src/Internal/Lib.hs b/src/Internal/Lib.hs
index c3bdeb9..3beb640 100644
--- a/src/Internal/Lib.hs
+++ b/src/Internal/Lib.hs
@@ -64,6 +64,17 @@ getHorizontallyOrderedScreens windowSet =
     where
       screens = current windowSet : visible windowSet
 
+getCurrentWorkspace :: X WorkspaceName
+getCurrentWorkspace = withWindowSet $
+  \(StackSet (Screen (Workspace t _ _) _ _) _ _ _) -> do
+    return (head t)
+
+gotoAccompaningWorkspace :: X ()
+gotoAccompaningWorkspace = do
+  cur <- getCurrentWorkspace
+  if isUpper cur
+    then gotoWorkspace (toLower cur)
+    else gotoWorkspace (toUpper cur)
 
 gotoWorkspace :: WorkspaceName -> X ()
 gotoWorkspace ch = do