From b3076f37700291221ededbaf996a065b006cf42d Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Sun, 22 Mar 2015 17:13:04 +0100
Subject: Do not add more than one space when editing name

---
 src/Update/Update.elm        | 2 +-
 src/Update/UpdateEdition.elm | 7 +++++--
 2 files changed, 6 insertions(+), 3 deletions(-)

(limited to 'src/Update')

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
-- 
cgit v1.2.3