aboutsummaryrefslogtreecommitdiff
path: root/src/Rahm/Desktop/Submap.hs
diff options
context:
space:
mode:
authorJosh Rahm <rahm@google.com>2023-12-04 11:47:40 -0700
committerJosh Rahm <rahm@google.com>2023-12-04 11:47:40 -0700
commit7451146b8738db5bd31c968e9fc6703fcbff6078 (patch)
tree8e60bb3f70e309d6b568840104ee1dd0302d7982 /src/Rahm/Desktop/Submap.hs
parenta50f8bcfff34ba6eaa66b17107ca0b6c4d99a224 (diff)
downloadrde-7451146b8738db5bd31c968e9fc6703fcbff6078.tar.gz
rde-7451146b8738db5bd31c968e9fc6703fcbff6078.tar.bz2
rde-7451146b8738db5bd31c968e9fc6703fcbff6078.zip
Change the rotate-screen-left/right to just swap current screen with left/right. It is more intuitive and is more flexible. As a part of this, I incresed the timeout for multiple button bindings to 5000ms like how keystrokes work.
Diffstat (limited to 'src/Rahm/Desktop/Submap.hs')
-rw-r--r--src/Rahm/Desktop/Submap.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Rahm/Desktop/Submap.hs b/src/Rahm/Desktop/Submap.hs
index 5eb8ea0..2cb71c3 100644
--- a/src/Rahm/Desktop/Submap.hs
+++ b/src/Rahm/Desktop/Submap.hs
@@ -135,7 +135,7 @@ nextButton = do
io $ grabPointer d root False buttonPressMask grabModeAsync grabModeAsync 0 0 currentTime
ret <- io $
- getMaskEventWithTimeout 1000 d buttonPressMask $ \xEv -> do
+ getMaskEventWithTimeout 5000 d buttonPressMask $ \xEv -> do
ButtonEvent {ev_button = button, ev_state = m} <- getEvent xEv
return (m, button)