On avance

Je dois réécrire le content des BranchingScenario,
il manque le fait que c'est une liste !

src/GenerateurH5P.elm

@@ -587,13 +587,16 @@ encodedBranchingScenarioContentTypeMetadata branchingScenarioContentTypeMetadata
 
 encodedBranchingScenarioContentTypeParams : BranchingScenarioContentTypeParams -> E.Value
 encodedBranchingScenarioContentTypeParams branchingScenarioContentTypeParams =
+    let
+        f x =
             case branchingScenarioContentTypeParams of
-        CoursePresentationH5P x ->
+                CoursePresentationH5P p ->
-            encodedCoursePresentation x
+                    encodedCoursePresentation p
 
-        --TODO
                 _ ->
                     E.object []
+    in
+    f branchingScenarioContentTypeParams
 
 
 nouveauBranchingScenario =
@@ -1428,11 +1431,10 @@ type H5pTree
 fromH5pTree tree =
     case tree of
         H5pTree BranchingScenarioContext title subTrees ->
-            BranchingScenarioH5P
+            nouveauBranchingScenario
-                (nouveauBranchingScenario
                 |> withMap startScreenField startScreenSubtitleField title
                 |> .with contentField (L.map fromBranchingScenario subTrees)
-                )
+                |> BranchingScenarioH5P
 
         H5pTree CoursePresentationContext title subTrees ->
             CoursePresentationH5P nouveauCoursePresentation
@@ -1476,9 +1478,9 @@ fromBranchingScenario subTree =
                 , metadata =
                     { contentType = "Branching Question"
                     , license = "U"
-                    , title = "Untitled Branching Question"
+                    , title = title
                     }
-                , params = CoursePresentationH5P nouveauCoursePresentation
+                , params = fromH5pTree subTree
                 , subContentId = uuid 1
                 }
             }
@@ -1495,7 +1497,7 @@ fromBranchingScenario subTree =
                     , license = "U"
                     , title = "Untitled Branching Question"
                     }
-                , params = CoursePresentationH5P nouveauCoursePresentation
+                , params = fromH5pTree subTree
                 , subContentId = uuid 1
                 }
             }