blob: 89a0b524f33cbff6e581aac2603d14cbae68dfe5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
module Model.Edition.Edition
( Edition
, Kind(..)
, newEdition
, keyCodeToChar
) where
import Keyboard (KeyCode)
import Model.Id (..)
import Model.Edition.NameEdition as NameEdition
import Model.Edition.TimeEdition as TimeEdition
type alias Edition =
{ id : Id
, kind : Kind
, chars : List Char
}
type Kind =
Name
| Time
newEdition id kind =
{ id = id
, kind = kind
, chars = []
}
keyCodeToChar : Kind -> KeyCode -> Maybe Char
keyCodeToChar kind =
case kind of
Name -> NameEdition.keyCodeToChar
Time -> TimeEdition.keyCodeToChar
|
