diff --git a/src/GenerateurH5P.elm b/src/GenerateurH5P.elm index 1c4ca23..585edd2 100644 --- 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' + + {- ██████╗ ███████╗███████╗████████╗██╗ ██████╗ ███╗ ██╗ ██████╗ ███████╗███████╗