module GenerateurH5P exposing (..) import Browser exposing (Document) import Element exposing (..) import Element.Background as Background import Element.Border as Border import Element.Events exposing (..) import Element.Font as Font import Element.Input as Input import File.Download import Html exposing (Attribute, Html, button, div, iframe, input, p, section, textarea) import Json.Decode as D import Json.Encode as E import List as L import Parser as P exposing (..) import Random import Random.Extra import Random.List import Set import String as S import Style exposing (..) titre = "Générateur d'archives H5P" {- ███ ███ ██████ ██████ ███████ ██ ████ ████ ██ ██ ██ ██ ██ ██ ██ ████ ██ ██ ██ ██ ██ █████ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██████ ██████ ███████ ███████ -} type alias Model = { structureDuContenu : String , contenuGenere : String } init : Model init = { structureDuContenu = "" , contenuGenere = "" } {- ██ ██ ██████ ██████ █████ ████████ ███████ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██████ ██ ██ ███████ ██ █████ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██████ ██ ██████ ██ ██ ██ ███████ -} type Msg = StructureDuContenu String | GenererContenu | TelechargerContenu update : Msg -> Model -> ( Model, Cmd Msg ) update msg model = case msg of StructureDuContenu nouvelleStructure -> let f strCtn = case P.run h5pParser strCtn of Ok ctn -> h5pEncode 2 ctn Err erreurs -> deadEndsToStringBis erreurs in ( { model | structureDuContenu = nouvelleStructure , contenuGenere = f model.structureDuContenu } , Cmd.none ) GenererContenu -> let f strCtn = case P.run h5pParser strCtn of Ok ctn -> h5pEncode 0 ctn Err erreurs -> deadEndsToStringBis erreurs in ( { model | contenuGenere = f model.structureDuContenu } , Cmd.none ) TelechargerContenu -> ( model , File.Download.string "content.json" "text/json" model.contenuGenere ) -- SUBSCRIPTIONS subscriptions : Model -> Sub Msg subscriptions model = Sub.none {- ██ ██ ██ ███████ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ █████ ██ █ ██ ██ ██ ██ ██ ██ ███ ██ ████ ██ ███████ ███ ███ -} view : Model -> Element Msg view model = row [ spacing grandEspacement , padding tresGrandEspacement , height fill , width fill , scrollbars ] [ Input.multiline [ height fill , width fill , clip , scrollbars , Background.color <| couleurUI <| couleurArrierePlan , Border.rounded 8 , Border.innerShadow { blur = 10 , color = rgb255 10 10 10 , offset = ( 0.3, 0.4 ) , size = 2 } ] { onChange = StructureDuContenu , label = Input.labelHidden "chose" , placeholder = Just <| Input.placeholder [] <| text "Structure du contenu" , text = model.structureDuContenu , spellcheck = True } , column [ spacing petitEspacement, height fill, width fill, scrollbars ] -- L'attibut scrollbars présent dans la liste ci-dessus ^^^^^^^^^^ -- est nécessaire pour que l'élément ci-dessous ne s'étende pas ! [ row [ width fill , padding petitEspacement , spacing tresGrandEspacement ] [ bouton GenererContenu "Générer le contenu" , bouton TelechargerContenu "Télécharger" ] , el --^^ Cet élément ci [ height fill , width fill , clip , scrollbars --^^^^^^^^^^ Cet attribut ne suffit pas , padding petitEspacement , Background.color <| couleurUI <| couleurArrierePlan , Border.rounded 8 , Border.innerShadow { blur = 10 , color = rgb255 10 10 10 , offset = ( 0.3, 0.4 ) , size = 2 } ] <| text model.contenuGenere ] ] source = """{ "media": { "disableImageZooming": false }, "correct": "true", "behaviour": { "enableRetry": true, "enableSolutionsButton": true, "enableCheckButton": true, "confirmCheckDialog": false, "confirmRetryDialog": false, "autoCheck": true, "feedbackOnCorrect": "C'est la base !\\n" }, "l10n": { "trueText": "Vrai", "falseText": "Faux", "score": "Vous avez obtenu @score points sur un total de @total", "checkAnswer": "Vérifier", "submitAnswer": "Vérifier", "showSolutionButton": "Voir la solution", "tryAgain": "Recommencer", "wrongAnswerMessage": "Réponse incorrecte", "correctAnswerMessage": "Bonne réponse", "scoreBarLabel": "Vous avez obtenu @score points sur un total de @total", "a11yCheck": "Check the answers. The responses will be marked as correct, incorrect, or unanswered.", "a11yShowSolution": "Show the solution. The task will be marked with its correct solution.", "a11yRetry": "Retry the task. Reset all responses and start the task over again." }, "confirmCheck": { "header": "Terminer ?", "body": "Êtes-vous sûr de vouloir terminer ?", "cancelLabel": "Annuler", "confirmLabel": "Confirmer" }, "confirmRetry": { "header": "Recommencer ?", "body": "Êtes-vous sûr de vouloir recommencer ?", "cancelLabel": "Annuler", "confirmLabel": "Confirmer" }, "question": "

Est-ce que \\\\(2+2=4\\\\) ?

\\n" }""" {- ██╗ ██╗███████╗██████╗ ██║ ██║██╔════╝██╔══██╗ ███████║███████╗██████╔╝ ██╔══██║╚════██║██╔═══╝ ██║ ██║███████║██║ ╚═╝ ╚═╝╚══════╝╚═╝ -} type H5P branchingScenarioComposable coursePresentationComposable = BranchingScenarioH5P BranchingScenario | CoursePresentationH5P CoursePresentation | TrueFalseH5P TrueFalse type BranchingScenarioComposable = BranchingScenarioComposable type BranchingScenarioNonComposable = BranchingScenarioNonComposable type CoursePresentationComposable = CoursePresentationComposable type CoursePresentationNonComposable = CoursePresentationNonComposable h5pEncode indent content = E.encode indent <| case content of BranchingScenarioH5P branchingScenario -> encodedBranchingScenario branchingScenario CoursePresentationH5P coursePresentation -> encodedCoursePresentation coursePresentation TrueFalseH5P trueFalse -> encodedTrueFalse trueFalse {- ██████ ██████ █████ ███ ██ ██████ ██ ██ ██ ███ ██ ██████ ██ ██ ██ ██ ██ ██ ████ ██ ██ ██ ██ ██ ████ ██ ██ ██████ ██████ ███████ ██ ██ ██ ██ ███████ ██ ██ ██ ██ ██ ███ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██████ ██ ██ ██ ██ ██ ████ ██████ ██ ██ ██ ██ ████ ██████ ███████ ██████ ███████ ███ ██ █████ ██████ ██ ██████ ██ ██ ██ ████ ██ ██ ██ ██ ██ ██ ██ ██ ███████ ██ █████ ██ ██ ██ ███████ ██████ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ███████ ██████ ███████ ██ ████ ██ ██ ██ ██ ██ ██████ -} type alias BranchingScenario = { behaviour : BranchingScenarioBehaviour , endScreens : List BranchingScenarioEndScreensObject , l10n : BranchingScenarioL10n , scoringOptionGroup : BranchingScenarioScoringOptionGroup , startScreen : BranchingScenarioStartScreen , content : List BranchingScenarioContent } type alias BranchingScenarioBehaviour = { enableBackwardsNavigation : Bool , forceContentFinished : Bool } type alias BranchingScenarioEndScreensObject = { contentId : Int , endScreenScore : Int , endScreenSubtitle : String , endScreenTitle : String } type alias BranchingScenarioL10n = { backButtonText : String , disableProceedButtonText : String , endScreenButtonText : String , fullscreenAria : String , proceedButtonText : String , replayButtonText : String , scoreText : String , startScreenButtonText : String } type alias BranchingScenarioScoringOptionGroup = { includeInteractionsScores : Bool , scoringOption : String } type alias BranchingScenarioStartScreen = { startScreenSubtitle : String , startScreenTitle : String } branchingScenarioDecoder : D.Decoder BranchingScenario branchingScenarioDecoder = D.map6 BranchingScenario (D.field "behaviour" branchingScenarioBehaviourDecoder) (D.field "endScreens" <| D.list branchingScenarioEndScreensObjectDecoder) (D.field "l10n" branchingScenarioL10nDecoder) (D.field "scoringOptionGroup" branchingScenarioScoringOptionGroupDecoder) (D.field "startScreen" branchingScenarioStartScreenDecoder) (D.field "content" <| D.list branchingScenarioContentDecoder) branchingScenarioBehaviourDecoder : D.Decoder BranchingScenarioBehaviour branchingScenarioBehaviourDecoder = D.map2 BranchingScenarioBehaviour (D.field "enableBackwardsNavigation" D.bool) (D.field "forceContentFinished" D.bool) branchingScenarioEndScreensObjectDecoder : D.Decoder BranchingScenarioEndScreensObject branchingScenarioEndScreensObjectDecoder = D.map4 BranchingScenarioEndScreensObject (D.field "contentId" D.int) (D.field "endScreenScore" D.int) (D.field "endScreenSubtitle" D.string) (D.field "endScreenTitle" D.string) branchingScenarioL10nDecoder : D.Decoder BranchingScenarioL10n branchingScenarioL10nDecoder = D.map8 BranchingScenarioL10n (D.field "backButtonText" D.string) (D.field "disableProceedButtonText" D.string) (D.field "endScreenButtonText" D.string) (D.field "fullscreenAria" D.string) (D.field "proceedButtonText" D.string) (D.field "replayButtonText" D.string) (D.field "scoreText" D.string) (D.field "startScreenButtonText" D.string) branchingScenarioScoringOptionGroupDecoder : D.Decoder BranchingScenarioScoringOptionGroup branchingScenarioScoringOptionGroupDecoder = D.map2 BranchingScenarioScoringOptionGroup (D.field "includeInteractionsScores" D.bool) (D.field "scoringOption" D.string) branchingScenarioStartScreenDecoder : D.Decoder BranchingScenarioStartScreen branchingScenarioStartScreenDecoder = D.map2 BranchingScenarioStartScreen (D.field "startScreenSubtitle" D.string) (D.field "startScreenTitle" D.string) encodedBranchingScenario : BranchingScenario -> E.Value encodedBranchingScenario branchingScenario = E.object [ ( "branchingScenario" , E.object [ ( "behaviour", encodedBranchingScenarioBehaviour branchingScenario.behaviour ) , ( "endScreens", E.list encodedBranchingScenarioEndScreensObject branchingScenario.endScreens ) , ( "l10n", encodedBranchingScenarioL10n branchingScenario.l10n ) , ( "scoringOptionGroup", encodedBranchingScenarioScoringOptionGroup branchingScenario.scoringOptionGroup ) , ( "startScreen", encodedBranchingScenarioStartScreen branchingScenario.startScreen ) ] ) ] encodedBranchingScenarioBehaviour : BranchingScenarioBehaviour -> E.Value encodedBranchingScenarioBehaviour branchingScenarioBehaviour = E.object [ ( "enableBackwardsNavigation", E.bool branchingScenarioBehaviour.enableBackwardsNavigation ) , ( "forceContentFinished", E.bool branchingScenarioBehaviour.forceContentFinished ) ] encodedBranchingScenarioEndScreensObject : BranchingScenarioEndScreensObject -> E.Value encodedBranchingScenarioEndScreensObject branchingScenarioEndScreensObject = E.object [ ( "contentId", E.int branchingScenarioEndScreensObject.contentId ) , ( "endScreenScore", E.int branchingScenarioEndScreensObject.endScreenScore ) , ( "endScreenSubtitle", E.string branchingScenarioEndScreensObject.endScreenSubtitle ) , ( "endScreenTitle", E.string branchingScenarioEndScreensObject.endScreenTitle ) ] encodedBranchingScenarioL10n : BranchingScenarioL10n -> E.Value encodedBranchingScenarioL10n branchingScenarioL10n = E.object [ ( "backButtonText", E.string branchingScenarioL10n.backButtonText ) , ( "disableProceedButtonText", E.string branchingScenarioL10n.disableProceedButtonText ) , ( "endScreenButtonText", E.string branchingScenarioL10n.endScreenButtonText ) , ( "fullscreenAria", E.string branchingScenarioL10n.fullscreenAria ) , ( "proceedButtonText", E.string branchingScenarioL10n.proceedButtonText ) , ( "replayButtonText", E.string branchingScenarioL10n.replayButtonText ) , ( "scoreText", E.string branchingScenarioL10n.scoreText ) , ( "startScreenButtonText", E.string branchingScenarioL10n.startScreenButtonText ) ] encodedBranchingScenarioScoringOptionGroup : BranchingScenarioScoringOptionGroup -> E.Value encodedBranchingScenarioScoringOptionGroup branchingScenarioScoringOptionGroup = E.object [ ( "includeInteractionsScores", E.bool branchingScenarioScoringOptionGroup.includeInteractionsScores ) , ( "scoringOption", E.string branchingScenarioScoringOptionGroup.scoringOption ) ] encodedBranchingScenarioStartScreen : BranchingScenarioStartScreen -> E.Value encodedBranchingScenarioStartScreen branchingScenarioStartScreen = E.object [ ( "startScreenSubtitle", E.string branchingScenarioStartScreen.startScreenSubtitle ) , ( "startScreenTitle", E.string branchingScenarioStartScreen.startScreenTitle ) ] type alias BranchingScenarioContent = { feedback : BranchingScenarioContentFeedback , forceContentFinished : String , showContentTitle : Bool , type_ : BranchingScenarioContentType } type alias BranchingScenarioContentFeedback = { subtitle : String } type alias BranchingScenarioContentType = {} branchingScenarioContentDecoder : D.Decoder BranchingScenarioContent branchingScenarioContentDecoder = D.map4 BranchingScenarioContent (D.field "feedback" branchingScenarioContentFeedbackDecoder) (D.field "forceContentFinished" D.string) (D.field "showContentTitle" D.bool) (D.field "type" branchingScenarioContentTypeDecoder) branchingScenarioContentFeedbackDecoder : D.Decoder BranchingScenarioContentFeedback branchingScenarioContentFeedbackDecoder = D.map BranchingScenarioContentFeedback (D.field "subtitle" D.string) branchingScenarioContentTypeDecoder : D.Decoder BranchingScenarioContentType branchingScenarioContentTypeDecoder = D.succeed BranchingScenarioContentType encodedBranchingScenarioContent : BranchingScenarioContent -> E.Value encodedBranchingScenarioContent branchingScenarioContent = E.object [ ( "feedback", encodedBranchingScenarioContentFeedback branchingScenarioContent.feedback ) , ( "forceContentFinished", E.string branchingScenarioContent.forceContentFinished ) , ( "showContentTitle", E.bool branchingScenarioContent.showContentTitle ) , ( "type", encodedBranchingScenarioContentType branchingScenarioContent.type_ ) ] encodedBranchingScenarioContentFeedback : BranchingScenarioContentFeedback -> E.Value encodedBranchingScenarioContentFeedback branchingScenarioContentFeedback = E.object [ ( "subtitle", E.string branchingScenarioContentFeedback.subtitle ) ] encodedBranchingScenarioContentType : BranchingScenarioContentType -> E.Value encodedBranchingScenarioContentType branchingScenarioContentType = E.object [] nouveauBranchingScenario = { endScreens = [ { endScreenTitle = "Fin du parcours personnalisé" , endScreenSubtitle = "Fin du parcours personnalisé" , contentId = -1 , endScreenScore = 0 } ] , scoringOptionGroup = { scoringOption = "no-score" , includeInteractionsScores = True } , startScreen = { startScreenTitle = "

Préliminaires

\n" , startScreenSubtitle = "

Le langage et les règles du jeux mathématiques

\n" } , behaviour = { enableBackwardsNavigation = True , forceContentFinished = False } , l10n = { startScreenButtonText = "Commencer le cours" , endScreenButtonText = "Recommencer le cours" , backButtonText = "Revenir en arrière" , proceedButtonText = "Continuer" , disableProceedButtonText = "Jouer la vidéo de nouveau" , replayButtonText = "Votre note:" , scoreText = "Votre note:" , fullscreenAria = "Plein écran" } , content = [] } {- ██████ ██████ ██ ██ ██████ ███████ ███████ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██████ ███████ █████ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██████ ██████ ██████ ██ ██ ███████ ███████ ██████ ██████ ███████ ███████ ███████ ███ ██ ████████ █████ ████████ ██ ██████ ███ ██ ██ ██ ██ ██ ██ ██ ██ ████ ██ ██ ██ ██ ██ ██ ██ ██ ████ ██ ██████ ██████ █████ ███████ █████ ██ ██ ██ ██ ███████ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ███████ ███████ ███████ ██ ████ ██ ██ ██ ██ ██ ██████ ██ ████ -} type alias CoursePresentation = { l10n : CoursePresentationL10n , override : CoursePresentationOverride , presentation : CoursePresentationPresentation } type alias CoursePresentationL10n = { accessibilityCanvasLabel : String , accessibilityEnteredFullscreen : String , accessibilityExitedFullscreen : String , accessibilitySlideNavigationExplanation : String , accessibilityTotalScore : String , confirmDialogConfirmText : String , confirmDialogHeader : String , confirmDialogText : String , containsCompleted : String , containsIncorrectAnswers : String , containsNotCompleted : String , containsOnlyCorrect : String , currentSlide : String , exitFullscreen : String , exportAnswers : String , fullscreen : String , hideKeywords : String , lastSlide : String , maxScore : String , nextSlide : String , noTitle : String , prevSlide : String , printAllSlides : String , printCurrentSlide : String , printIngress : String , printTitle : String , retry : String , score : String , scoreMessage : String , shareFacebook : String , shareGoogle : String , shareResult : String , shareTwitter : String , showKeywords : String , showSolutions : String , slide : String , slideCount : String , solutionModeText : String , solutionModeTitle : String , solutionsButtonTitle : String , summary : String , summaryMultipleTaskText : String , total : String , totalScore : String , yourScore : String } type alias CoursePresentationOverride = { activeSurface : Bool , enablePrintButton : Bool , hideSummarySlide : Bool , social : CoursePresentationOverrideSocial , summarySlideRetryButton : Bool , summarySlideSolutionButton : Bool } type alias CoursePresentationOverrideSocial = { facebookShare : CoursePresentationOverrideSocialFacebookShare , googleShareUrl : String , showFacebookShare : Bool , showGoogleShare : Bool , showTwitterShare : Bool , twitterShare : CoursePresentationOverrideSocialTwitterShare } type alias CoursePresentationOverrideSocialFacebookShare = { quote : String , url : String } type alias CoursePresentationOverrideSocialTwitterShare = { hashtags : String , statement : String , url : String } type alias CoursePresentationPresentation = { globalBackgroundSelector : CoursePresentationPresentationGlobalBackgroundSelector , keywordListAlwaysShow : Bool , keywordListAutoHide : Bool , keywordListEnabled : Bool , keywordListOpacity : Int , slides : List CoursePresentationPresentationSlidesObject } type alias CoursePresentationPresentationGlobalBackgroundSelector = { fillGlobalBackground : String } type alias CoursePresentationPresentationSlidesObject = { elements : List () , slideBackgroundSelector : CoursePresentationPresentationSlidesObjectSlideBackgroundSelector } type alias CoursePresentationPresentationSlidesObjectSlideBackgroundSelector = { fillSlideBackground : String } coursePresentationDecoder : D.Decoder CoursePresentation coursePresentationDecoder = D.map3 CoursePresentation (D.field "l10n" coursePresentationL10nDecoder) (D.field "override" coursePresentationOverrideDecoder) (D.field "presentation" coursePresentationPresentationDecoder) coursePresentationL10nDecoder : D.Decoder CoursePresentationL10n coursePresentationL10nDecoder = let fieldSet0 = D.map8 CoursePresentationL10n (D.field "accessibilityCanvasLabel" D.string) (D.field "accessibilityEnteredFullscreen" D.string) (D.field "accessibilityExitedFullscreen" D.string) (D.field "accessibilitySlideNavigationExplanation" D.string) (D.field "accessibilityTotalScore" D.string) (D.field "confirmDialogConfirmText" D.string) (D.field "confirmDialogHeader" D.string) (D.field "confirmDialogText" D.string) fieldSet1 = D.map8 (<|) fieldSet0 (D.field "containsCompleted" D.string) (D.field "containsIncorrectAnswers" D.string) (D.field "containsNotCompleted" D.string) (D.field "containsOnlyCorrect" D.string) (D.field "currentSlide" D.string) (D.field "exitFullscreen" D.string) (D.field "exportAnswers" D.string) fieldSet2 = D.map8 (<|) fieldSet1 (D.field "fullscreen" D.string) (D.field "hideKeywords" D.string) (D.field "lastSlide" D.string) (D.field "maxScore" D.string) (D.field "nextSlide" D.string) (D.field "noTitle" D.string) (D.field "prevSlide" D.string) fieldSet3 = D.map8 (<|) fieldSet2 (D.field "printAllSlides" D.string) (D.field "printCurrentSlide" D.string) (D.field "printIngress" D.string) (D.field "printTitle" D.string) (D.field "retry" D.string) (D.field "score" D.string) (D.field "scoreMessage" D.string) fieldSet4 = D.map8 (<|) fieldSet3 (D.field "shareFacebook" D.string) (D.field "shareGoogle" D.string) (D.field "shareResult" D.string) (D.field "shareTwitter" D.string) (D.field "showKeywords" D.string) (D.field "showSolutions" D.string) (D.field "slide" D.string) fieldSet5 = D.map8 (<|) fieldSet4 (D.field "slideCount" D.string) (D.field "solutionModeText" D.string) (D.field "solutionModeTitle" D.string) (D.field "solutionsButtonTitle" D.string) (D.field "summary" D.string) (D.field "summaryMultipleTaskText" D.string) (D.field "total" D.string) in D.map3 (<|) fieldSet5 (D.field "totalScore" D.string) (D.field "yourScore" D.string) coursePresentationOverrideDecoder : D.Decoder CoursePresentationOverride coursePresentationOverrideDecoder = D.map6 CoursePresentationOverride (D.field "activeSurface" D.bool) (D.field "enablePrintButton" D.bool) (D.field "hideSummarySlide" D.bool) (D.field "social" coursePresentationOverrideSocialDecoder) (D.field "summarySlideRetryButton" D.bool) (D.field "summarySlideSolutionButton" D.bool) coursePresentationOverrideSocialDecoder : D.Decoder CoursePresentationOverrideSocial coursePresentationOverrideSocialDecoder = D.map6 CoursePresentationOverrideSocial (D.field "facebookShare" coursePresentationOverrideSocialFacebookShareDecoder) (D.field "googleShareUrl" D.string) (D.field "showFacebookShare" D.bool) (D.field "showGoogleShare" D.bool) (D.field "showTwitterShare" D.bool) (D.field "twitterShare" coursePresentationOverrideSocialTwitterShareDecoder) coursePresentationOverrideSocialFacebookShareDecoder : D.Decoder CoursePresentationOverrideSocialFacebookShare coursePresentationOverrideSocialFacebookShareDecoder = D.map2 CoursePresentationOverrideSocialFacebookShare (D.field "quote" D.string) (D.field "url" D.string) coursePresentationOverrideSocialTwitterShareDecoder : D.Decoder CoursePresentationOverrideSocialTwitterShare coursePresentationOverrideSocialTwitterShareDecoder = D.map3 CoursePresentationOverrideSocialTwitterShare (D.field "hashtags" D.string) (D.field "statement" D.string) (D.field "url" D.string) coursePresentationPresentationDecoder : D.Decoder CoursePresentationPresentation coursePresentationPresentationDecoder = D.map6 CoursePresentationPresentation (D.field "globalBackgroundSelector" coursePresentationPresentationGlobalBackgroundSelectorDecoder) (D.field "keywordListAlwaysShow" D.bool) (D.field "keywordListAutoHide" D.bool) (D.field "keywordListEnabled" D.bool) (D.field "keywordListOpacity" D.int) (D.field "slides" <| D.list coursePresentationPresentationSlidesObjectDecoder) coursePresentationPresentationGlobalBackgroundSelectorDecoder : D.Decoder CoursePresentationPresentationGlobalBackgroundSelector coursePresentationPresentationGlobalBackgroundSelectorDecoder = D.map CoursePresentationPresentationGlobalBackgroundSelector (D.field "fillGlobalBackground" D.string) coursePresentationPresentationSlidesObjectDecoder : D.Decoder CoursePresentationPresentationSlidesObject coursePresentationPresentationSlidesObjectDecoder = D.map2 CoursePresentationPresentationSlidesObject (D.field "elements" <| D.list <| D.succeed ()) (D.field "slideBackgroundSelector" coursePresentationPresentationSlidesObjectSlideBackgroundSelectorDecoder) coursePresentationPresentationSlidesObjectSlideBackgroundSelectorDecoder : D.Decoder CoursePresentationPresentationSlidesObjectSlideBackgroundSelector coursePresentationPresentationSlidesObjectSlideBackgroundSelectorDecoder = D.map CoursePresentationPresentationSlidesObjectSlideBackgroundSelector (D.field "fillSlideBackground" D.string) encodedCoursePresentation : CoursePresentation -> E.Value encodedCoursePresentation coursePresentation = E.object [ ( "l10n", encodedCoursePresentationL10n coursePresentation.l10n ) , ( "override", encodedCoursePresentationOverride coursePresentation.override ) , ( "presentation", encodedCoursePresentationPresentation coursePresentation.presentation ) ] encodedCoursePresentationL10n : CoursePresentationL10n -> E.Value encodedCoursePresentationL10n coursePresentationL10n = E.object [ ( "accessibilityCanvasLabel", E.string coursePresentationL10n.accessibilityCanvasLabel ) , ( "accessibilityEnteredFullscreen", E.string coursePresentationL10n.accessibilityEnteredFullscreen ) , ( "accessibilityExitedFullscreen", E.string coursePresentationL10n.accessibilityExitedFullscreen ) , ( "accessibilitySlideNavigationExplanation", E.string coursePresentationL10n.accessibilitySlideNavigationExplanation ) , ( "accessibilityTotalScore", E.string coursePresentationL10n.accessibilityTotalScore ) , ( "confirmDialogConfirmText", E.string coursePresentationL10n.confirmDialogConfirmText ) , ( "confirmDialogHeader", E.string coursePresentationL10n.confirmDialogHeader ) , ( "confirmDialogText", E.string coursePresentationL10n.confirmDialogText ) , ( "containsCompleted", E.string coursePresentationL10n.containsCompleted ) , ( "containsIncorrectAnswers", E.string coursePresentationL10n.containsIncorrectAnswers ) , ( "containsNotCompleted", E.string coursePresentationL10n.containsNotCompleted ) , ( "containsOnlyCorrect", E.string coursePresentationL10n.containsOnlyCorrect ) , ( "currentSlide", E.string coursePresentationL10n.currentSlide ) , ( "exitFullscreen", E.string coursePresentationL10n.exitFullscreen ) , ( "exportAnswers", E.string coursePresentationL10n.exportAnswers ) , ( "fullscreen", E.string coursePresentationL10n.fullscreen ) , ( "hideKeywords", E.string coursePresentationL10n.hideKeywords ) , ( "lastSlide", E.string coursePresentationL10n.lastSlide ) , ( "maxScore", E.string coursePresentationL10n.maxScore ) , ( "nextSlide", E.string coursePresentationL10n.nextSlide ) , ( "noTitle", E.string coursePresentationL10n.noTitle ) , ( "prevSlide", E.string coursePresentationL10n.prevSlide ) , ( "printAllSlides", E.string coursePresentationL10n.printAllSlides ) , ( "printCurrentSlide", E.string coursePresentationL10n.printCurrentSlide ) , ( "printIngress", E.string coursePresentationL10n.printIngress ) , ( "printTitle", E.string coursePresentationL10n.printTitle ) , ( "retry", E.string coursePresentationL10n.retry ) , ( "score", E.string coursePresentationL10n.score ) , ( "scoreMessage", E.string coursePresentationL10n.scoreMessage ) , ( "shareFacebook", E.string coursePresentationL10n.shareFacebook ) , ( "shareGoogle", E.string coursePresentationL10n.shareGoogle ) , ( "shareResult", E.string coursePresentationL10n.shareResult ) , ( "shareTwitter", E.string coursePresentationL10n.shareTwitter ) , ( "showKeywords", E.string coursePresentationL10n.showKeywords ) , ( "showSolutions", E.string coursePresentationL10n.showSolutions ) , ( "slide", E.string coursePresentationL10n.slide ) , ( "slideCount", E.string coursePresentationL10n.slideCount ) , ( "solutionModeText", E.string coursePresentationL10n.solutionModeText ) , ( "solutionModeTitle", E.string coursePresentationL10n.solutionModeTitle ) , ( "solutionsButtonTitle", E.string coursePresentationL10n.solutionsButtonTitle ) , ( "summary", E.string coursePresentationL10n.summary ) , ( "summaryMultipleTaskText", E.string coursePresentationL10n.summaryMultipleTaskText ) , ( "total", E.string coursePresentationL10n.total ) , ( "totalScore", E.string coursePresentationL10n.totalScore ) , ( "yourScore", E.string coursePresentationL10n.yourScore ) ] encodedCoursePresentationOverride : CoursePresentationOverride -> E.Value encodedCoursePresentationOverride coursePresentationOverride = E.object [ ( "activeSurface", E.bool coursePresentationOverride.activeSurface ) , ( "enablePrintButton", E.bool coursePresentationOverride.enablePrintButton ) , ( "hideSummarySlide", E.bool coursePresentationOverride.hideSummarySlide ) , ( "social", encodedCoursePresentationOverrideSocial coursePresentationOverride.social ) , ( "summarySlideRetryButton", E.bool coursePresentationOverride.summarySlideRetryButton ) , ( "summarySlideSolutionButton", E.bool coursePresentationOverride.summarySlideSolutionButton ) ] encodedCoursePresentationOverrideSocial : CoursePresentationOverrideSocial -> E.Value encodedCoursePresentationOverrideSocial coursePresentationOverrideSocial = E.object [ ( "facebookShare", encodedCoursePresentationOverrideSocialFacebookShare coursePresentationOverrideSocial.facebookShare ) , ( "googleShareUrl", E.string coursePresentationOverrideSocial.googleShareUrl ) , ( "showFacebookShare", E.bool coursePresentationOverrideSocial.showFacebookShare ) , ( "showGoogleShare", E.bool coursePresentationOverrideSocial.showGoogleShare ) , ( "showTwitterShare", E.bool coursePresentationOverrideSocial.showTwitterShare ) , ( "twitterShare", encodedCoursePresentationOverrideSocialTwitterShare coursePresentationOverrideSocial.twitterShare ) ] encodedCoursePresentationOverrideSocialFacebookShare : CoursePresentationOverrideSocialFacebookShare -> E.Value encodedCoursePresentationOverrideSocialFacebookShare coursePresentationOverrideSocialFacebookShare = E.object [ ( "quote", E.string coursePresentationOverrideSocialFacebookShare.quote ) , ( "url", E.string coursePresentationOverrideSocialFacebookShare.url ) ] encodedCoursePresentationOverrideSocialTwitterShare : CoursePresentationOverrideSocialTwitterShare -> E.Value encodedCoursePresentationOverrideSocialTwitterShare coursePresentationOverrideSocialTwitterShare = E.object [ ( "hashtags", E.string coursePresentationOverrideSocialTwitterShare.hashtags ) , ( "statement", E.string coursePresentationOverrideSocialTwitterShare.statement ) , ( "url", E.string coursePresentationOverrideSocialTwitterShare.url ) ] encodedCoursePresentationPresentation : CoursePresentationPresentation -> E.Value encodedCoursePresentationPresentation coursePresentationPresentation = E.object [ ( "globalBackgroundSelector", encodedCoursePresentationPresentationGlobalBackgroundSelector coursePresentationPresentation.globalBackgroundSelector ) , ( "keywordListAlwaysShow", E.bool coursePresentationPresentation.keywordListAlwaysShow ) , ( "keywordListAutoHide", E.bool coursePresentationPresentation.keywordListAutoHide ) , ( "keywordListEnabled", E.bool coursePresentationPresentation.keywordListEnabled ) , ( "keywordListOpacity", E.int coursePresentationPresentation.keywordListOpacity ) , ( "slides", E.list encodedCoursePresentationPresentationSlidesObject coursePresentationPresentation.slides ) ] encodedCoursePresentationPresentationGlobalBackgroundSelector : CoursePresentationPresentationGlobalBackgroundSelector -> E.Value encodedCoursePresentationPresentationGlobalBackgroundSelector coursePresentationPresentationGlobalBackgroundSelector = E.object [ ( "fillGlobalBackground", E.string coursePresentationPresentationGlobalBackgroundSelector.fillGlobalBackground ) ] encodedCoursePresentationPresentationSlidesObject : CoursePresentationPresentationSlidesObject -> E.Value encodedCoursePresentationPresentationSlidesObject coursePresentationPresentationSlidesObject = E.object [ ( "elements", E.list (\_ -> E.null) coursePresentationPresentationSlidesObject.elements ) , ( "slideBackgroundSelector", encodedCoursePresentationPresentationSlidesObjectSlideBackgroundSelector coursePresentationPresentationSlidesObject.slideBackgroundSelector ) ] encodedCoursePresentationPresentationSlidesObjectSlideBackgroundSelector : CoursePresentationPresentationSlidesObjectSlideBackgroundSelector -> E.Value encodedCoursePresentationPresentationSlidesObjectSlideBackgroundSelector coursePresentationPresentationSlidesObjectSlideBackgroundSelector = E.object [ ( "fillSlideBackground", E.string coursePresentationPresentationSlidesObjectSlideBackgroundSelector.fillSlideBackground ) ] nouveauCoursePresentation = { l10n = { accessibilityCanvasLabel = "Le champs de présentation. Utilisez les fleches gauche et droite pour naviguer entre les diapositives." , accessibilityEnteredFullscreen = "Mode plein-écran activé" , accessibilityExitedFullscreen = "Mode plein-écran désactivé" , accessibilitySlideNavigationExplanation = "Utilisez les fleches gauche et droite pour pour naviguer entre les diapositives" , accessibilityTotalScore = "Vous avez obtenu @score sur @maxScore points au total" , confirmDialogConfirmText = "Envoyer et voir les résultats" , confirmDialogHeader = "Envoyer vos réponses" , confirmDialogText = "Cette action va envoyer vos réponses, voulez-vous continuer?" , containsCompleted = "@slideName ccontient des interactions complètes" , containsIncorrectAnswers = "@slideName contient des réponses incorrectes" , containsNotCompleted = "@slideName contient des interactions incomplètes" , containsOnlyCorrect = "toutes les réponses sont bonnes sur @slideName" , currentSlide = "Diapositive courante" , exitFullscreen = "Quitter le plein écran" , exportAnswers = "Exporter" , fullscreen = "Plein écran" , hideKeywords = "Cacher la liste des mots-clés" , lastSlide = "Dernière diapositive" , maxScore = "Score maximum" , nextSlide = "Diapositive suivante" , noTitle = "Sans intitulé" , prevSlide = "Diapositive précédente" , printAllSlides = "Imprimer toutes les diapositives" , printCurrentSlide = "Imprimer la diapositive courante" , printIngress = "Comment souhaitez-vous imprimer cette présentation ?" , printTitle = "Imprimer" , retry = "Recommencer" , score = "Score" , scoreMessage = "Votre score :" , shareFacebook = "Partager sur Facebook" , shareGoogle = "Partager sur Google+" , shareResult = "Partager le résultat" , shareTwitter = "Partager sur Twitter" , showKeywords = "Afficher la liste des mots-clés" , showSolutions = "Voir la correction" , slide = "Diapositive" , slideCount = "Diapositive a @index de @total" , solutionModeText = "Passer en mode "correction"" , solutionModeTitle = "Sortir du mode "Correction"" , solutionsButtonTitle = "Afficher les commentaires" , summary = "Résumé" , summaryMultipleTaskText = "Activités multiples" , total = "Total" , totalScore = "Score total" , yourScore = "Votre score" } , override = { activeSurface = False , enablePrintButton = False , hideSummarySlide = False , social = { facebookShare = { quote = "I scored @score out of @maxScore on a task at @currentpageurl." , url = "@currentpageurl" } , googleShareUrl = "@currentpageurl" , showFacebookShare = False , showGoogleShare = False , showTwitterShare = False , twitterShare = { hashtags = "h5p, course" , statement = "I scored @score out of @maxScore on a task at @currentpageurl." , url = "@currentpageurl" } } , summarySlideRetryButton = True , summarySlideSolutionButton = True } , presentation = { globalBackgroundSelector = { fillGlobalBackground = "" } , keywordListAlwaysShow = False , keywordListAutoHide = False , keywordListEnabled = True , keywordListOpacity = 90 , slides = [ { elements = [] , slideBackgroundSelector = { fillSlideBackground = "" } } ] } } {- ████████ ██████ ██ ██ ███████ ██ ███████ █████ ██ ███████ ███████ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██████ ██ ██ █████ ██ █████ ███████ ██ ███████ █████ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██████ ███████ ██ ██ ██ ██ ███████ ███████ ███████ ██████ ██ ██ ███████ ███████ ████████ ██ ██████ ███ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ████ ██ ██ ██ ██ ██ █████ ███████ ██ ██ ██ ██ ██ ██ ██ ██ ▄▄ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██████ ██████ ███████ ███████ ██ ██ ██████ ██ ████ ▀▀ -} type alias TrueFalse = { behaviour : TrueFalseBehaviour , confirmCheck : TrueFalseConfirmCheck , confirmRetry : TrueFalseConfirmRetry , correct : String , l10n : TrueFalseL10n , media : TrueFalseMedia , question : String } type alias TrueFalseBehaviour = { autoCheck : Bool , confirmCheckDialog : Bool , confirmRetryDialog : Bool , enableCheckButton : Bool , enableRetry : Bool , enableSolutionsButton : Bool , feedbackOnCorrect : Maybe String , feedbackOnWrong : Maybe String } type alias TrueFalseConfirmCheck = { body : String , cancelLabel : String , confirmLabel : String , header : String } type alias TrueFalseConfirmRetry = { body : String , cancelLabel : String , confirmLabel : String , header : String } type alias TrueFalseL10n = { a11yCheck : String , a11yRetry : String , a11yShowSolution : String , checkAnswer : String , correctAnswerMessage : String , falseText : String , score : String , scoreBarLabel : String , showSolutionButton : String , submitAnswer : String , trueText : String , tryAgain : String , wrongAnswerMessage : String } type alias TrueFalseMedia = { disableImageZooming : Bool } trueFalseDecoder : D.Decoder TrueFalse trueFalseDecoder = D.map7 TrueFalse (D.field "behaviour" trueFalseBehaviourDecoder) (D.field "confirmCheck" trueFalseConfirmCheckDecoder) (D.field "confirmRetry" trueFalseConfirmRetryDecoder) (D.field "correct" D.string) (D.field "l10n" trueFalseL10nDecoder) (D.field "media" trueFalseMediaDecoder) (D.field "question" D.string) trueFalseBehaviourDecoder : D.Decoder TrueFalseBehaviour trueFalseBehaviourDecoder = D.map8 TrueFalseBehaviour (D.field "autoCheck" D.bool) (D.field "confirmCheckDialog" D.bool) (D.field "confirmRetryDialog" D.bool) (D.field "enableCheckButton" D.bool) (D.field "enableRetry" D.bool) (D.field "enableSolutionsButton" D.bool) (D.maybe <| D.field "feedbackOnCorrect" D.string) (D.maybe <| D.field "feedbackOnWrong" D.string) trueFalseConfirmCheckDecoder : D.Decoder TrueFalseConfirmCheck trueFalseConfirmCheckDecoder = D.map4 TrueFalseConfirmCheck (D.field "body" D.string) (D.field "cancelLabel" D.string) (D.field "confirmLabel" D.string) (D.field "header" D.string) trueFalseConfirmRetryDecoder : D.Decoder TrueFalseConfirmRetry trueFalseConfirmRetryDecoder = D.map4 TrueFalseConfirmRetry (D.field "body" D.string) (D.field "cancelLabel" D.string) (D.field "confirmLabel" D.string) (D.field "header" D.string) trueFalseL10nDecoder : D.Decoder TrueFalseL10n trueFalseL10nDecoder = let fieldSet0 = D.map8 TrueFalseL10n (D.field "a11yCheck" D.string) (D.field "a11yRetry" D.string) (D.field "a11yShowSolution" D.string) (D.field "checkAnswer" D.string) (D.field "correctAnswerMessage" D.string) (D.field "falseText" D.string) (D.field "score" D.string) (D.field "scoreBarLabel" D.string) in D.map6 (<|) fieldSet0 (D.field "showSolutionButton" D.string) (D.field "submitAnswer" D.string) (D.field "trueText" D.string) (D.field "tryAgain" D.string) (D.field "wrongAnswerMessage" D.string) trueFalseMediaDecoder : D.Decoder TrueFalseMedia trueFalseMediaDecoder = D.map TrueFalseMedia (D.field "disableImageZooming" D.bool) encodedTrueFalse : TrueFalse -> E.Value encodedTrueFalse trueFalse = E.object [ ( "behaviour", encodedTrueFalseBehaviour trueFalse.behaviour ) , ( "confirmCheck", encodedTrueFalseConfirmCheck trueFalse.confirmCheck ) , ( "confirmRetry", encodedTrueFalseConfirmRetry trueFalse.confirmRetry ) , ( "correct", E.string trueFalse.correct ) , ( "l10n", encodedTrueFalseL10n trueFalse.l10n ) , ( "media", encodedTrueFalseMedia trueFalse.media ) , ( "question", E.string trueFalse.question ) ] encodedTrueFalseBehaviour : TrueFalseBehaviour -> E.Value encodedTrueFalseBehaviour trueFalseBehaviour = E.object <| [ ( "autoCheck", E.bool trueFalseBehaviour.autoCheck ) , ( "confirmCheckDialog", E.bool trueFalseBehaviour.confirmCheckDialog ) , ( "confirmRetryDialog", E.bool trueFalseBehaviour.confirmRetryDialog ) , ( "enableCheckButton", E.bool trueFalseBehaviour.enableCheckButton ) , ( "enableRetry", E.bool trueFalseBehaviour.enableRetry ) , ( "enableSolutionsButton", E.bool trueFalseBehaviour.enableSolutionsButton ) ] ++ (case trueFalseBehaviour.feedbackOnCorrect of Just value -> [ ( "feedbackOnCorrect", E.string value ) ] Nothing -> [] ) ++ (case trueFalseBehaviour.feedbackOnWrong of Just value -> [ ( "feedbackOnWrong", E.string value ) ] Nothing -> [] ) encodedTrueFalseConfirmCheck : TrueFalseConfirmCheck -> E.Value encodedTrueFalseConfirmCheck trueFalseConfirmCheck = E.object [ ( "body", E.string trueFalseConfirmCheck.body ) , ( "cancelLabel", E.string trueFalseConfirmCheck.cancelLabel ) , ( "confirmLabel", E.string trueFalseConfirmCheck.confirmLabel ) , ( "header", E.string trueFalseConfirmCheck.header ) ] encodedTrueFalseConfirmRetry : TrueFalseConfirmRetry -> E.Value encodedTrueFalseConfirmRetry trueFalseConfirmRetry = E.object [ ( "body", E.string trueFalseConfirmRetry.body ) , ( "cancelLabel", E.string trueFalseConfirmRetry.cancelLabel ) , ( "confirmLabel", E.string trueFalseConfirmRetry.confirmLabel ) , ( "header", E.string trueFalseConfirmRetry.header ) ] encodedTrueFalseL10n : TrueFalseL10n -> E.Value encodedTrueFalseL10n trueFalseL10n = E.object [ ( "a11yCheck", E.string trueFalseL10n.a11yCheck ) , ( "a11yRetry", E.string trueFalseL10n.a11yRetry ) , ( "a11yShowSolution", E.string trueFalseL10n.a11yShowSolution ) , ( "checkAnswer", E.string trueFalseL10n.checkAnswer ) , ( "correctAnswerMessage", E.string trueFalseL10n.correctAnswerMessage ) , ( "falseText", E.string trueFalseL10n.falseText ) , ( "score", E.string trueFalseL10n.score ) , ( "scoreBarLabel", E.string trueFalseL10n.scoreBarLabel ) , ( "showSolutionButton", E.string trueFalseL10n.showSolutionButton ) , ( "submitAnswer", E.string trueFalseL10n.submitAnswer ) , ( "trueText", E.string trueFalseL10n.trueText ) , ( "tryAgain", E.string trueFalseL10n.tryAgain ) , ( "wrongAnswerMessage", E.string trueFalseL10n.wrongAnswerMessage ) ] encodedTrueFalseMedia : TrueFalseMedia -> E.Value encodedTrueFalseMedia trueFalseMedia = E.object [ ( "disableImageZooming", E.bool trueFalseMedia.disableImageZooming ) ] nouveauTrueFalse = { behaviour = { autoCheck = True , confirmCheckDialog = False , confirmRetryDialog = False , enableCheckButton = True , enableRetry = True , enableSolutionsButton = True , feedbackOnCorrect = Just "C'est la base !\n" , feedbackOnWrong = Nothing } , confirmCheck = { body = "Êtes-vous sûr de vouloir terminer ?" , cancelLabel = "Annuler" , confirmLabel = "Confirmer" , header = "Terminer ?" } , confirmRetry = { body = "Êtes-vous sûr de vouloir recommencer ?" , cancelLabel = "Annuler" , confirmLabel = "Confirmer" , header = "Recommencer ?" } , correct = "true" , l10n = { a11yCheck = "Check the answers. The responses will be marked as correct, incorrect, or unanswered." , a11yRetry = "Retry the task. Reset all responses and start the task over again." , a11yShowSolution = "Show the solution. The task will be marked with its correct solution." , checkAnswer = "Vérifier" , correctAnswerMessage = "Bonne réponse" , falseText = "Faux" , score = "Vous avez obtenu @score points sur un total de @total" , scoreBarLabel = "Vous avez obtenu @score points sur un total de @total" , showSolutionButton = "Voir la solution" , submitAnswer = "Vérifier" , trueText = "Vrai" , tryAgain = "Recommencer" , wrongAnswerMessage = "Réponse incorrecte" } , media = { disableImageZooming = False } , question = "" } {- ██████╗ █████╗ ██████╗ ███████╗███████╗██████╗ ██╔══██╗██╔══██╗██╔══██╗██╔════╝██╔════╝██╔══██╗ ██████╔╝███████║██████╔╝███████╗█████╗ ██████╔╝ ██╔═══╝ ██╔══██║██╔══██╗╚════██║██╔══╝ ██╔══██╗ ██║ ██║ ██║██║ ██║███████║███████╗██║ ██║ ╚═╝ ╚═╝ ╚═╝╚═╝ ╚═╝╚══════╝╚══════╝╚═╝ ╚═╝ -} parser = loop {} <| bloc 1 bloc : Int -> H5P bSC cPC -> Parser (Step (H5P bSC cPC) (H5P bSC cPC)) bloc n blocState = succeed (Done <| BranchingScenarioH5P nouveauBranchingScenario) |. symbol (S.repeat n "*") |. espaces |. keyword "f" type alias BlocState = {} h5pParser : Parser (H5P bSC cPC) h5pParser = oneOf [ branchingScenarioParser , coursePresentationParser , trueFalseParser ] branchingScenarioParser = succeed (BranchingScenarioH5P nouveauBranchingScenario) -- |. espaces |. symbol "*" |. espaces coursePresentationParser = succeed (CoursePresentationH5P nouveauCoursePresentation) |. symbol "*" trueFalseParser = succeed (TrueFalseH5P nouveauTrueFalse) |. symbol "*" title = getChompedString <| succeed () |. chompWhile ((==) '\n') blankLine = succeed () |. espaces |. token "\n" espaces = chompWhile <| \x -> x == ' ' || x == '\t' {- ██████╗ ███████╗███████╗████████╗██╗ ██████╗ ███╗ ██╗ ██████╗ ███████╗███████╗ ██╔════╝ ██╔════╝██╔════╝╚══██╔══╝██║██╔═══██╗████╗ ██║ ██╔══██╗██╔════╝██╔════╝ ██║ ███╗█████╗ ███████╗ ██║ ██║██║ ██║██╔██╗ ██║ ██║ ██║█████╗ ███████╗ ██║ ██║██╔══╝ ╚════██║ ██║ ██║██║ ██║██║╚██╗██║ ██║ ██║██╔══╝ ╚════██║ ╚██████╔╝███████╗███████║ ██║ ██║╚██████╔╝██║ ╚████║ ██████╔╝███████╗███████║ ╚═════╝ ╚══════╝╚══════╝ ╚═╝ ╚═╝ ╚═════╝ ╚═╝ ╚═══╝ ╚═════╝ ╚══════╝╚══════╝ ███████╗██████╗ ██████╗ ███████╗██╗ ██╗██████╗ ███████╗ ██╔════╝██╔══██╗██╔══██╗██╔════╝██║ ██║██╔══██╗██╔════╝ █████╗ ██████╔╝██████╔╝█████╗ ██║ ██║██████╔╝███████╗ ██╔══╝ ██╔══██╗██╔══██╗██╔══╝ ██║ ██║██╔══██╗╚════██║ ███████╗██║ ██║██║ ██║███████╗╚██████╔╝██║ ██║███████║ ╚══════╝╚═╝ ╚═╝╚═╝ ╚═╝╚══════╝ ╚═════╝ ╚═╝ ╚═╝╚══════╝ -} deadEndsToStringBis errs = errs |> List.map voirErreur |> String.concat |> (++) "Il y a des problèmes aux endroits suivants :\n" voirErreur err = "Ligne : " ++ String.fromInt err.row ++ " | Colonne : " ++ String.fromInt err.col