diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2026-01-05 01:11:45 -0700 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2026-01-05 01:11:45 -0700 |
| commit | 34e0354bb2d07ce0ad8a6e83e226370cfb9904da (patch) | |
| tree | a8b9638c6d74cc2454ca2d7354a8ecea7dbd4cba /plug/src/Config.hs | |
| parent | 9daffd37236469e8089e3c12207c449b4db09e92 (diff) | |
| download | montis-34e0354bb2d07ce0ad8a6e83e226370cfb9904da.tar.gz montis-34e0354bb2d07ce0ad8a6e83e226370cfb9904da.tar.bz2 montis-34e0354bb2d07ce0ad8a6e83e226370cfb9904da.zip | |
[feat] right-click drag to resize windows.
Diffstat (limited to 'plug/src/Config.hs')
| -rw-r--r-- | plug/src/Config.hs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/plug/src/Config.hs b/plug/src/Config.hs index fd337eb..c76898e 100644 --- a/plug/src/Config.hs +++ b/plug/src/Config.hs @@ -4,9 +4,10 @@ import Control.Monad.IO.Class (liftIO) import Data.Bits (shiftL, (.&.)) import Data.Word (Word32) import Montis.Core -import Montis.Standard.Drag (DragConfig (DragConfig)) -import Montis.Standard.Mouse (MouseConfig (MouseConfig)) +import Montis.Base.Foreign.Runtime +import Montis.Standard.Drag (DragConfig (DragConfig), unwrapSelf) import Montis.Standard.Keys (KeysConfig (KeysConfig), subkeys) +import Montis.Standard.Mouse (MouseConfig (MouseConfig)) foreign export ccall "plugin_cold_start" coldStart :: MontisColdStart @@ -29,6 +30,8 @@ keys ev subkeys $ \ev -> case keyEvent_codepoint ev of 'k' -> do liftIO (putStrLn "k was pressed after j!") + self <- getSelfPtr + liftIO $ foreign_warpCursor (unwrapSelf self) 0 0 return True _ -> return False _ -> return False |