From d8b5524e1a071248824edbaaa382c9cadf099f7b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Optimal=20Sup-Sp=C3=A9?= Date: Wed, 17 Aug 2022 15:16:12 +0200 Subject: [PATCH] =?UTF-8?q?On=20avance=20pas=20=C3=A0=20pas=20!?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/GenerateurH5P.elm | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) 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' + + {- ██████╗ ███████╗███████╗████████╗██╗ ██████╗ ███╗ ██╗ ██████╗ ███████╗███████╗