aboutsummaryrefslogtreecommitdiff
path: root/src/Model/Edition/Edition.elm
diff options
context:
space:
mode:
Diffstat (limited to 'src/Model/Edition/Edition.elm')
-rw-r--r--src/Model/Edition/Edition.elm44
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