module Dodge.Update.Input.Text (
    doTextInputOverUniverse,
    doTextInputOver,
) where

import Data.Either
import Data.Char
import Dodge.Data.Universe
import LensHelp
import SDL

doTextInputOverUniverse :: ASetter' Universe String -> Universe -> Universe
doTextInputOverUniverse p u = doTextInputOver (u ^. uvWorld . input) p u

doTextInputOver :: Input -> ASetter' a String -> a -> a
doTextInputOver u p x =
    x & p %~ (++ map toUpper (rights str))
        & checkBackspace
  where
    str = u ^. textInput
    checkBackspace
        | backspaceInputted u = p %~ doBackspace
        | otherwise = id

backspaceInputted :: Input -> Bool
backspaceInputted u = case u ^. pressedKeys . at ScancodeBackspace of
    Just 0 -> True
    Just x | x >= 30 -> True
    _ -> False

doBackspace :: String -> String
doBackspace [] = []
doBackspace s = init s