Elm - Mise à jour des champs Dynamiquement dans Elm

Question

j'ai copié ce code tout le monde peut essayer http://elm-lang.org/try

import Html exposing (..) 
import Html.App as App 
import Html.Attributes exposing (..) 
import Html.Events exposing (..) 


main = 
    App.program 
    { init = init 
    , view = view 
    , update = update 
    , subscriptions = \_ -> Sub.none 
    } 


init = 
    ({ posts = [], newPost = { title = "", slug = "" } }, Cmd.none) 


type alias Post = 
    { title : String 
    , slug : String 
    } 


type alias Model = 
    { posts : List Post 
    , newPost : Post 
    } 


type Msg 
    = NoOp 
    | NewPostField Post String String 


update msg model = 
    case msg of 

    NoOp -> 
     (model, Cmd.none) 

    NewPostField currentPost field newValue -> 
     case field of 

     "title" -> 
      ({ model | newPost = { slug = currentPost.slug, title = newValue } }, Cmd.none) 

     "slug" -> 
      ({ model | newPost = { slug = newValue, title = currentPost.title } }, Cmd.none) 

     -- The problem is here, I have to repeat this process for every field 

     _ -> 
      (model, Cmd.none) 


view model = 
    div [] 
    [ h1 [] [ text ("title : " ++ model.newPost.title ++ " | slug : " ++ model.newPost.slug) ] 
    , input [ onInput (NewPostField model.newPost "title"), placeholder "Title" ] [] 
    , input [ onInput (NewPostField model.newPost "slug"), placeholder "Slug" ] [] 
    , button [] [ text "Save" ] 
    ] 

Je minimisais les champs à deux (titre et limaces), mais il en existe d'autres comme: contenu, extrait.

Y at-il de toute façon je peux mettre à jour l'enregistrement sans créer un cas pour tous les champs, quelque chose comme mettre à jour seulement le champ nécessaire sans passer par tous?

Answer 1

je changerais la chose suivante dans votre code:

Si vous avez un message spécifique pour chaque action vous pouvez avoir beaucoup plus propre update et view fonctions. Le compilateur vous aidera également à vérifier que vous gérez tous les cas et que vous ne passez pas un argument sans signification.

type Msg 
    = NoOp 
    | NewPostTitle Post String 
    | NewPostSlug Post String 

Cela ne vous épargnent trop taper, mais votre update ressemblera à ceci. Notez que vous n'avez plus de correspondance de modèle imbriquée. Notez également la syntaxe pour updating records, un champ à la fois. Enfin, à votre avis, vous n'aurez pas à passer le paramètre string, ce qui rend le code un peu plus concis. Mais la partie la plus importante est que maintenant c'est sécurisé.

view model = 
    div [] 
    [ h1 [] [ text ("title : " ++ model.newPost.title ++ " | slug : " ++ model.newPost.slug) ] 
    , input [ onInput (NewPostTitle model.newPost), placeholder "Title" ] [] 
    , input [ onInput (NewPostSlug model.newPost), placeholder "Slug" ] [] 
    , button [] [ text "Save" ] 
    ]