echologie
/
TeacherCorner
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Les UUID ont été rendus aléatoires

Browse Source
pull/1/head
Jean-Christophe Jameux 3 years ago
parent d07c0dc835
commit d065e25e81
1 changed files with 333 additions and 299 deletions
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Show Stats Download Patch File Download Diff File
  1. 632
      src/GenerateurH5P.elm

632
src/GenerateurH5P.elm
Unescape View File

@ -15,8 +15,8 @@ import Json.Decode as D
import Json.Encode as E import Json.Encode as E
import List as L import List as L
import Parser.Advanced as P exposing (..) import Parser.Advanced as P exposing (..)
import Random import Random as R
import Random.Extra import Random.Extra as REx
import Random.List import Random.List
import Set import Set
import String as S import String as S
@ -40,15 +40,16 @@ titre =
type alias Model = type alias Model =
{ contentStructure : String { source : String
, contenuGenere : String , generatedContent : String
} }
init : Model init : Model
init = init =
{ contentStructure = "" { source = ""
, contenuGenere = "" , generatedContent =
"Copiez-Collez votre contenu à gauche pour voir apparaître le contenu du fichier content.json"
} }
@ -63,51 +64,42 @@ init =
type Msg type Msg
= StructureDuContenu String = NewContent ( String, String )
| GenererContenu | Generate String
| TelechargerContenu | Download
update : Msg -> Model -> ( Model, Cmd Msg ) update : Msg -> Model -> ( Model, Cmd Msg )
update msg model = update msg model =
case msg of case msg of
StructureDuContenu nouvelleStructure -> NewContent ( source, generatedContent ) ->
let ( { model | source = source, generatedContent = generatedContent }
f strCtn =
case P.run parser strCtn of
Ok ctn ->
S.join "\n\n" <| L.map (h5pEncode 2) ctn
Err erreurs ->
deadEndsToStringBis erreurs
in
( let
modelHelp =
{ model
| contentStructure = nouvelleStructure
}
in
{ modelHelp | contenuGenere = f modelHelp.contentStructure }
, Cmd.none , Cmd.none
) )
GenererContenu -> Generate source ->
let let
f strCtn = h5pGenerator =
case P.run parser strCtn of case P.run parser source of
Ok ctn -> Ok gen ->
S.join "\n\n" <| L.map (h5pEncode 0) ctn R.map f <| REx.sequence gen
Err erreurs -> Err erreurs ->
deadEndsToStringBis erreurs R.constant <| deadEndsToStringBis erreurs
f =
S.join "\n\n" << L.map (h5pEncode 2)
generator =
R.map (Tuple.pair source) h5pGenerator
in in
( { model | contenuGenere = f model.contentStructure } ( model
, Cmd.none , R.generate NewContent generator
) )
TelechargerContenu -> Download ->
( model ( model
, File.Download.string "content.json" "text/json" model.contenuGenere , File.Download.string "content.json" "text/json" model.generatedContent
) )
@ -154,13 +146,13 @@ view model =
, size = 2 , size = 2
} }
] ]
{ onChange = StructureDuContenu { onChange = Generate
, label = Input.labelHidden "Structure du contenu" , label = Input.labelHidden "Structure du contenu"
, placeholder = , placeholder =
Just <| Just <|
Input.placeholder [] <| Input.placeholder [] <|
text "Structure du contenu" text "Structure du contenu"
, text = model.contentStructure , text = model.source
, spellcheck = True , spellcheck = True
} }
, column [ spacing petitEspacement, height fill, width fill, scrollbars ] , column [ spacing petitEspacement, height fill, width fill, scrollbars ]
@ -171,8 +163,7 @@ view model =
, padding petitEspacement , padding petitEspacement
, spacing tresGrandEspacement , spacing tresGrandEspacement
] ]
[ bouton GenererContenu "Générer le contenu" [ bouton Download "Télécharger"
, bouton TelechargerContenu "Télécharger"
] ]
, el , el
--^^ Cet élément ci --^^ Cet élément ci
@ -193,90 +184,37 @@ view model =
} }
] ]
<| <|
text model.contenuGenere text model.generatedContent
] ]
] ]
source =
"""{
"media": {
"disableImageZooming": false
},
"correct": "true",
"behaviour": {
"enableRetry": true,
"enableSolutionsButton": true,
"enableCheckButton": true,
"confirmCheckDialog": false,
"confirmRetryDialog": false,
"autoCheck": true,
"feedbackOnCorrect": "C&#039;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": "<p>Est-ce que \\\\(2+2=4\\\\) ?</p>\\n"
}"""
{- {-
.--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--. .--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--.
/ .. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \ / .. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \
\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/ / \ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/ /
\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ / \/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /
/ /\/ /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /\/ /\ / /\/ /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /\/ /\
/ /\ \/`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'\ \/\ \ / /\ \/`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'\ \/\ \
\ \/\ \ /\ \/ / \ \/\ \ /\ \/ /
\/ /\ \ ██╗ ██╗███████╗██████╗ / /\/ / \/ /\ \ ██╗ ██╗███████╗██████╗ / /\/ /
/ /\/ / ██║ ██║██╔════╝██╔══██╗ \ \/ /\ / /\/ / ██║ ██║██╔════╝██╔══██╗ \ \/ /\
/ /\ \/ ███████║███████╗██████╔╝ \ \/\ \ / /\ \/ ███████║███████╗██████╔╝ \ \/\ \
\ \/\ \ ██╔══██║╚════██║██╔═══╝ /\ \/ / \ \/\ \ ██╔══██║╚════██║██╔═══╝ /\ \/ /
\/ /\ \ ██║ ██║███████║██║ / /\/ / \/ /\ \ ██║ ██║███████║██║ / /\/ /
/ /\/ / ╚═╝ ╚═╝╚══════╝╚═╝ \ \/ /\ / /\/ / ╚═╝ ╚═╝╚══════╝╚═╝ \ \/ /\
/ /\ \/ \ \/\ \ / /\ \/ \ \/\ \
\ \/\ \.--..--..--..--..--..--..--..--..--..--..--..--..--./\ \/ / \ \/\ \.--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--./\ \/ /
\/ /\/ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ /\/ / \/ /\/ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ /\/ /
/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\ / /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\
/ /\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \ / /\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \
\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `' / \ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `' /
`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--' `--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'
-} -}
type H5P type H5p
= EmptyH5p = EmptyH5p
| BranchingScenarioH5P BranchingScenario | BranchingScenarioH5P BranchingScenario
| CoursePresentationH5P CoursePresentation | CoursePresentationH5P CoursePresentation
@ -393,7 +331,7 @@ type alias BranchingScenarioContentTypeMetadata =
type alias BranchingScenarioContentTypeParams = type alias BranchingScenarioContentTypeParams =
H5P H5p
branchingScenarioDecoder : D.Decoder BranchingScenario branchingScenarioDecoder : D.Decoder BranchingScenario
@ -485,6 +423,7 @@ branchingScenarioContentTypeMetadataDecoder =
branchingScenarioContentTypeParamsDecoder : D.Decoder BranchingScenarioContentTypeParams branchingScenarioContentTypeParamsDecoder : D.Decoder BranchingScenarioContentTypeParams
branchingScenarioContentTypeParamsDecoder = branchingScenarioContentTypeParamsDecoder =
--TODO
D.succeed EmptyH5p D.succeed EmptyH5p
@ -498,6 +437,7 @@ encodedBranchingScenario branchingScenario =
, ( "l10n", encodedBranchingScenarioL10n branchingScenario.l10n ) , ( "l10n", encodedBranchingScenarioL10n branchingScenario.l10n )
, ( "scoringOptionGroup", encodedBranchingScenarioScoringOptionGroup branchingScenario.scoringOptionGroup ) , ( "scoringOptionGroup", encodedBranchingScenarioScoringOptionGroup branchingScenario.scoringOptionGroup )
, ( "startScreen", encodedBranchingScenarioStartScreen branchingScenario.startScreen ) , ( "startScreen", encodedBranchingScenarioStartScreen branchingScenario.startScreen )
, ( "content", E.list encodedBranchingScenarioContent branchingScenario.content )
] ]
) )
] ]
@ -590,16 +530,16 @@ encodedBranchingScenarioContentTypeMetadata branchingScenarioContentTypeMetadata
encodedBranchingScenarioContentTypeParams : BranchingScenarioContentTypeParams -> E.Value encodedBranchingScenarioContentTypeParams : BranchingScenarioContentTypeParams -> E.Value
encodedBranchingScenarioContentTypeParams branchingScenarioContentTypeParams = encodedBranchingScenarioContentTypeParams branchingScenarioContentTypeParams =
let case branchingScenarioContentTypeParams of
f x = CoursePresentationH5P p ->
case branchingScenarioContentTypeParams of encodedCoursePresentation p
CoursePresentationH5P p ->
encodedCoursePresentation p
_ -> TrueFalseH5P q ->
E.object [] encodedTrueFalse q
in
f branchingScenarioContentTypeParams --TODO
_ ->
E.object []
nouveauBranchingScenario = nouveauBranchingScenario =
@ -636,6 +576,26 @@ nouveauBranchingScenario =
} }
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
}
{- {-
██████ ██████ ██ ██ ██████ ███████ ███████ ██████ ██████ ██ ██ ██████ ███████ ███████
@ -747,7 +707,7 @@ type alias CoursePresentationPresentation =
, keywordListAutoHide : Bool , keywordListAutoHide : Bool
, keywordListEnabled : Bool , keywordListEnabled : Bool
, keywordListOpacity : Int , keywordListOpacity : Int
, slides : List CoursePresentationPresentationSlidesObject , slides : List CoursePresentationPresentationSlides
} }
@ -756,13 +716,48 @@ type alias CoursePresentationPresentationGlobalBackgroundSelector =
} }
type alias CoursePresentationPresentationSlidesObject = type alias CoursePresentationPresentationSlides =
{ elements : List () { elements : List CoursePresentationPresentationSlidesElements
, slideBackgroundSelector : CoursePresentationPresentationSlidesObjectSlideBackgroundSelector , 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 CoursePresentationPresentationSlidesObjectSlideBackgroundSelector = type alias CoursePresentationPresentationSlidesElementsActionParams =
H5p
type alias CoursePresentationPresentationSlidesSlideBackgroundSelector =
{ fillSlideBackground : String { fillSlideBackground : String
} }
@ -895,7 +890,7 @@ coursePresentationPresentationDecoder =
(D.field "keywordListAutoHide" D.bool) (D.field "keywordListAutoHide" D.bool)
(D.field "keywordListEnabled" D.bool) (D.field "keywordListEnabled" D.bool)
(D.field "keywordListOpacity" D.int) (D.field "keywordListOpacity" D.int)
(D.field "slides" <| D.list coursePresentationPresentationSlidesObjectDecoder) (D.field "slides" <| D.list coursePresentationPresentationSlidesDecoder)
coursePresentationPresentationGlobalBackgroundSelectorDecoder : D.Decoder CoursePresentationPresentationGlobalBackgroundSelector coursePresentationPresentationGlobalBackgroundSelectorDecoder : D.Decoder CoursePresentationPresentationGlobalBackgroundSelector
@ -904,16 +899,17 @@ coursePresentationPresentationGlobalBackgroundSelectorDecoder =
(D.field "fillGlobalBackground" D.string) (D.field "fillGlobalBackground" D.string)
coursePresentationPresentationSlidesObjectDecoder : D.Decoder CoursePresentationPresentationSlidesObject coursePresentationPresentationSlidesDecoder : D.Decoder CoursePresentationPresentationSlides
coursePresentationPresentationSlidesObjectDecoder = coursePresentationPresentationSlidesDecoder =
D.map2 CoursePresentationPresentationSlidesObject D.map2 CoursePresentationPresentationSlides
(D.field "elements" <| D.list <| D.succeed ()) -- TODO avec un <| D.list <| h5pDecoder
(D.field "slideBackgroundSelector" coursePresentationPresentationSlidesObjectSlideBackgroundSelectorDecoder) (D.field "elements" <| D.succeed [])
(D.field "slideBackgroundSelector" coursePresentationPresentationSlidesSlideBackgroundSelectorDecoder)
coursePresentationPresentationSlidesObjectSlideBackgroundSelectorDecoder : D.Decoder CoursePresentationPresentationSlidesObjectSlideBackgroundSelector coursePresentationPresentationSlidesSlideBackgroundSelectorDecoder : D.Decoder CoursePresentationPresentationSlidesSlideBackgroundSelector
coursePresentationPresentationSlidesObjectSlideBackgroundSelectorDecoder = coursePresentationPresentationSlidesSlideBackgroundSelectorDecoder =
D.map CoursePresentationPresentationSlidesObjectSlideBackgroundSelector D.map CoursePresentationPresentationSlidesSlideBackgroundSelector
(D.field "fillSlideBackground" D.string) (D.field "fillSlideBackground" D.string)
@ -1026,7 +1022,7 @@ encodedCoursePresentationPresentation coursePresentationPresentation =
, ( "keywordListAutoHide", E.bool coursePresentationPresentation.keywordListAutoHide ) , ( "keywordListAutoHide", E.bool coursePresentationPresentation.keywordListAutoHide )
, ( "keywordListEnabled", E.bool coursePresentationPresentation.keywordListEnabled ) , ( "keywordListEnabled", E.bool coursePresentationPresentation.keywordListEnabled )
, ( "keywordListOpacity", E.int coursePresentationPresentation.keywordListOpacity ) , ( "keywordListOpacity", E.int coursePresentationPresentation.keywordListOpacity )
, ( "slides", E.list encodedCoursePresentationPresentationSlidesObject coursePresentationPresentation.slides ) , ( "slides", E.list encodedCoursePresentationPresentationSlides coursePresentationPresentation.slides )
] ]
@ -1037,18 +1033,18 @@ encodedCoursePresentationPresentationGlobalBackgroundSelector coursePresentation
] ]
encodedCoursePresentationPresentationSlidesObject : CoursePresentationPresentationSlidesObject -> E.Value encodedCoursePresentationPresentationSlides : CoursePresentationPresentationSlides -> E.Value
encodedCoursePresentationPresentationSlidesObject coursePresentationPresentationSlidesObject = encodedCoursePresentationPresentationSlides coursePresentationPresentationSlides =
E.object E.object
[ ( "elements", E.list (\_ -> E.null) coursePresentationPresentationSlidesObject.elements ) [ ( "elements", E.list (\_ -> E.null) coursePresentationPresentationSlides.elements )
, ( "slideBackgroundSelector", encodedCoursePresentationPresentationSlidesObjectSlideBackgroundSelector coursePresentationPresentationSlidesObject.slideBackgroundSelector ) , ( "slideBackgroundSelector", encodedCoursePresentationPresentationSlidesSlideBackgroundSelector coursePresentationPresentationSlides.slideBackgroundSelector )
] ]
encodedCoursePresentationPresentationSlidesObjectSlideBackgroundSelector : CoursePresentationPresentationSlidesObjectSlideBackgroundSelector -> E.Value encodedCoursePresentationPresentationSlidesSlideBackgroundSelector : CoursePresentationPresentationSlidesSlideBackgroundSelector -> E.Value
encodedCoursePresentationPresentationSlidesObjectSlideBackgroundSelector coursePresentationPresentationSlidesObjectSlideBackgroundSelector = encodedCoursePresentationPresentationSlidesSlideBackgroundSelector coursePresentationPresentationSlidesSlideBackgroundSelector =
E.object E.object
[ ( "fillSlideBackground", E.string coursePresentationPresentationSlidesObjectSlideBackgroundSelector.fillSlideBackground ) [ ( "fillSlideBackground", E.string coursePresentationPresentationSlidesSlideBackgroundSelector.fillSlideBackground )
] ]
@ -1418,150 +1414,29 @@ nouveauTrueFalse =
{- {-
██████╗ ██╗ ██╗██╗██╗ ██████╗ ███████╗██████╗ ███████╗ .--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--.
██╔══██╗██║ ██║██║██║ ██╔══██╗██╔════╝██╔══██╗██╔════╝ / .. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \
██████╔╝██║ ██║██║██║ ██║ ██║█████╗ ██████╔╝███████╗ \ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/ /
██╔══██╗██║ ██║██║██║ ██║ ██║██╔══╝ ██╔══██╗╚════██║ \/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /
██████╔╝╚██████╔╝██║███████╗██████╔╝███████╗██║ ██║███████║ / /\/ /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /\/ /\
╚═════╝ ╚═════╝ ╚═╝╚══════╝╚═════╝ ╚══════╝╚═╝ ╚═╝╚══════╝ / /\ \/`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'\ \/\ \
-} \ \/\ \ /\ \/ /
\/ /\ \ ██████╗ █████╗ ██████╗ ███████╗███████╗██████╗ / /\/ /
/ /\/ / ██╔══██╗██╔══██╗██╔══██╗██╔════╝██╔════╝██╔══██╗ \ \/ /\
type H5pTree / /\ \/ ██████╔╝███████║██████╔╝███████╗█████╗ ██████╔╝ \ \/\ \
= H5pTree Context String (List H5pTree) \ \/\ \ ██╔═══╝ ██╔══██║██╔══██╗╚════██║██╔══╝ ██╔══██╗ /\ \/ /
\/ /\ \ ██║ ██║ ██║██║ ██║███████║███████╗██║ ██║ / /\/ /
/ /\/ / ╚═╝ ╚═╝ ╚═╝╚═╝ ╚═╝╚══════╝╚══════╝╚═╝ ╚═╝ \ \/ /\
fromH5pTree tree = / /\ \/ \ \/\ \
case tree of \ \/\ \.--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--./\ \/ /
H5pTree BranchingScenarioContext title subTrees -> \/ /\/ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ /\/ /
nouveauBranchingScenario / /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\
|> withMap startScreenField startScreenSubtitleField title / /\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \
|> .with contentField (L.map fromBranchingScenario subTrees) \ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `' /
|> BranchingScenarioH5P `--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'
H5pTree CoursePresentationContext title subTrees ->
CoursePresentationH5P nouveauCoursePresentation
H5pTree TrueFalseContext title subTrees ->
TrueFalseH5P nouveauTrueFalse
_ ->
TrueFalseH5P nouveauTrueFalse
{- { nouveauBranchingScenario
| startScreen =
nouveauBranchingScenario.startScreen
|> withStartScreenSubtitle title
, content = L.map fromH5Ptree subTrees
}
-}
{- H5Ptree CoursePresentationContext title subTrees ->
CoursePresentationH5P nouveauCoursePresentation
H5Ptree TrueFalseContext title subTrees ->
TrueFalseH5P nouveauTrueFalse
_ ->
TrueFalseH5P nouveauTrueFalse
-}
fromBranchingScenario subTree =
case subTree of
H5pTree CoursePresentationContext title subTrees ->
{ contentBehaviour = "useBehavioural"
, feedback = { subtitle = "" }
, forceContentFinished = "useBehavioural"
, showContentTitle = False
, type_ =
{ library = "H5P.CoursePresentation 1.24"
, metadata =
{ contentType = "Branching Question"
, license = "U"
, title = title
}
, params = fromH5pTree subTree
, subContentId = uuid 1
}
}
H5pTree context title subTrees ->
{ contentBehaviour = "useBehavioural"
, feedback = { subtitle = "" }
, forceContentFinished = "useBehavioural"
, showContentTitle = False
, type_ =
{ library = "H5P.CoursePresentation 1.24"
, metadata =
{ contentType = "Branching Question"
, license = "U"
, title = "Untitled Branching Question"
}
, params = fromH5pTree subTree
, subContentId = uuid 1
}
}
withMap field fieldInside value record =
field.with (fieldInside.with value (field.field record)) record
startScreenField =
{ with = \value record -> { record | startScreen = value }
, field = .startScreen
}
startScreenSubtitleField =
{ with = \value record -> { record | startScreenSubtitle = value }
, field = .startScreenSubtitle
}
contentField =
{ with = \value record -> { record | content = value }
, field = .content
}
{-
.--..--..--..--..--..--..--..--..--..--..--..--..--..--..--..--.
/ .. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \.. \
\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/ /
\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /
/ /\/ /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /`' /\/ /\
/ /\ \/`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'\ \/\ \
\ \/\ \ /\ \/ /
\/ /\ \ ██████╗ █████╗ ██████╗ ███████╗███████╗██████╗ / /\/ /
/ /\/ / ██╔══██╗██╔══██╗██╔══██╗██╔════╝██╔════╝██╔══██╗ \ \/ /\
/ /\ \/ ██████╔╝███████║██████╔╝███████╗█████╗ ██████╔╝ \ \/\ \
\ \/\ \ ██╔═══╝ ██╔══██║██╔══██╗╚════██║██╔══╝ ██╔══██╗ /\ \/ /
\/ /\ \ ██║ ██║ ██║██║ ██║███████║███████╗██║ ██║ / /\/ /
/ /\/ / ╚═╝ ╚═╝ ╚═╝╚═╝ ╚═╝╚══════╝╚══════╝╚═╝ ╚═╝ \ \/ /\
/ /\ \/ \ \/\ \
\ \/\ \.--..--..--..--..--..--..--..--..--..--..--..--..--./\ \/ /
\/ /\/ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ ../ /\/ /
/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\/ /\
/ /\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \/\ \
\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `'\ `' /
`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'`--'
-} -}
test =
"""* BranchingScenario Titre
** BranchingQuestion Question
*** trueFalse
**** CoursePresentation
***** TrueFalse
* CoursePresentation"""
type Context type Context
= PreambleContext = PreambleContext
| RootContext | RootContext
@ -1797,16 +1672,6 @@ mySpaces =
] ]
-} -}
uuid n =
Random.initialSeed n
|> Random.step UUID.generator
|> Tuple.first
|> UUID.toString
{- {-
██████╗ ██████╗ █████╗ ███╗ ██╗ ██████╗██╗ ██╗██╗███╗ ██╗ ██████╗ ██████╗ ██████╗ █████╗ ███╗ ██╗ ██████╗██╗ ██╗██╗███╗ ██╗ ██████╗
██╔══██╗██╔══██╗██╔══██╗████╗ ██║██╔════╝██║ ██║██║████╗ ██║██╔════╝ ██╔══██╗██╔══██╗██╔══██╗████╗ ██║██╔════╝██║ ██║██║████╗ ██║██╔════╝
@ -1912,7 +1777,8 @@ uuid n =
type Problem type Problem
= NoContent = --TODO
NoContent
| BadKeyword String | BadKeyword String
| Problem String | Problem String
| GenericProblem | GenericProblem
@ -2014,3 +1880,171 @@ showContextHelp depth ccc =
TrueFalseContext -> TrueFalseContext ->
f "TrueFalse\n" 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
}

Write Preview
Loading…
Cancel
Save