diff --git a/src/GenerateurH5P.elm b/src/GenerateurH5P.elm index 442f9db..1f97608 100644 --- a/src/GenerateurH5P.elm +++ b/src/GenerateurH5P.elm @@ -39,6 +39,7 @@ titre = type alias Model = { structureDuContenu : String , contenuGenere : String + , uuid : String } @@ -46,6 +47,7 @@ init : Model init = { structureDuContenu = "" , contenuGenere = "" + , uuid = "123e4567-e89b-42d3-a456-426655440000" } @@ -63,6 +65,8 @@ type Msg = StructureDuContenu String | GenererContenu | TelechargerContenu + | GenererUUID + | UUIDgenere String update : Msg -> Model -> ( Model, Cmd Msg ) @@ -104,6 +108,16 @@ update msg model = , File.Download.string "content.json" "text/json" model.contenuGenere ) + GenererUUID -> + ( model + , Random.generate UUIDgenere <| Random.map UUID.toString UUID.generator + ) + + UUIDgenere id -> + ( { model | uuid = id } + , Cmd.none + ) + -- SUBSCRIPTIONS