Ajout des Encodeurs/Décodeurs de Course Presentation

Les fonctions qui avaient été définies à l'origine étaient mauvaises !
pull/1/head
Jean-Christophe Jameux 3 years ago
parent cfa0dae25f
commit f7158d3a80
  1. 584
      src/GenerateurH5P.elm

@ -193,37 +193,92 @@ view model =
source = source =
"""{ """{
"branchingScenario": { "presentation": {
"endScreens": [ "slides": [
{ {
"endScreenTitle": "<p>Fin du parcours personnalisé</p>\\n", "elements": [
"endScreenSubtitle": "<p>N'hésitez pas à recommencer !</p>\\n",
"contentId": -1, ],
"endScreenScore": 0 "slideBackgroundSelector": {"fillSlideBackground": ""}
} }
], ],
"scoringOptionGroup": { "keywordListEnabled": true,
"scoringOption": "no-score", "globalBackgroundSelector": {"fillGlobalBackground": ""},
"includeInteractionsScores": true "keywordListAlwaysShow": false,
"keywordListAutoHide": false,
"keywordListOpacity": 90
},
"override": {
"activeSurface": false,
"hideSummarySlide": false,
"summarySlideSolutionButton": true,
"summarySlideRetryButton": true,
"enablePrintButton": false,
"social": {
"showFacebookShare": false,
"facebookShare": {
"url": "@currentpageurl",
"quote": "I scored @score out of @maxScore on a task at @currentpageurl."
}, },
"startScreen": { "showTwitterShare": false,
"startScreenTitle": "<p>Préliminaires</p>\\n", "twitterShare": {
"startScreenSubtitle": "<p>Le langage et les règles du jeux mathématiques</p>\\n" "statement": "I scored @score out of @maxScore on a task at @currentpageurl.",
"url": "@currentpageurl",
"hashtags": "h5p, course"
}, },
"behaviour": { "showGoogleShare": false,
"enableBackwardsNavigation": true, "googleShareUrl": "@currentpageurl"
"forceContentFinished": false }
}, },
"l10n": { "l10n": {
"startScreenButtonText": "Commencer le cours", "slide": "Diapositive",
"endScreenButtonText": "Recommencer le cours", "score": "Score",
"backButtonText": "Revenir en arrière", "yourScore": "Votre score",
"proceedButtonText": "Continuer", "maxScore": "Score maximum",
"disableProceedButtonText": "Jouer la vidéo de nouveau", "total": "Total",
"replayButtonText": "Votre note:", "totalScore": "Score total",
"scoreText": "Votre note:", "showSolutions": "Voir la correction",
"fullscreenAria": "Plein écran" "retry": "Recommencer",
}}}""" "exportAnswers": "Exporter",
"hideKeywords": "Cacher la liste des mots-clés",
"showKeywords": "Afficher la liste des mots-clés",
"fullscreen": "Plein écran",
"exitFullscreen": "Quitter le plein écran",
"prevSlide": "Diapositive précédente",
"nextSlide": "Diapositive suivante",
"currentSlide": "Diapositive courante",
"lastSlide": "Dernière diapositive",
"solutionModeTitle": "Sortir du mode &quot;Correction&quot;",
"solutionModeText": "Passer en mode &quot;correction&quot;",
"summaryMultipleTaskText": "Activités multiples",
"scoreMessage": "Votre score :",
"shareFacebook": "Partager sur Facebook",
"shareTwitter": "Partager sur Twitter",
"shareGoogle": "Partager sur Google+",
"summary": "Résumé",
"solutionsButtonTitle": "Afficher les commentaires",
"printTitle": "Imprimer",
"printIngress": "Comment souhaitez-vous imprimer cette présentation ?",
"printAllSlides": "Imprimer toutes les diapositives",
"printCurrentSlide": "Imprimer la diapositive courante",
"noTitle": "Sans intitulé",
"accessibilitySlideNavigationExplanation": "Utilisez les fleches gauche et droite pour pour naviguer entre les diapositives",
"accessibilityCanvasLabel": "Le champs de présentation. Utilisez les fleches gauche et droite pour naviguer entre les diapositives.",
"containsNotCompleted": "@slideName contient des interactions incomplètes",
"containsCompleted": "@slideName ccontient des interactions complètes",
"slideCount": "Diapositive a @index de @total",
"containsOnlyCorrect": "toutes les réponses sont bonnes sur @slideName",
"containsIncorrectAnswers": "@slideName contient des réponses incorrectes",
"shareResult": "Partager le résultat",
"accessibilityTotalScore": "Vous avez obtenu @score sur @maxScore points au total",
"accessibilityEnteredFullscreen": "Mode plein-écran activé",
"accessibilityExitedFullscreen": "Mode plein-écran désactivé",
"confirmDialogHeader": "Envoyer vos réponses",
"confirmDialogText": "Cette action va envoyer vos réponses, voulez-vous continuer?",
"confirmDialogConfirmText": "Envoyer et voir les résultats"
}
}"""
@ -239,7 +294,8 @@ source =
type H5P branchingScenarioComposable coursePresentationComposable type H5P branchingScenarioComposable coursePresentationComposable
= BranchingScenarioH5P BranchingScenario = BranchingScenarioH5P BranchingScenario
| CoursePresentationH5P | CoursePresentationH5P CoursePresentation
| TrueFalseH5P TrueFalse
type BranchingScenarioComposable type BranchingScenarioComposable
@ -552,107 +608,126 @@ nouveauBranchingScenario =
type alias CoursePresentation = type alias CoursePresentation =
{ behaviour : CoursePresentationBehaviour { l10n : CoursePresentationL10n
, confirmCheck : CoursePresentationConfirmCheck , override : CoursePresentationOverride
, confirmRetry : CoursePresentationConfirmRetry , presentation : CoursePresentationPresentation
, correct : String
, l10n : CoursePresentationL10n
, media : CoursePresentationMedia
, question : String
} }
type alias CoursePresentationBehaviour = type alias CoursePresentationL10n =
{ autoCheck : Bool { accessibilityCanvasLabel : String
, confirmCheckDialog : Bool , accessibilityEnteredFullscreen : String
, confirmRetryDialog : Bool , accessibilityExitedFullscreen : String
, enableCheckButton : Bool , accessibilitySlideNavigationExplanation : String
, enableRetry : Bool , accessibilityTotalScore : String
, enableSolutionsButton : Bool , confirmDialogConfirmText : String
, feedbackOnCorrect : String , confirmDialogHeader : String
, feedbackOnWrong : 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 CoursePresentationConfirmCheck = type alias CoursePresentationOverride =
{ body : String { activeSurface : Bool
, cancelLabel : String , enablePrintButton : Bool
, confirmLabel : String , hideSummarySlide : Bool
, header : String , social : CoursePresentationOverrideSocial
, summarySlideRetryButton : Bool
, summarySlideSolutionButton : Bool
} }
type alias CoursePresentationConfirmRetry = type alias CoursePresentationOverrideSocial =
{ body : String { facebookShare : CoursePresentationOverrideSocialFacebookShare
, cancelLabel : String , googleShareUrl : String
, confirmLabel : String , showFacebookShare : Bool
, header : String , showGoogleShare : Bool
, showTwitterShare : Bool
, twitterShare : CoursePresentationOverrideSocialTwitterShare
} }
type alias CoursePresentationL10n = type alias CoursePresentationOverrideSocialFacebookShare =
{ a11yCheck : String { quote : String
, a11yRetry : String , url : 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 CoursePresentationMedia = type alias CoursePresentationOverrideSocialTwitterShare =
{ disableImageZooming : Bool { hashtags : String
, statement : String
, url : String
} }
coursePresentationDecoder : Json.Decode.Decoder CoursePresentation type alias CoursePresentationPresentation =
coursePresentationDecoder = { globalBackgroundSelector : CoursePresentationPresentationGlobalBackgroundSelector
Json.Decode.map7 CoursePresentation , keywordListAlwaysShow : Bool
(Json.Decode.field "behaviour" coursePresentationBehaviourDecoder) , keywordListAutoHide : Bool
(Json.Decode.field "confirmCheck" coursePresentationConfirmCheckDecoder) , keywordListEnabled : Bool
(Json.Decode.field "confirmRetry" coursePresentationConfirmRetryDecoder) , keywordListOpacity : Int
(Json.Decode.field "correct" Json.Decode.string) , slides : List CoursePresentationPresentationSlidesObject
(Json.Decode.field "l10n" coursePresentationL10nDecoder) }
(Json.Decode.field "media" coursePresentationMediaDecoder)
(Json.Decode.field "question" Json.Decode.string)
coursePresentationBehaviourDecoder : Json.Decode.Decoder CoursePresentationBehaviour type alias CoursePresentationPresentationGlobalBackgroundSelector =
coursePresentationBehaviourDecoder = { fillGlobalBackground : String
Json.Decode.map8 CoursePresentationBehaviour }
(Json.Decode.field "autoCheck" Json.Decode.bool)
(Json.Decode.field "confirmCheckDialog" Json.Decode.bool)
(Json.Decode.field "confirmRetryDialog" Json.Decode.bool)
(Json.Decode.field "enableCheckButton" Json.Decode.bool)
(Json.Decode.field "enableRetry" Json.Decode.bool)
(Json.Decode.field "enableSolutionsButton" Json.Decode.bool)
(Json.Decode.field "feedbackOnCorrect" Json.Decode.string)
(Json.Decode.field "feedbackOnWrong" Json.Decode.string)
coursePresentationConfirmCheckDecoder : Json.Decode.Decoder CoursePresentationConfirmCheck type alias CoursePresentationPresentationSlidesObject =
coursePresentationConfirmCheckDecoder = { elements : List ()
Json.Decode.map4 CoursePresentationConfirmCheck , slideBackgroundSelector : CoursePresentationPresentationSlidesObjectSlideBackgroundSelector
(Json.Decode.field "body" Json.Decode.string) }
(Json.Decode.field "cancelLabel" Json.Decode.string)
(Json.Decode.field "confirmLabel" Json.Decode.string)
(Json.Decode.field "header" Json.Decode.string)
coursePresentationConfirmRetryDecoder : Json.Decode.Decoder CoursePresentationConfirmRetry type alias CoursePresentationPresentationSlidesObjectSlideBackgroundSelector =
coursePresentationConfirmRetryDecoder = { fillSlideBackground : String
Json.Decode.map4 CoursePresentationConfirmRetry }
(Json.Decode.field "body" Json.Decode.string)
(Json.Decode.field "cancelLabel" Json.Decode.string)
(Json.Decode.field "confirmLabel" Json.Decode.string) coursePresentationDecoder : Json.Decode.Decoder CoursePresentation
(Json.Decode.field "header" Json.Decode.string) coursePresentationDecoder =
Json.Decode.map3 CoursePresentation
(Json.Decode.field "l10n" coursePresentationL10nDecoder)
(Json.Decode.field "override" coursePresentationOverrideDecoder)
(Json.Decode.field "presentation" coursePresentationPresentationDecoder)
coursePresentationL10nDecoder : Json.Decode.Decoder CoursePresentationL10n coursePresentationL10nDecoder : Json.Decode.Decoder CoursePresentationL10n
@ -660,100 +735,275 @@ coursePresentationL10nDecoder =
let let
fieldSet0 = fieldSet0 =
Json.Decode.map8 CoursePresentationL10n Json.Decode.map8 CoursePresentationL10n
(Json.Decode.field "a11yCheck" Json.Decode.string) (Json.Decode.field "accessibilityCanvasLabel" Json.Decode.string)
(Json.Decode.field "a11yRetry" Json.Decode.string) (Json.Decode.field "accessibilityEnteredFullscreen" Json.Decode.string)
(Json.Decode.field "a11yShowSolution" Json.Decode.string) (Json.Decode.field "accessibilityExitedFullscreen" Json.Decode.string)
(Json.Decode.field "checkAnswer" Json.Decode.string) (Json.Decode.field "accessibilitySlideNavigationExplanation" Json.Decode.string)
(Json.Decode.field "correctAnswerMessage" Json.Decode.string) (Json.Decode.field "accessibilityTotalScore" Json.Decode.string)
(Json.Decode.field "falseText" Json.Decode.string) (Json.Decode.field "confirmDialogConfirmText" Json.Decode.string)
(Json.Decode.field "confirmDialogHeader" Json.Decode.string)
(Json.Decode.field "confirmDialogText" Json.Decode.string)
fieldSet1 =
Json.Decode.map8 (<|)
fieldSet0
(Json.Decode.field "containsCompleted" Json.Decode.string)
(Json.Decode.field "containsIncorrectAnswers" Json.Decode.string)
(Json.Decode.field "containsNotCompleted" Json.Decode.string)
(Json.Decode.field "containsOnlyCorrect" Json.Decode.string)
(Json.Decode.field "currentSlide" Json.Decode.string)
(Json.Decode.field "exitFullscreen" Json.Decode.string)
(Json.Decode.field "exportAnswers" Json.Decode.string)
fieldSet2 =
Json.Decode.map8 (<|)
fieldSet1
(Json.Decode.field "fullscreen" Json.Decode.string)
(Json.Decode.field "hideKeywords" Json.Decode.string)
(Json.Decode.field "lastSlide" Json.Decode.string)
(Json.Decode.field "maxScore" Json.Decode.string)
(Json.Decode.field "nextSlide" Json.Decode.string)
(Json.Decode.field "noTitle" Json.Decode.string)
(Json.Decode.field "prevSlide" Json.Decode.string)
fieldSet3 =
Json.Decode.map8 (<|)
fieldSet2
(Json.Decode.field "printAllSlides" Json.Decode.string)
(Json.Decode.field "printCurrentSlide" Json.Decode.string)
(Json.Decode.field "printIngress" Json.Decode.string)
(Json.Decode.field "printTitle" Json.Decode.string)
(Json.Decode.field "retry" Json.Decode.string)
(Json.Decode.field "score" Json.Decode.string) (Json.Decode.field "score" Json.Decode.string)
(Json.Decode.field "scoreBarLabel" Json.Decode.string) (Json.Decode.field "scoreMessage" Json.Decode.string)
fieldSet4 =
Json.Decode.map8 (<|)
fieldSet3
(Json.Decode.field "shareFacebook" Json.Decode.string)
(Json.Decode.field "shareGoogle" Json.Decode.string)
(Json.Decode.field "shareResult" Json.Decode.string)
(Json.Decode.field "shareTwitter" Json.Decode.string)
(Json.Decode.field "showKeywords" Json.Decode.string)
(Json.Decode.field "showSolutions" Json.Decode.string)
(Json.Decode.field "slide" Json.Decode.string)
fieldSet5 =
Json.Decode.map8 (<|)
fieldSet4
(Json.Decode.field "slideCount" Json.Decode.string)
(Json.Decode.field "solutionModeText" Json.Decode.string)
(Json.Decode.field "solutionModeTitle" Json.Decode.string)
(Json.Decode.field "solutionsButtonTitle" Json.Decode.string)
(Json.Decode.field "summary" Json.Decode.string)
(Json.Decode.field "summaryMultipleTaskText" Json.Decode.string)
(Json.Decode.field "total" Json.Decode.string)
in in
Json.Decode.map6 (<|) Json.Decode.map3 (<|)
fieldSet0 fieldSet5
(Json.Decode.field "showSolutionButton" Json.Decode.string) (Json.Decode.field "totalScore" Json.Decode.string)
(Json.Decode.field "submitAnswer" Json.Decode.string) (Json.Decode.field "yourScore" Json.Decode.string)
(Json.Decode.field "trueText" Json.Decode.string)
(Json.Decode.field "tryAgain" Json.Decode.string)
(Json.Decode.field "wrongAnswerMessage" Json.Decode.string)
coursePresentationMediaDecoder : Json.Decode.Decoder CoursePresentationMedia coursePresentationOverrideDecoder : Json.Decode.Decoder CoursePresentationOverride
coursePresentationMediaDecoder = coursePresentationOverrideDecoder =
Json.Decode.map CoursePresentationMedia Json.Decode.map6 CoursePresentationOverride
(Json.Decode.field "disableImageZooming" Json.Decode.bool) (Json.Decode.field "activeSurface" Json.Decode.bool)
(Json.Decode.field "enablePrintButton" Json.Decode.bool)
(Json.Decode.field "hideSummarySlide" Json.Decode.bool)
(Json.Decode.field "social" coursePresentationOverrideSocialDecoder)
(Json.Decode.field "summarySlideRetryButton" Json.Decode.bool)
(Json.Decode.field "summarySlideSolutionButton" Json.Decode.bool)
coursePresentationOverrideSocialDecoder : Json.Decode.Decoder CoursePresentationOverrideSocial
coursePresentationOverrideSocialDecoder =
Json.Decode.map6 CoursePresentationOverrideSocial
(Json.Decode.field "facebookShare" coursePresentationOverrideSocialFacebookShareDecoder)
(Json.Decode.field "googleShareUrl" Json.Decode.string)
(Json.Decode.field "showFacebookShare" Json.Decode.bool)
(Json.Decode.field "showGoogleShare" Json.Decode.bool)
(Json.Decode.field "showTwitterShare" Json.Decode.bool)
(Json.Decode.field "twitterShare" coursePresentationOverrideSocialTwitterShareDecoder)
coursePresentationOverrideSocialFacebookShareDecoder : Json.Decode.Decoder CoursePresentationOverrideSocialFacebookShare
coursePresentationOverrideSocialFacebookShareDecoder =
Json.Decode.map2 CoursePresentationOverrideSocialFacebookShare
(Json.Decode.field "quote" Json.Decode.string)
(Json.Decode.field "url" Json.Decode.string)
coursePresentationOverrideSocialTwitterShareDecoder : Json.Decode.Decoder CoursePresentationOverrideSocialTwitterShare
coursePresentationOverrideSocialTwitterShareDecoder =
Json.Decode.map3 CoursePresentationOverrideSocialTwitterShare
(Json.Decode.field "hashtags" Json.Decode.string)
(Json.Decode.field "statement" Json.Decode.string)
(Json.Decode.field "url" Json.Decode.string)
coursePresentationPresentationDecoder : Json.Decode.Decoder CoursePresentationPresentation
coursePresentationPresentationDecoder =
Json.Decode.map6 CoursePresentationPresentation
(Json.Decode.field "globalBackgroundSelector" coursePresentationPresentationGlobalBackgroundSelectorDecoder)
(Json.Decode.field "keywordListAlwaysShow" Json.Decode.bool)
(Json.Decode.field "keywordListAutoHide" Json.Decode.bool)
(Json.Decode.field "keywordListEnabled" Json.Decode.bool)
(Json.Decode.field "keywordListOpacity" Json.Decode.int)
(Json.Decode.field "slides" <| Json.Decode.list coursePresentationPresentationSlidesObjectDecoder)
coursePresentationPresentationGlobalBackgroundSelectorDecoder : Json.Decode.Decoder CoursePresentationPresentationGlobalBackgroundSelector
coursePresentationPresentationGlobalBackgroundSelectorDecoder =
Json.Decode.map CoursePresentationPresentationGlobalBackgroundSelector
(Json.Decode.field "fillGlobalBackground" Json.Decode.string)
coursePresentationPresentationSlidesObjectDecoder : Json.Decode.Decoder CoursePresentationPresentationSlidesObject
coursePresentationPresentationSlidesObjectDecoder =
Json.Decode.map2 CoursePresentationPresentationSlidesObject
(Json.Decode.field "elements" <| Json.Decode.list <| Json.Decode.succeed ())
(Json.Decode.field "slideBackgroundSelector" coursePresentationPresentationSlidesObjectSlideBackgroundSelectorDecoder)
coursePresentationPresentationSlidesObjectSlideBackgroundSelectorDecoder : Json.Decode.Decoder CoursePresentationPresentationSlidesObjectSlideBackgroundSelector
coursePresentationPresentationSlidesObjectSlideBackgroundSelectorDecoder =
Json.Decode.map CoursePresentationPresentationSlidesObjectSlideBackgroundSelector
(Json.Decode.field "fillSlideBackground" Json.Decode.string)
encodedCoursePresentation : CoursePresentation -> Json.Encode.Value encodedCoursePresentation : CoursePresentation -> Json.Encode.Value
encodedCoursePresentation coursePresentation = encodedCoursePresentation coursePresentation =
Json.Encode.object Json.Encode.object
[ ( "behaviour", encodedCoursePresentationBehaviour coursePresentation.behaviour ) [ ( "l10n", encodedCoursePresentationL10n coursePresentation.l10n )
, ( "confirmCheck", encodedCoursePresentationConfirmCheck coursePresentation.confirmCheck ) , ( "override", encodedCoursePresentationOverride coursePresentation.override )
, ( "confirmRetry", encodedCoursePresentationConfirmRetry coursePresentation.confirmRetry ) , ( "presentation", encodedCoursePresentationPresentation coursePresentation.presentation )
, ( "correct", Json.Encode.string coursePresentation.correct )
, ( "l10n", encodedCoursePresentationL10n coursePresentation.l10n )
, ( "media", encodedCoursePresentationMedia coursePresentation.media )
, ( "question", Json.Encode.string coursePresentation.question )
] ]
encodedCoursePresentationBehaviour : CoursePresentationBehaviour -> Json.Encode.Value encodedCoursePresentationL10n : CoursePresentationL10n -> Json.Encode.Value
encodedCoursePresentationBehaviour coursePresentationBehaviour = encodedCoursePresentationL10n coursePresentationL10n =
Json.Encode.object Json.Encode.object
[ ( "autoCheck", Json.Encode.bool coursePresentationBehaviour.autoCheck ) [ ( "accessibilityCanvasLabel", Json.Encode.string coursePresentationL10n.accessibilityCanvasLabel )
, ( "confirmCheckDialog", Json.Encode.bool coursePresentationBehaviour.confirmCheckDialog ) , ( "accessibilityEnteredFullscreen", Json.Encode.string coursePresentationL10n.accessibilityEnteredFullscreen )
, ( "confirmRetryDialog", Json.Encode.bool coursePresentationBehaviour.confirmRetryDialog ) , ( "accessibilityExitedFullscreen", Json.Encode.string coursePresentationL10n.accessibilityExitedFullscreen )
, ( "enableCheckButton", Json.Encode.bool coursePresentationBehaviour.enableCheckButton ) , ( "accessibilitySlideNavigationExplanation", Json.Encode.string coursePresentationL10n.accessibilitySlideNavigationExplanation )
, ( "enableRetry", Json.Encode.bool coursePresentationBehaviour.enableRetry ) , ( "accessibilityTotalScore", Json.Encode.string coursePresentationL10n.accessibilityTotalScore )
, ( "enableSolutionsButton", Json.Encode.bool coursePresentationBehaviour.enableSolutionsButton ) , ( "confirmDialogConfirmText", Json.Encode.string coursePresentationL10n.confirmDialogConfirmText )
, ( "feedbackOnCorrect", Json.Encode.string coursePresentationBehaviour.feedbackOnCorrect ) , ( "confirmDialogHeader", Json.Encode.string coursePresentationL10n.confirmDialogHeader )
, ( "feedbackOnWrong", Json.Encode.string coursePresentationBehaviour.feedbackOnWrong ) , ( "confirmDialogText", Json.Encode.string coursePresentationL10n.confirmDialogText )
, ( "containsCompleted", Json.Encode.string coursePresentationL10n.containsCompleted )
, ( "containsIncorrectAnswers", Json.Encode.string coursePresentationL10n.containsIncorrectAnswers )
, ( "containsNotCompleted", Json.Encode.string coursePresentationL10n.containsNotCompleted )
, ( "containsOnlyCorrect", Json.Encode.string coursePresentationL10n.containsOnlyCorrect )
, ( "currentSlide", Json.Encode.string coursePresentationL10n.currentSlide )
, ( "exitFullscreen", Json.Encode.string coursePresentationL10n.exitFullscreen )
, ( "exportAnswers", Json.Encode.string coursePresentationL10n.exportAnswers )
, ( "fullscreen", Json.Encode.string coursePresentationL10n.fullscreen )
, ( "hideKeywords", Json.Encode.string coursePresentationL10n.hideKeywords )
, ( "lastSlide", Json.Encode.string coursePresentationL10n.lastSlide )
, ( "maxScore", Json.Encode.string coursePresentationL10n.maxScore )
, ( "nextSlide", Json.Encode.string coursePresentationL10n.nextSlide )
, ( "noTitle", Json.Encode.string coursePresentationL10n.noTitle )
, ( "prevSlide", Json.Encode.string coursePresentationL10n.prevSlide )
, ( "printAllSlides", Json.Encode.string coursePresentationL10n.printAllSlides )
, ( "printCurrentSlide", Json.Encode.string coursePresentationL10n.printCurrentSlide )
, ( "printIngress", Json.Encode.string coursePresentationL10n.printIngress )
, ( "printTitle", Json.Encode.string coursePresentationL10n.printTitle )
, ( "retry", Json.Encode.string coursePresentationL10n.retry )
, ( "score", Json.Encode.string coursePresentationL10n.score )
, ( "scoreMessage", Json.Encode.string coursePresentationL10n.scoreMessage )
, ( "shareFacebook", Json.Encode.string coursePresentationL10n.shareFacebook )
, ( "shareGoogle", Json.Encode.string coursePresentationL10n.shareGoogle )
, ( "shareResult", Json.Encode.string coursePresentationL10n.shareResult )
, ( "shareTwitter", Json.Encode.string coursePresentationL10n.shareTwitter )
, ( "showKeywords", Json.Encode.string coursePresentationL10n.showKeywords )
, ( "showSolutions", Json.Encode.string coursePresentationL10n.showSolutions )
, ( "slide", Json.Encode.string coursePresentationL10n.slide )
, ( "slideCount", Json.Encode.string coursePresentationL10n.slideCount )
, ( "solutionModeText", Json.Encode.string coursePresentationL10n.solutionModeText )
, ( "solutionModeTitle", Json.Encode.string coursePresentationL10n.solutionModeTitle )
, ( "solutionsButtonTitle", Json.Encode.string coursePresentationL10n.solutionsButtonTitle )
, ( "summary", Json.Encode.string coursePresentationL10n.summary )
, ( "summaryMultipleTaskText", Json.Encode.string coursePresentationL10n.summaryMultipleTaskText )
, ( "total", Json.Encode.string coursePresentationL10n.total )
, ( "totalScore", Json.Encode.string coursePresentationL10n.totalScore )
, ( "yourScore", Json.Encode.string coursePresentationL10n.yourScore )
] ]
encodedCoursePresentationConfirmCheck : CoursePresentationConfirmCheck -> Json.Encode.Value encodedCoursePresentationOverride : CoursePresentationOverride -> Json.Encode.Value
encodedCoursePresentationConfirmCheck coursePresentationConfirmCheck = encodedCoursePresentationOverride coursePresentationOverride =
Json.Encode.object Json.Encode.object
[ ( "body", Json.Encode.string coursePresentationConfirmCheck.body ) [ ( "activeSurface", Json.Encode.bool coursePresentationOverride.activeSurface )
, ( "cancelLabel", Json.Encode.string coursePresentationConfirmCheck.cancelLabel ) , ( "enablePrintButton", Json.Encode.bool coursePresentationOverride.enablePrintButton )
, ( "confirmLabel", Json.Encode.string coursePresentationConfirmCheck.confirmLabel ) , ( "hideSummarySlide", Json.Encode.bool coursePresentationOverride.hideSummarySlide )
, ( "header", Json.Encode.string coursePresentationConfirmCheck.header ) , ( "social", encodedCoursePresentationOverrideSocial coursePresentationOverride.social )
, ( "summarySlideRetryButton", Json.Encode.bool coursePresentationOverride.summarySlideRetryButton )
, ( "summarySlideSolutionButton", Json.Encode.bool coursePresentationOverride.summarySlideSolutionButton )
] ]
encodedCoursePresentationConfirmRetry : CoursePresentationConfirmRetry -> Json.Encode.Value encodedCoursePresentationOverrideSocial : CoursePresentationOverrideSocial -> Json.Encode.Value
encodedCoursePresentationConfirmRetry coursePresentationConfirmRetry = encodedCoursePresentationOverrideSocial coursePresentationOverrideSocial =
Json.Encode.object Json.Encode.object
[ ( "body", Json.Encode.string coursePresentationConfirmRetry.body ) [ ( "facebookShare", encodedCoursePresentationOverrideSocialFacebookShare coursePresentationOverrideSocial.facebookShare )
, ( "cancelLabel", Json.Encode.string coursePresentationConfirmRetry.cancelLabel ) , ( "googleShareUrl", Json.Encode.string coursePresentationOverrideSocial.googleShareUrl )
, ( "confirmLabel", Json.Encode.string coursePresentationConfirmRetry.confirmLabel ) , ( "showFacebookShare", Json.Encode.bool coursePresentationOverrideSocial.showFacebookShare )
, ( "header", Json.Encode.string coursePresentationConfirmRetry.header ) , ( "showGoogleShare", Json.Encode.bool coursePresentationOverrideSocial.showGoogleShare )
, ( "showTwitterShare", Json.Encode.bool coursePresentationOverrideSocial.showTwitterShare )
, ( "twitterShare", encodedCoursePresentationOverrideSocialTwitterShare coursePresentationOverrideSocial.twitterShare )
] ]
encodedCoursePresentationL10n : CoursePresentationL10n -> Json.Encode.Value encodedCoursePresentationOverrideSocialFacebookShare : CoursePresentationOverrideSocialFacebookShare -> Json.Encode.Value
encodedCoursePresentationL10n coursePresentationL10n = encodedCoursePresentationOverrideSocialFacebookShare coursePresentationOverrideSocialFacebookShare =
Json.Encode.object Json.Encode.object
[ ( "a11yCheck", Json.Encode.string coursePresentationL10n.a11yCheck ) [ ( "quote", Json.Encode.string coursePresentationOverrideSocialFacebookShare.quote )
, ( "a11yRetry", Json.Encode.string coursePresentationL10n.a11yRetry ) , ( "url", Json.Encode.string coursePresentationOverrideSocialFacebookShare.url )
, ( "a11yShowSolution", Json.Encode.string coursePresentationL10n.a11yShowSolution ) ]
, ( "checkAnswer", Json.Encode.string coursePresentationL10n.checkAnswer )
, ( "correctAnswerMessage", Json.Encode.string coursePresentationL10n.correctAnswerMessage )
, ( "falseText", Json.Encode.string coursePresentationL10n.falseText ) encodedCoursePresentationOverrideSocialTwitterShare : CoursePresentationOverrideSocialTwitterShare -> Json.Encode.Value
, ( "score", Json.Encode.string coursePresentationL10n.score ) encodedCoursePresentationOverrideSocialTwitterShare coursePresentationOverrideSocialTwitterShare =
, ( "scoreBarLabel", Json.Encode.string coursePresentationL10n.scoreBarLabel ) Json.Encode.object
, ( "showSolutionButton", Json.Encode.string coursePresentationL10n.showSolutionButton ) [ ( "hashtags", Json.Encode.string coursePresentationOverrideSocialTwitterShare.hashtags )
, ( "submitAnswer", Json.Encode.string coursePresentationL10n.submitAnswer ) , ( "statement", Json.Encode.string coursePresentationOverrideSocialTwitterShare.statement )
, ( "trueText", Json.Encode.string coursePresentationL10n.trueText ) , ( "url", Json.Encode.string coursePresentationOverrideSocialTwitterShare.url )
, ( "tryAgain", Json.Encode.string coursePresentationL10n.tryAgain ) ]
, ( "wrongAnswerMessage", Json.Encode.string coursePresentationL10n.wrongAnswerMessage )
encodedCoursePresentationPresentation : CoursePresentationPresentation -> Json.Encode.Value
encodedCoursePresentationPresentation coursePresentationPresentation =
Json.Encode.object
[ ( "globalBackgroundSelector", encodedCoursePresentationPresentationGlobalBackgroundSelector coursePresentationPresentation.globalBackgroundSelector )
, ( "keywordListAlwaysShow", Json.Encode.bool coursePresentationPresentation.keywordListAlwaysShow )
, ( "keywordListAutoHide", Json.Encode.bool coursePresentationPresentation.keywordListAutoHide )
, ( "keywordListEnabled", Json.Encode.bool coursePresentationPresentation.keywordListEnabled )
, ( "keywordListOpacity", Json.Encode.int coursePresentationPresentation.keywordListOpacity )
, ( "slides", Json.Encode.list encodedCoursePresentationPresentationSlidesObject coursePresentationPresentation.slides )
]
encodedCoursePresentationPresentationGlobalBackgroundSelector : CoursePresentationPresentationGlobalBackgroundSelector -> Json.Encode.Value
encodedCoursePresentationPresentationGlobalBackgroundSelector coursePresentationPresentationGlobalBackgroundSelector =
Json.Encode.object
[ ( "fillGlobalBackground", Json.Encode.string coursePresentationPresentationGlobalBackgroundSelector.fillGlobalBackground )
]
encodedCoursePresentationPresentationSlidesObject : CoursePresentationPresentationSlidesObject -> Json.Encode.Value
encodedCoursePresentationPresentationSlidesObject coursePresentationPresentationSlidesObject =
Json.Encode.object
[ ( "elements", Json.Encode.list (\_ -> Json.Encode.null) coursePresentationPresentationSlidesObject.elements )
, ( "slideBackgroundSelector", encodedCoursePresentationPresentationSlidesObjectSlideBackgroundSelector coursePresentationPresentationSlidesObject.slideBackgroundSelector )
] ]
encodedCoursePresentationMedia : CoursePresentationMedia -> Json.Encode.Value encodedCoursePresentationPresentationSlidesObjectSlideBackgroundSelector : CoursePresentationPresentationSlidesObjectSlideBackgroundSelector -> Json.Encode.Value
encodedCoursePresentationMedia coursePresentationMedia = encodedCoursePresentationPresentationSlidesObjectSlideBackgroundSelector coursePresentationPresentationSlidesObjectSlideBackgroundSelector =
Json.Encode.object Json.Encode.object
[ ( "disableImageZooming", Json.Encode.bool coursePresentationMedia.disableImageZooming ) [ ( "fillSlideBackground", Json.Encode.string coursePresentationPresentationSlidesObjectSlideBackgroundSelector.fillSlideBackground )
] ]

Loading…
Cancel
Save