diff options
| author | Josh Rahm <rahm@google.com> | 2023-12-04 14:32:11 -0700 |
|---|---|---|
| committer | Josh Rahm <rahm@google.com> | 2023-12-04 14:32:11 -0700 |
| commit | ea291e76b2ab45e13f648e82b63c4668974c2eae (patch) | |
| tree | d1c44db24d3c3cc44aaf44e126f3636da6b4d547 /src/Rahm/Desktop/Common.hs | |
| parent | 2ab0c27e9864fd072275664ff13270c5e42ed1b6 (diff) | |
| download | rde-ea291e76b2ab45e13f648e82b63c4668974c2eae.tar.gz rde-ea291e76b2ab45e13f648e82b63c4668974c2eae.tar.bz2 rde-ea291e76b2ab45e13f648e82b63c4668974c2eae.zip | |
Add ability to swap two workspaces with the W command
Diffstat (limited to 'src/Rahm/Desktop/Common.hs')
| -rw-r--r-- | src/Rahm/Desktop/Common.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Rahm/Desktop/Common.hs b/src/Rahm/Desktop/Common.hs index 47156bb..4787598 100644 --- a/src/Rahm/Desktop/Common.hs +++ b/src/Rahm/Desktop/Common.hs @@ -185,7 +185,9 @@ withBorderWidth width ws fn = do return ret gotoWorkspace :: WorkspaceId -> X () -gotoWorkspace wid = windows $ S.greedyView wid +gotoWorkspace wid = do + logs Debug "GotoWorkspace %s" wid + windows $ S.greedyView wid moveLocationToWorkspace :: Location -> WorkspaceId -> X () moveLocationToWorkspace (Location _ (Just win)) wid = |