diff options
Diffstat (limited to 'src/Model/Edition/Edition.elm')
-rw-r--r-- | src/Model/Edition/Edition.elm | 44 |
1 files changed, 0 insertions, 44 deletions
diff --git a/src/Model/Edition/Edition.elm b/src/Model/Edition/Edition.elm deleted file mode 100644 index 9a28253..0000000 --- a/src/Model/Edition/Edition.elm +++ /dev/null @@ -1,44 +0,0 @@ -module Model.Edition.Edition - ( Edition - , Kind(..) - , newEdition - , keyCodeToChar - , isEmpty - ) where - -import Keyboard exposing (KeyCode) -import String - -import Model.Id exposing (..) -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 - -isEmpty : Edition -> Bool -isEmpty edition = - edition.chars - |> String.fromList - |> String.trim - |> String.length - |> (==) 0 |