Do not add more than one space when editing name

1 files changed, 10 insertions, 0 deletions

diff --git a/src/Model/Edition/Edition.elm b/src/Model/Edition/Edition.elm
index 89a0b52..be7aa02 100644
--- a/src/Model/Edition/Edition.elm
+++ b/src/Model/Edition/Edition.elm
@@ -3,9 +3,11 @@ module Model.Edition.Edition
   , Kind(..)
   , newEdition
   , keyCodeToChar
+  , isEmpty
   ) where
 
 import Keyboard (KeyCode)
+import String
 
 import Model.Id (..)
 import Model.Edition.NameEdition as NameEdition
@@ -32,3 +34,11 @@ 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