On avance pas à pas !

3 years ago · d8b5524e1a
parent bec2c4ff5d
commit d8b5524e1a
1 changed files with 18 additions and 0 deletions
--- a/src/GenerateurH5P.elm
+++ b/src/GenerateurH5P.elm
@ -1357,7 +1357,9 @@ h5pParser =

 branchingScenarioParser =
    succeed (BranchingScenarioH5P nouveauBranchingScenario)
+        -- |. espaces
        |. symbol "*"
+        |. espaces


 coursePresentationParser =
@ -1370,6 +1372,22 @@ trueFalseParser =
        |. symbol "*"


+title =
+    getChompedString <|
+        succeed ()
+            |. chompWhile ((==) '\n')
+
+
+blankLine =
+    succeed ()
+        |. espaces
+        |. token "\n"
+
+
+espaces =
+    chompWhile <| \x -> x == ' ' || x == '\t'
+
+

 {-
    ██████╗ ███████╗███████╗████████╗██╗ ██████╗ ███╗   ██╗    ██████╗ ███████╗███████╗