module Model.Edition.NameEdition
  ( keyCodeToChar
  , renderNameEdition
  ) where

import Char
import Keyboard exposing (KeyCode)
import String
import List

keyCodeToChar : KeyCode -> Maybe Char
keyCodeToChar = Just << Char.fromCode

renderNameEdition : List Char -> String
renderNameEdition chars =
  chars
    |> List.reverse
    |> String.fromList