Do not add more than one space when editing name

2 files changed, 6 insertions, 3 deletions

diff --git a/src/Update/Update.elm b/src/Update/Update.elm
index 5a902df..a556e36 100644
--- a/src/Update/Update.elm
+++ b/src/Update/Update.elm
@@ -105,7 +105,7 @@ validEdition : Model -> Model
 validEdition model =
   case model.edition of
     Just edition ->
-      if List.isEmpty edition.chars
+      if isEmpty edition
         then
           model
         else
diff --git a/src/Update/UpdateEdition.elm b/src/Update/UpdateEdition.elm
index 911a4c1..d94bd1e 100644
--- a/src/Update/UpdateEdition.elm
+++ b/src/Update/UpdateEdition.elm
@@ -3,7 +3,8 @@ module Update.UpdateEdition
   , EditionAction(..)
   ) where
 
-import Char (..)
+import Char
+import Char (KeyCode)
 
 import Model.Edition.Edition (..)
 
@@ -25,6 +26,8 @@ updateEdition action edition =
     AddChar keyCode ->
       case keyCodeToChar edition.kind keyCode of
         Just char ->
-          { edition | chars <- char :: edition.chars }
+          if keyCode == 32 && maybeHead edition.chars == Just (Char.fromCode 32)
+            then edition
+            else { edition | chars <- char :: edition.chars }
         Nothing ->
           edition