From e3d13b491c5b8f1d4fe0f41ddc2ce3e6b7d2ff46 Mon Sep 17 00:00:00 2001
From: Josh Rahm <rahm@google.com>
Date: Fri, 7 Mar 2025 17:40:16 -0700
Subject: Misspelling: accompaning -> accompanying

---
 src/Rahm/Desktop/Workspaces.hs | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

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

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