blob: 19f4c0437283fdd7a95e405db69e098a254b54cd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
module Edition.Model.Name exposing
( keyCodeToChar
, renderNameEdition
)
import Char
import String
import List
import Model.Keyboard exposing (KeyCode)
keyCodeToChar : KeyCode -> Maybe Char
keyCodeToChar = Just << Char.fromCode
renderNameEdition : List Char -> String
renderNameEdition chars =
chars
|> List.reverse
|> String.fromList
|
