Add right mouse button click

2 files changed, 4 insertions, 3 deletions

diff --git a/src/Chelleport/Control.hs b/src/Chelleport/Control.hs
index 38b6c53..2723cd2 100644
--- a/src/Chelleport/Control.hs
+++ b/src/Chelleport/Control.hs
@@ -20,13 +20,14 @@ instance (MonadIO m) => MonadControl (AppM m) where
     (DrawContext {ctxX11Display = display}) <- ask
     liftIO $ do
       -- Wrap with delay to prevent async window close issues. TODO: Remove maybe?
-      threadDelay 30_000
+      threadDelay 20_000
       X11.fakeButtonPress display x11Button
       X11.sync display False
-      threadDelay 30_000
+      threadDelay 20_000
     where
       x11Button = case btn of
         LeftClick -> X11.button1
+        RightClick -> X11.button3
 
   moveMousePointer x y = do
     DrawContext {ctxWindow = window} <- ask
diff --git a/src/Chelleport/Types.hs b/src/Chelleport/Types.hs
index 9752552..e648618 100644
--- a/src/Chelleport/Types.hs
+++ b/src/Chelleport/Types.hs
@@ -40,7 +40,7 @@ data DrawContext = DrawContext
     ctxX11Display :: X11.Display
   }
 
-data MouseButtonType = LeftClick
+data MouseButtonType = LeftClick | RightClick
   deriving (Show, Eq)
 
 newtype AppM m a = AppM {runAppM :: ReaderT DrawContext m a}