small tweaks

src/Wealth.elm

@@ -34,12 +34,14 @@ view wealth model =
 viewUpdateWealth amount =
     [ input
         [ class "level-item"
-        , class "input"
+        , class "input has-text-right has-background-dark has-text-white"
         , classList
             [ ( "is-danger", (not << isValid) amount )
             , ( "is-success", isValid amount )
             ]
         , value amount
+        , placeholder "En pièces d'or..."
+        , style "width" "8em"
         , onInput AmountChanged
         ]
         []
@@ -77,7 +79,7 @@ update : Msg -> Model -> ( Model, Maybe Float )
 update msg model =
     case msg of
         StartEdit ->
-            ( Edit "0.0", Nothing )
+            ( Edit "", Nothing )
 
         QuitEdit ->
             ( View, Nothing )