diff options
| author | Josh Rahm <rahm@google.com> | 2025-03-07 17:40:16 -0700 |
|---|---|---|
| committer | Josh Rahm <rahm@google.com> | 2025-03-07 17:40:16 -0700 |
| commit | e3d13b491c5b8f1d4fe0f41ddc2ce3e6b7d2ff46 (patch) | |
| tree | 390c3cfde0ac88b588d97d755791b2bd9f3d0d89 /src/Rahm/Desktop/Workspaces.hs | |
| parent | f466c55f363f43cd00f9fe9f04595920d73823e3 (diff) | |
| download | rde-e3d13b491c5b8f1d4fe0f41ddc2ce3e6b7d2ff46.tar.gz rde-e3d13b491c5b8f1d4fe0f41ddc2ce3e6b7d2ff46.tar.bz2 rde-e3d13b491c5b8f1d4fe0f41ddc2ce3e6b7d2ff46.zip | |
Misspelling: accompaning -> accompanying
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 = |