Parcours personnalisé
\n" , startScreenSubtitle = "Préparez bien vos méninges !
\n" } , behaviour = { enableBackwardsNavigation = True , forceContentFinished = False } , l10n = { startScreenButtonText = "Commencer le parcours" , endScreenButtonText = "Recommencer le parcours" , backButtonText = "Revenir en arrière" , proceedButtonText = "Continuer" , disableProceedButtonText = "Jouer la vidéo de nouveau" , replayButtonText = "Votre note :" , scoreText = "Votre note :" , fullscreenAria = "Plein écran" } , content = [] } newBranchingScenarioContent = { contentBehaviour = "useBehavioural" , feedback = { subtitle = "" } , forceContentFinished = "useBehavioural" , showContentTitle = False , type_ = { library = "Unknown library" , metadata = { contentType = "Course Presentation" , license = "U" , title = "Unknown title" } , params = EmptyH5p , subContentId = "" } -- TODO nextContentId } {- ██████ ██████ ██ ██ ██████ ███████ ███████ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██████ ███████ █████ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██████ ██████ ██████ ██ ██ ███████ ███████ ██████ ██████ ███████ ███████ ███████ ███ ██ ████████ █████ ████████ ██ ██████ ███ ██ ██ ██ ██ ██ ██ ██ ██ ████ ██ ██ ██ ██ ██ ██ ██ ██ ████ ██ ██████ ██████ █████ ███████ █████ ██ ██ ██ ██ ███████ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ███████ ███████ ███████ ██ ████ ██ ██ ██ ██ ██ ██████ ██ ████ -} 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 CoursePresentationPresentationSlides } type alias CoursePresentationPresentationGlobalBackgroundSelector = { fillGlobalBackground : String } type alias CoursePresentationPresentationSlides = { elements : List CoursePresentationPresentationSlidesElements , slideBackgroundSelector : CoursePresentationPresentationSlidesSlideBackgroundSelector } type alias CoursePresentationPresentationSlidesElements = { action : CoursePresentationPresentationSlidesElementsAction , alwaysDisplayComments : Bool , backgroundOpacity : Int , buttonSize : String , displayAsButton : Bool , goToSlideType : String , height : Int , invisible : Bool , solution : String , width : Int , x : Int , y : Int } type alias CoursePresentationPresentationSlidesElementsAction = { library : String , metadata : CoursePresentationPresentationSlidesElementsActionMetadata , params : CoursePresentationPresentationSlidesElementsActionParams , subContentId : String } type alias CoursePresentationPresentationSlidesElementsActionMetadata = { contentType : String , license : String , title : String } type alias CoursePresentationPresentationSlidesElementsActionParams = H5p type alias CoursePresentationPresentationSlidesSlideBackgroundSelector = { 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 coursePresentationPresentationSlidesDecoder) coursePresentationPresentationGlobalBackgroundSelectorDecoder : D.Decoder CoursePresentationPresentationGlobalBackgroundSelector coursePresentationPresentationGlobalBackgroundSelectorDecoder = D.map CoursePresentationPresentationGlobalBackgroundSelector (D.field "fillGlobalBackground" D.string) coursePresentationPresentationSlidesDecoder : D.Decoder CoursePresentationPresentationSlides coursePresentationPresentationSlidesDecoder = D.map2 CoursePresentationPresentationSlides -- TODO avec un <| D.list <| h5pDecoder (D.field "elements" <| D.succeed []) (D.field "slideBackgroundSelector" coursePresentationPresentationSlidesSlideBackgroundSelectorDecoder) coursePresentationPresentationSlidesSlideBackgroundSelectorDecoder : D.Decoder CoursePresentationPresentationSlidesSlideBackgroundSelector coursePresentationPresentationSlidesSlideBackgroundSelectorDecoder = D.map CoursePresentationPresentationSlidesSlideBackgroundSelector (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 encodedCoursePresentationPresentationSlides coursePresentationPresentation.slides ) ] encodedCoursePresentationPresentationGlobalBackgroundSelector : CoursePresentationPresentationGlobalBackgroundSelector -> E.Value encodedCoursePresentationPresentationGlobalBackgroundSelector coursePresentationPresentationGlobalBackgroundSelector = E.object [ ( "fillGlobalBackground", E.string coursePresentationPresentationGlobalBackgroundSelector.fillGlobalBackground ) ] encodedCoursePresentationPresentationSlides : CoursePresentationPresentationSlides -> E.Value encodedCoursePresentationPresentationSlides coursePresentationPresentationSlides = E.object [ ( "elements", E.list (\_ -> E.null) coursePresentationPresentationSlides.elements ) , ( "slideBackgroundSelector", encodedCoursePresentationPresentationSlidesSlideBackgroundSelector coursePresentationPresentationSlides.slideBackgroundSelector ) ] encodedCoursePresentationPresentationSlidesSlideBackgroundSelector : CoursePresentationPresentationSlidesSlideBackgroundSelector -> E.Value encodedCoursePresentationPresentationSlidesSlideBackgroundSelector coursePresentationPresentationSlidesSlideBackgroundSelector = E.object [ ( "fillSlideBackground", E.string coursePresentationPresentationSlidesSlideBackgroundSelector.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 contient 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 = "" } {- .--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--. / .. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \ \ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/ / \/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ / / /\/ /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /\/ /\ / /\ \/`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'\ \/\ \ \ \/\ \ /\ \/ / \/ /\ \ ██████╗ █████╗ ██████╗ ███████╗███████╗██████╗ / /\/ / / /\/ / ██╔══██╗██╔══██╗██╔══██╗██╔════╝██╔════╝██╔══██╗ \ \/ /\ / /\ \/ ██████╔╝███████║██████╔╝███████╗█████╗ ██████╔╝ \ \/\ \ \ \/\ \ ██╔═══╝ ██╔══██║██╔══██╗╚════██║██╔══╝ ██╔══██╗ /\ \/ / \/ /\ \ ██║ ██║ ██║██║ ██║███████║███████╗██║ ██║ / /\/ / / /\/ / ╚═╝ ╚═╝ ╚═╝╚═╝ ╚═╝╚══════╝╚══════╝╚═╝ ╚═╝ \ \/ /\ / /\ \/ \ \/\ \ \ \/\ \.--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--./\ \/ / \/ /\/ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ /\/ / / /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\ / /\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \ \ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `' / `--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--' -} type Context = PreambleContext | RootContext | BranchingScenarioContext | BranchingQuestionContext | BranchingQuestionAlternativeContext | CoursePresentationContext | TrueFalseContext parser = succeed (L.map fromH5pTree) |. preambleParser |= inContext RootContext (contentsParser RootContext 1) |. end EndOfFile preambleParser = inContext PreambleContext <| -- Plus compliqué que nécessaire, en vue d'amélioration succeed identity |. whileNoStarOnFirstColumnOrEndOfFile contentsParser context depth = sequence { start = Token "" GenericProblem , separator = Token "" GenericProblem , end = Token "" GenericProblem , spaces = succeed () , item = contentParser context depth , trailing = Optional } contentParser context depth = succeed Tuple.pair |. stars depth |= star |. mySpaces |= getChompedString (chompWhile (\c -> c /= ' ' && c /= '\n' && c /= '\u{000D}' && c /= '\u{000D}' ) ) |> andThen (\( maybeStar, maybeContentType ) -> if maybeStar then problem InconsistantStructure else case ( maybeContentType, context ) of ( "BranchingScenario", RootContext ) -> contentParserHelp BranchingScenarioContext depth "" ( "BranchingScenario", _ ) -> problem (Problem "Un BranchingScenario doit se trouver à la racine") ( "CoursePresentation", RootContext ) -> contentParserHelp CoursePresentationContext depth "" ( "CoursePresentation", BranchingScenarioContext ) -> contentParserHelp CoursePresentationContext depth "" ( "CoursePresentation", BranchingQuestionAlternativeContext ) -> contentParserHelp CoursePresentationContext depth "" ( "CoursePresentation", _ ) -> problem (Problem "Un CoursePresentation doit se trouver à la racine, sous un BranchingScenario ou dans une alternative de BranchingQuestion") ( "TrueFalse", RootContext ) -> contentParserHelp TrueFalseContext depth "" ( "TrueFalse", CoursePresentationContext ) -> contentParserHelp TrueFalseContext depth "" ( "TrueFalse", _ ) -> problem (Problem "Un TrueFalse doit se trouver à la racine ou dans un CoursePresentation") ( "", _ ) -> problem NoContent -- Dans les trois cas ci-dessous, le maybeContentType ne désigne -- pas un contentType, c'est une astuce pour récupérer le texte avaler. -- (cf. bit dans la définition de contentParserHelp) ( _, BranchingScenarioContext ) -> contentParserHelp BranchingQuestionContext depth maybeContentType ( _, BranchingQuestionAlternativeContext ) -> contentParserHelp BranchingQuestionContext depth maybeContentType ( _, BranchingQuestionContext ) -> contentParserHelp BranchingQuestionAlternativeContext depth maybeContentType _ -> problem <| UnknownContentType maybeContentType ) contentParserHelp context depth bit = let f endOfLine contentList = H5pTree context (bit ++ endOfLine) contentList in inContext context <| succeed f |= tillEndOfLine |. whileNoStarOnFirstColumnOrEndOfFile |= contentsParser context (depth + 1) whileNoStarOnFirstColumnOrEndOfFile = succeed identity |. chompWhile ((/=) '*') |= getCol |> andThen (\col -> if col > 1 then oneOf [ end EndOfFile , succeed () |. token (Token "*" EndOfFile) |. whileNoStarOnFirstColumnOrEndOfFile ] else succeed () ) stars depth = symbol (Token (S.repeat depth "*") GenericProblem) star = succeed (\x -> if S.length x == 0 then False else True ) |= getChompedString (chompWhile ((==) '*')) tillEndOfLine = getChompedString <| chompWhile ((/=) '\n') mySpaces = chompWhile <| \x -> x == ' ' || x == '\t' {- ██████ ██████ █████ ███ ██ ██████ ██ ██ ██ ███ ██ ██████ ██ ██ ██ ██ ██ ██ ████ ██ ██ ██ ██ ██ ████ ██ ██ ██████ ██████ ███████ ██ ██ ██ ██ ███████ ██ ██ ██ ██ ██ ███ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██████ ██ ██ ██ ██ ██ ████ ██████ ██ ██ ██ ██ ████ ██████ ███████ ██████ ███████ ███ ██ █████ ██████ ██ ██████ ██ ██ ██ ████ ██ ██ ██ ██ ██ ██ ██ ██ ███████ ██ █████ ██ ██ ██ ███████ ██████ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ██ ███████ ██████ ███████ ██ ████ ██ ██ ██ ██ ██ ██████ -} {- branchingScenarioParser depth = let f title contentList = BranchingScenarioH5P { nouveauBranchingScenario | startScreen = nouveauBranchingScenario.startScreen |> withStartScreenSubtitle title , content = [] -- TODO } in succeed f |= titleParser |. blankLines |= loop [] (contentsParser (depth + 1) BranchingScenarioContext) -} --|= loop ( [], 0 ) (branchingScenarioParserHelp (depth + 1)) --|. blankLines {- Dans une configuration de la forme : *BranchingScenario Titre du cours ** BranchingQuestion Cxu ? ... ** CoursePresentation ... Récupère tout ce qui se trouve au niveau ** sous la forme d'une liste -} {- branchingScenarioParserHelp depth ( contentList, contentId ) = oneOf [ let f ( contents, id ) = Loop ( contentList ++ contents, id + 1 ) in succeed f |= contentParser depth contentId |. blankLines , succeed (Done contentList) ] -} {- contentParserBis depth contentId = oneOf [ backtrackable <| branchingQuestionParser depth contentId , succeed (\x -> ( [ x ], contentId + 1 )) |= oneOf [ backtrackable <| coursePresentationParser depth , trueFalseParser depth ] --, problemBis "Oups" ] -} {- ██████╗ ██████╗ █████╗ ███╗ ██╗ ██████╗██╗ ██╗██╗███╗ ██╗ ██████╗ ██╔══██╗██╔══██╗██╔══██╗████╗ ██║██╔════╝██║ ██║██║████╗ ██║██╔════╝ ██████╔╝██████╔╝███████║██╔██╗ ██║██║ ███████║██║██╔██╗ ██║██║ ███╗ ██╔══██╗██╔══██╗██╔══██║██║╚██╗██║██║ ██╔══██║██║██║╚██╗██║██║ ██║ ██████╔╝██║ ██║██║ ██║██║ ╚████║╚██████╗██║ ██║██║██║ ╚████║╚██████╔╝ ╚═════╝ ╚═╝ ╚═╝╚═╝ ╚═╝╚═╝ ╚═══╝ ╚═════╝╚═╝ ╚═╝╚═╝╚═╝ ╚═══╝ ╚═════╝ ██████╗ ██╗ ██╗███████╗███████╗████████╗██╗ ██████╗ ███╗ ██╗ ██╔═══██╗██║ ██║██╔════╝██╔════╝╚══██╔══╝██║██╔═══██╗████╗ ██║ ██║ ██║██║ ██║█████╗ ███████╗ ██║ ██║██║ ██║██╔██╗ ██║ ██║▄▄ ██║██║ ██║██╔══╝ ╚════██║ ██║ ██║██║ ██║██║╚██╗██║ ╚██████╔╝╚██████╔╝███████╗███████║ ██║ ██║╚██████╔╝██║ ╚████║ ╚══▀▀═╝ ╚═════╝ ╚══════╝╚══════╝ ╚═╝ ╚═╝ ╚═════╝ ╚═╝ ╚═══╝ -} {- {-| Ici branchList est un enregistrement forçant la liste à avoir au moins deux éléments -} branchingQuestionParser depth contentId = let f question ( branchList, id ) = ( branchList.first :: branchList.second :: branchList.others , contentId + L.length branchList.others + 2 ) in succeed f |. stars depth |. keywordBis "BranchingQuestion" |. mySpaces |= questionParser |. blankLines -- Je dirais qu'il faut un contentId + 1 ici |= loop ( [], contentId ) (branchingQuestionAlternativeParser (depth + 1)) {-| Ici branchList est une liste -} branchingQuestionAlternativeParser depth ( branchList, contentId ) = oneOf [ let f alternative ( alternativeList, id ) = case branchList of [] -> -- TODO Loop ( alternativeList, id ) _ -> -- TODO Loop ( alternativeList, id ) in succeed f |. stars depth |= alternativeAnswerParser |= loop ( [], contentId ) (branchingQuestionAlternativeParserHelp (depth + 1)) , (succeed () |> P.map (\_ -> List.concat branchList) ) |> andThen (\xx -> case xx of [] -> problemBis "Un embranchement doit avoir des branches !" x :: [] -> problemBis "Un embranchement doit avoir au moins deux branches !" x :: y :: zz -> succeed () |> P.map (\_ -> Done ( { first = x, second = y, others = zz }, contentId )) ) ] {-| Tout le travail reste à faire ! -} branchingQuestionAlternativeParserHelp depth ( branchList, contentId ) = oneOf [ succeed (Done ( [ [ CoursePresentationH5P nouveauCoursePresentation ] , [ TrueFalseH5P nouveauTrueFalse ] ] , contentId ) ) ] -} {- ██████╗ ███████╗███████╗████████╗██╗ ██████╗ ███╗ ██╗ ██████╗ ███████╗███████╗ ██╔════╝ ██╔════╝██╔════╝╚══██╔══╝██║██╔═══██╗████╗ ██║ ██╔══██╗██╔════╝██╔════╝ ██║ ███╗█████╗ ███████╗ ██║ ██║██║ ██║██╔██╗ ██║ ██║ ██║█████╗ ███████╗ ██║ ██║██╔══╝ ╚════██║ ██║ ██║██║ ██║██║╚██╗██║ ██║ ██║██╔══╝ ╚════██║ ╚██████╔╝███████╗███████║ ██║ ██║╚██████╔╝██║ ╚████║ ██████╔╝███████╗███████║ ╚═════╝ ╚══════╝╚══════╝ ╚═╝ ╚═╝ ╚═════╝ ╚═╝ ╚═══╝ ╚═════╝ ╚══════╝╚══════╝ ███████╗██████╗ ██████╗ ███████╗██╗ ██╗██████╗ ███████╗ ██╔════╝██╔══██╗██╔══██╗██╔════╝██║ ██║██╔══██╗██╔════╝ █████╗ ██████╔╝██████╔╝█████╗ ██║ ██║██████╔╝███████╗ ██╔══╝ ██╔══██╗██╔══██╗██╔══╝ ██║ ██║██╔══██╗╚════██║ ███████╗██║ ██║██║ ██║███████╗╚██████╔╝██║ ██║███████║ ╚══════╝╚═╝ ╚═╝╚═╝ ╚═╝╚══════╝ ╚═════╝ ╚═╝ ╚═╝╚══════╝ -} type Problem = --TODO NoContent | BadKeyword String | Problem String | GenericProblem | EndOfFile | ExpectingContentType | UnknownContentType String | InconsistantStructure deadEndsToStringBis errs = errs |> L.map voirErreur |> S.join "\n\n" |> (++) "J'ai rencontré les problèmes suivants :\n\n" voirErreur err = "Ligne " ++ String.fromInt err.row ++ ", Colonne " ++ String.fromInt err.col ++ " : " ++ showProblem err.problem ++ showContext (L.map .context err.contextStack) ++ "\n\n---------------------------------------------------------\n" showProblem prob = case prob of Problem p -> p ++ "\n" NoContent -> "Je ne peux pas produire de contenu à partir de rien !\n" EndOfFile -> "Fin de fichier\n" ExpectingContentType -> """Je m'attends à trouver l'un des mots clefs suivants : BranchingScenario CoursePresentation TrueFalse """ UnknownContentType x -> "Contenu H5P inconnu : " ++ x ++ "\n" InconsistantStructure -> "La structure du document n'est pas consistante !\n" _ -> "Problème inconnu\n" showContext contextStack = case contextStack of [] -> "" _ -> "\nDans le contexte suivant :\n" ++ showContextHelp 0 (L.reverse contextStack) showContextHelp depth ccc = case ccc of [] -> "" c :: cc -> let f x = S.repeat depth "*" ++ x ++ showContextHelp (depth + 1) cc in case c of PreambleContext -> "Préambule" RootContext -> if cc == [] then "Root" else showContextHelp 1 cc BranchingScenarioContext -> f "BranchingScenario\n" BranchingQuestionContext -> f "BranchingQuestion\n" BranchingQuestionAlternativeContext -> f "Alternative\n" CoursePresentationContext -> f "CoursePresentation\n" TrueFalseContext -> f "TrueFalse\n" {- .--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--. / .. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \ \ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/ / \/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ / / /\/ /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /\/ /\ / /\ \/`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'\ \/\ \ \ \/\ \ /\ \/ / \/ /\ \ ██████╗ ██╗ ██╗██╗██╗ ██████╗ ███████╗██████╗ / /\/ / / /\/ / ██╔══██╗██║ ██║██║██║ ██╔══██╗██╔════╝██╔══██╗ \ \/ /\ / /\ \/ ██████╔╝██║ ██║██║██║ ██║ ██║█████╗ ██████╔╝ \ \/\ \ \ \/\ \ ██╔══██╗██║ ██║██║██║ ██║ ██║██╔══╝ ██╔══██╗ /\ \/ / \/ /\ \ ██████╔╝╚██████╔╝██║███████╗██████╔╝███████╗██║ ██║ / /\/ / / /\/ / ╚═════╝ ╚═════╝ ╚═╝╚══════╝╚═════╝ ╚══════╝╚═╝ ╚═╝ \ \/ /\ / /\ \/ \ \/\ \ \ \/\ \.--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--./\ \/ / \/ /\/ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ /\/ / / /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\ / /\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \ \ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `' / `--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--' -} type H5pTree = H5pTree Context String (List H5pTree) fromH5pTree tree = case tree of H5pTree BranchingScenarioContext title subTrees -> let f x = nouveauBranchingScenario |> with2 startScreenField startScreenSubtitleField title |> with contentField x |> BranchingScenarioH5P in R.map f <| REx.sequence <| L.map fromBranchingScenario subTrees H5pTree CoursePresentationContext title subTrees -> R.constant <| CoursePresentationH5P nouveauCoursePresentation H5pTree TrueFalseContext title subTrees -> R.constant <| TrueFalseH5P nouveauTrueFalse _ -> R.constant <| TrueFalseH5P nouveauTrueFalse fromBranchingScenario subTree = case subTree of H5pTree CoursePresentationContext title subTrees -> let f x uuid = newBranchingScenarioContent -- TODO nextContentId |> with2 typeField libraryField "H5P.CoursePresentation 1.24" |> with3 typeField metadataField contentTypeField "Course Presentation" |> with3 typeField metadataField titleField title |> with2 typeField paramsField x |> with2 typeField subContentIdField (UUID.toString uuid) in R.map2 f (fromH5pTree subTree) UUID.generator H5pTree context title subTrees -> R.constant newBranchingScenarioContent with field = field.with map field = field.accessor with2 field fieldInside value record = record |> with field (map field record |> with fieldInside value ) with3 field fieldInside fieldInsideInside value record = let recordInside = map field record |> with2 fieldInside fieldInsideInside value in record |> with field recordInside fieldConstructor nameField = nameField ++ "Field={with=\\value record->{record|" ++ nameField ++ "=value},\naccessor=." ++ nameField ++ "}" fieldsConstructor fields = L.map fieldConstructor fields |> S.join "\n" startScreenField = { with = \value record -> { record | startScreen = value } , accessor = .startScreen } startScreenSubtitleField = { with = \value record -> { record | startScreenSubtitle = value } , accessor = .startScreenSubtitle } contentField = { with = \value record -> { record | content = value } , accessor = .content } typeField = { with = \value record -> { record | type_ = value } , accessor = .type_ } libraryField = { with = \value record -> { record | library = value }, accessor = .library } metadataField = { with = \value record -> { record | metadata = value } , accessor = .metadata } contentTypeField = { with = \value record -> { record | contentType = value } , accessor = .contentType } titleField = { with = \value record -> { record | title = value } , accessor = .title } paramsField = { with = \value record -> { record | params = value } , accessor = .params } subContentIdField = { with = \value record -> { record | subContentId = value } , accessor = .subContentId }