diff options
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 |