diff options
| author | Josh Rahm <rahm@google.com> | 2026-02-25 16:48:21 -0700 |
|---|---|---|
| committer | Josh Rahm <rahm@google.com> | 2026-02-25 16:50:19 -0700 |
| commit | 0b01da5b4c2c9de8e3f0b7454cc5cb177aba1dd4 (patch) | |
| tree | ded783c163b76e5fc41c9b8dfdda1c9417faef36 /src/Rahm/Desktop/Keys | |
| parent | 983db9f0cd1d0e4e7e26f53554c6aa368fabef05 (diff) | |
| download | rde-0b01da5b4c2c9de8e3f0b7454cc5cb177aba1dd4.tar.gz rde-0b01da5b4c2c9de8e3f0b7454cc5cb177aba1dd4.tar.bz2 rde-0b01da5b4c2c9de8e3f0b7454cc5cb177aba1dd4.zip | |
[bugfix] use better algorithm to determine navigating screens in 2D.
Diffstat (limited to 'src/Rahm/Desktop/Keys')
| -rw-r--r-- | src/Rahm/Desktop/Keys/Wml.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Rahm/Desktop/Keys/Wml.hs b/src/Rahm/Desktop/Keys/Wml.hs index e5c45e7..9122ccb 100644 --- a/src/Rahm/Desktop/Keys/Wml.hs +++ b/src/Rahm/Desktop/Keys/Wml.hs @@ -539,22 +539,22 @@ readNextWorkspace = -- Workspace to the next screen to the right of the next workspace. (_, _, ",") -> do ws <- readNextWorkspaceName - liftXToFeed $ justWorkspace <$> getWorkspaceToTheRight ws + hoistMaybeT $ justWorkspace <$> getWorkspaceToTheRight ws -- Workspace on the screen below the current workspace.. (_, _, "%") -> do ws <- readNextWorkspaceName - liftXToFeed $ justWorkspace <$> getWorkspaceAbove ws + hoistMaybeT $ justWorkspace <$> getWorkspaceAbove ws -- Workspace on the screen above the current workspace.. (_, _, "+") -> do ws <- readNextWorkspaceName - liftXToFeed $ justWorkspace <$> getWorkspaceAbove ws + hoistMaybeT $ justWorkspace <$> getWorkspaceBelow ws -- Workspace to the next screen to the left of the next workspace. (_, _, ";") -> do ws <- readNextWorkspaceName - liftXToFeed $ justWorkspace <$> getWorkspaceToTheLeft ws + hoistMaybeT $ justWorkspace <$> getWorkspaceToTheLeft ws -- The workspace with the searched for window. (_, _, "/") -> |