Ajout de UUID

elm.json

@@ -6,6 +6,7 @@
     "elm-version": "0.19.1",
     "dependencies": {
         "direct": {
+            "TSFoster/elm-uuid": "4.2.0",
             "alexkorban/json-to-elm": "1.1.0",
             "avh4/elm-color": "1.0.0",
             "dmy/elm-pratt-parser": "2.0.0",
@@ -28,7 +29,11 @@
         "indirect": {
             "Garados007/elm-svg-parser": "1.0.0",
             "Janiczek/elm-bidict": "2.0.1",
+            "TSFoster/elm-bytes-extra": "1.3.0",
+            "TSFoster/elm-md5": "2.0.1",
+            "TSFoster/elm-sha1": "2.1.1",
             "andre-dietrich/parser-combinators": "3.2.0",
+            "danfishgold/base64-bytes": "1.1.0",
             "elm/bytes": "1.0.8",
             "elm/http": "2.0.0",
             "elm/regex": "1.0.0",

src/GenerateurH5P.elm

@@ -19,6 +19,7 @@ import Random.List
 import Set
 import String as S
 import Style exposing (..)
+import UUID exposing (UUID)
 
 
 titre =
@@ -1424,10 +1425,11 @@ trueFalseParser profondeur =
         |. keyword "TrueFalse"
 
 
-title =
-    getChompedString <|
-        succeed ()
-            |. chompWhile ((/=) '\n')
+uuid n =
+    Random.initialSeed n
+        |> Random.step UUID.generator
+        |> Tuple.first
+        |> UUID.toString
 
 
 blankLine =