144 lines
4.1 KiB
JavaScript
144 lines
4.1 KiB
JavaScript
import React from 'react'
|
|
import { combineReducers } from 'redux'
|
|
import reduceReducers from 'reduce-reducers'
|
|
import {reducer as formReducer, formValueSelector} from 'redux-form'
|
|
import {analyseSituation, variableType} from './engine/traverse'
|
|
import { euro, months } from './components/conversation/formValueTypes.js'
|
|
|
|
import Question from './components/conversation/Question'
|
|
import Input from './components/conversation/Input'
|
|
import RhetoricalQuestion from './components/conversation/RhetoricalQuestion'
|
|
|
|
import { STEP_ACTION, UNSUBMIT_ALL, START_CONVERSATION, EXPLAIN_VARIABLE} from './actions'
|
|
import R from 'ramda'
|
|
|
|
import {findGroup, findRuleByDottedName, dottedName, parentName, collectMissingVariables} from './engine/rules'
|
|
import {constructStepMeta} from './engine/conversation'
|
|
|
|
import computeThemeColours from './components/themeColours'
|
|
|
|
function steps(steps = [], {type}) {
|
|
switch (type) {
|
|
case UNSUBMIT_ALL:
|
|
return []
|
|
default:
|
|
return steps
|
|
}
|
|
}
|
|
|
|
function themeColours(state = computeThemeColours(), {type, colour}) {
|
|
if (type == 'CHANGE_THEME_COLOUR')
|
|
return computeThemeColours(colour)
|
|
else return state
|
|
}
|
|
|
|
let situationGate = state =>
|
|
name => formValueSelector('conversation')(state, name)
|
|
|
|
function explainedVariable(state = null, {type, variableName=null}) {
|
|
switch (type) {
|
|
case EXPLAIN_VARIABLE:
|
|
return variableName
|
|
default:
|
|
return state
|
|
}
|
|
}
|
|
|
|
export default reduceReducers(
|
|
combineReducers({
|
|
// this is handled by redux-form, pas touche !
|
|
form: formReducer,
|
|
|
|
/* Have forms been filled or ignored ?
|
|
false means the user is reconsidering its previous input */
|
|
steps,
|
|
|
|
analysedSituation: (state = []) => state,
|
|
|
|
themeColours,
|
|
|
|
explainedVariable
|
|
}),
|
|
// cross-cutting concerns because here `state` is the whole state tree
|
|
(state, action) => {
|
|
if (action.type == STEP_ACTION || action.type == START_CONVERSATION) {
|
|
|
|
// pour débugguer :
|
|
window.situationGate = situationGate(state)
|
|
|
|
// on calcule la prochaine étape, à ajouter sur la pile
|
|
let
|
|
// une liste des objectifs de la simulation (des 'rules' aussi nommées 'variables')
|
|
analysedSituation = analyseSituation(
|
|
situationGate(state)
|
|
),
|
|
|
|
// y = console.log('analysedSituation', JSON.stringify(analysedSituation)),
|
|
|
|
// on collecte les variables manquantes : celles qui sont nécessaires pour
|
|
// remplir les objectifs de la simulation (calculer des cotisations) mais qui n'ont pas
|
|
// encore été renseignées
|
|
missingVariables = collectMissingVariables('groupByMissingVariable', analysedSituation),
|
|
|
|
missingVariablesList = R.keys(missingVariables),
|
|
|
|
groups = R.groupBy(
|
|
parentName
|
|
)(missingVariablesList),
|
|
|
|
// on va maintenant construire la liste des composants React correspondant aux questions pour obtenir les variables manquantes
|
|
steps = R.pipe(
|
|
R.mapObjIndexed((variables, group) =>
|
|
R.pipe(
|
|
findGroup,
|
|
R.cond([
|
|
// Pas de groupe trouvé : ce sont des variables individuelles
|
|
[R.isNil, () => variables.map(dottedName => {
|
|
let rule = findRuleByDottedName(dottedName)
|
|
return Object.assign(constructStepMeta(rule),
|
|
rule.format == 'nombre positif' ||
|
|
rule.format == 'période' ?
|
|
{
|
|
component: Input,
|
|
valueType: rule.format == 'nombre positif' ? euro : months,
|
|
attributes: {
|
|
inputMode: 'numeric',
|
|
placeholder: 'votre réponse'
|
|
},
|
|
suggestions: rule.suggestions
|
|
} : {
|
|
component: Question,
|
|
choices: [
|
|
{value: 'non', label: 'Non'},
|
|
{value: 'oui', label: 'Oui'}
|
|
]
|
|
}
|
|
)})],
|
|
[R.T, group =>
|
|
Object.assign(
|
|
constructStepMeta(group),
|
|
{
|
|
component: Question,
|
|
choices:
|
|
group['une possibilité'].concat(
|
|
group['langue au chat possible'] ?
|
|
[{value: '_', label: 'Aucun'}] : []
|
|
)
|
|
}
|
|
)]
|
|
])
|
|
)(group)
|
|
),
|
|
R.values,
|
|
R.unnest
|
|
)(groups)
|
|
|
|
return {...state, steps, analysedSituation}
|
|
|
|
} else {
|
|
return state
|
|
}
|
|
|
|
}
|
|
)
|