module Config () where

import Control.Monad.IO.Class (liftIO)
import Data.Bits (shiftL, (.&.))
import Data.Word (Word32)
import Montis.Core
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

foreign export ccall "plugin_hot_start"
  hotStart :: MontisHotStart

coldStart :: MontisColdStart
coldStart = coldStartMontis config

hotStart :: MontisHotStart
hotStart = hotStartMontis config

keys :: KeyEvent -> Montis Bool
keys ev
  | keyEvent_modifiers ev .&. mod1Mask == 0 = return False
  | otherwise = case keyEvent_codepoint ev of
      'j' -> do
        liftIO (putStrLn "j was pressed!")
        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

mod1Mask :: Word32
mod1Mask = 1 `shiftL` 3 -- WLR_MODIFIER_ALT

config :: MontisConfig
config =
  install MouseConfig $
    install (DragConfig mod1Mask) $
      install (KeysConfig keys) defaultConfig