UUID par messages

Idée que j'abandonne !

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