diff options
Diffstat (limited to 'src/Rahm/Desktop/Workspaces.hs')
| -rw-r--r-- | src/Rahm/Desktop/Workspaces.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/Rahm/Desktop/Workspaces.hs b/src/Rahm/Desktop/Workspaces.hs index 49dcaae..47a4e31 100644 --- a/src/Rahm/Desktop/Workspaces.hs +++ b/src/Rahm/Desktop/Workspaces.hs @@ -7,7 +7,7 @@ module Rahm.Desktop.Workspaces firstWorkspaceId, windowsInCurrentWorkspace, getHorizontallyOrderedScreens, - accompaningWorkspace, + accompanyingWorkspace, adjacentWorkspaceNotVisible, adjacentWorkspace, viewAdjacent, @@ -146,18 +146,18 @@ getScreensOnDifferentPlane ss = | (SD (Rectangle _ y _ h)) <- W.screenDetail (W.current ss) = yCenter < y + fromIntegral h && yCenter > y -accompaningWorkspace :: WorkspaceId -> WorkspaceId -accompaningWorkspace [s] +accompanyingWorkspace :: WorkspaceId -> WorkspaceId +accompanyingWorkspace [s] | isDigit s = show (fl (ord s - ord '0')) where fl x | even x = x + 1 fl x = x - 1 -accompaningWorkspace [s] = +accompanyingWorkspace [s] = return $ if isUpper s then toLower s else toUpper s -accompaningWorkspace s = s +accompanyingWorkspace s = s adjacentWorkspaceNotVisible :: Selector -> WorkspaceId -> X WorkspaceId adjacentWorkspaceNotVisible (Selector selector) from = |