module Config (config) where

import Control.Monad (unless)
import Data.Bits
import Data.Data (Proxy (Proxy))
import Wetterhorn.Core.ButtonEvent as ButtonEvent
import Wetterhorn.Core.KeyEvent as KeyEvent
import Wetterhorn.Core.W
import Wetterhorn.Dsl.Bind
import Wetterhorn.Dsl.Input
import Wetterhorn.Keys.Macros
import Wetterhorn.Keys.MagicModifierKey
import Wetterhorn.Layout.Full

config :: Config WindowLayout
config =
  defaultConfig
    { hooks =
        defaultHooks
          { surfaceHook = do
              handleSurface
          },
      layout = WindowLayout Full,
      resetHook = do
        useInputHandler $
          withProxies inputProxies $ do
            ev <- nextInputEvent

            bind ev (released btnLeft) $
              run $
                wio $
                  putStrLn "Left Button Released!!"

            unless (isPressEvent ev) $ do
              forwardEvent ev
              continue

            bind ev (Shift .+ Mod1 .+ 'R') $ run requestHotReload

            bind ev (Mod1 .+ 't') $ run (shellExec "alacritty")

            bind ev (Mod1 .+ 'p') $ do
              ev2 <- nextInputPressEvent

              bind ev2 (Mod1 .+ 'p') $
                run $
                  wio $
                    putStrLn "Test"

            bind ev (Mod1 .+ btnLeft) $
              run $
                wio $
                  putStrLn "Left Button Press!!"

            bind ev (Mod1 .+ 'q') macroStartStopKeybind

            bind ev (weak $ Mod1 .+ '@') macroReplayKeybind

            bind ev (weak $ ModX 5 .+ btnLeft) $
              run $
                wio $
                  putStrLn "Fake Modifier With Button!!!"

            bind ev (weak $ ModX 5 .+ 't') $
              run $
                wio $
                  putStrLn "Fake Modifier!!"

            forwardEvent ev
    }
  where
    inputProxies ::
      Proxy
        '[ MacroSupport,
           MagicModifierProxy 59 SetXtra -- Only log keys when F1 (keycode 59 is pressed)
         ]
    inputProxies = Proxy

data SetXtra

instance InputProxy SetXtra where
  onKeyEvent _ ie =
    case ie of
      (InputKeyEvent ke@(KeyEvent {KeyEvent.modifiers = modifiers})) ->
        return $ InputKeyEvent ke {KeyEvent.modifiers = modifiers .|. modifierToMask (ModX 5)}
      (InputButtonEvent be@(ButtonEvent {ButtonEvent.modifiers = modifiers})) ->
        return $ InputButtonEvent be {ButtonEvent.modifiers = modifiers .|. modifierToMask (ModX 5)}
      _ -> return ie