mon-entreprise/source/reducers.js

import React from 'react'
import { combineReducers } from 'redux'
import reduceReducers from 'reduce-reducers'
import {reducer as formReducer, formValueSelector} from 'redux-form'
import {analyseSituation} from './engine/traverse'
import { euro, months } from './components/conversation/formValueTypes.js'

import Question from './components/conversation/Question'
import Input from './components/conversation/Input'

import { STEP_ACTION, START_CONVERSATION, EXPLAIN_VARIABLE, POINT_OUT_OBJECTIVES} from './actions'
import R from 'ramda'

import {findGroup, findRuleByDottedName, parentName, collectMissingVariables} from './engine/rules'
import {constructStepMeta} from './engine/conversation'

import computeThemeColours from './components/themeColours'

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
	}
}

function pointedOutObjectives(state=[], {type, objectives}) {
	switch (type) {
	case POINT_OUT_OBJECTIVES:
		return objectives
	default:
		return state
	}
}

let handleSteps = (state, action) => {

	if (![START_CONVERSATION, STEP_ACTION].includes(action.type))
		return state

	let returnObject = {
		...state,
		analysedSituation: analyse(state)
	}

	if (action.type == START_CONVERSATION) {
		return {
			...returnObject,
			unfoldedSteps: buildNextSteps(returnObject.analysedSituation)
		}
	}
	if (action.type == STEP_ACTION && action.name == 'fold') {
		return {
			...returnObject,
			foldedSteps: [...state.foldedSteps, R.head(state.unfoldedSteps)],
			unfoldedSteps: buildNextSteps(returnObject.analysedSituation)
		}
	}
	if (action.type == STEP_ACTION && action.name == 'unfold') {
		let stepFinder = R.propEq('name', action.step),
			foldedSteps = R.pipe(
					R.splitWhen(stepFinder),
					R.head
			)(state.foldedSteps)
		return {
			...returnObject,
			foldedSteps,
			unfoldedSteps: [R.find(stepFinder)(state.foldedSteps)]
		}
	}
}

let analyse = R.pipe(
	situationGate,
	// une liste des objectifs de la simulation (des 'rules' aussi nommées 'variables')
	analyseSituation
)

let missingVariables

let buildNextSteps = R.pipe(
	/*
		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

		TODO perf : peut-on le faire en même temps que l'on traverse l'AST ?
		Oui sûrement, cette liste se complète en remontant l'arbre. En fait, on le fait déjà pour nodeValue,
		et quand nodeValue vaut null, c'est qu'il y a des missingVariables ! Il suffit donc de remplacer les
		null par un tableau, et d'ailleurs utiliser des fonction d'aide pour mutualiser ces tests.

		missingVariables: {variable: [objectives]}
	 */
	R.path(['formule', 'explanation', 'explanation']),
	analysedSituation => {
		//TODO temporary fix
		missingVariables = collectMissingVariables('groupByMissingVariable')(analysedSituation)
		return missingVariables
	},
	R.keys,
	/*
		Certaines variables manquantes peuvent être factorisées dans des groupes.
		Par exemple, au lieu de :

		q1: "Pensez vous porlonger le CDD en CDI",
		r1: Oui | Non
		q2: "Pensez-vous qu'une rupture pour faute grave est susceptible d'arriver"
		r2: Oui | Non

		on préfère :

		q: "Pensez-vous être confronté à l'un de ces événements ?"
		r: Prolongation du CDD en CDI | Rupture pour faute grave
	*/
	R.groupBy(parentName),
	// on va maintenant construire la liste des composants React qui afficheront les questions à l'utilisateur pour que l'on obtienne les variables manquantes
	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'}
								]
							},
							{
								objectives: missingVariables[dottedName]
							}
						)})],
					[R.T, group =>  do {
						let possibilities = group['une possibilité']
						Object.assign(
							constructStepMeta(group),
							{
								component: Question,
								choices:
									possibilities.concat(
										group['langue au chat possible'] === 'oui' ?
											[{value: '_', label: 'Aucun'}] : []
									)
							},
							{
								objectives: R.pipe(
									R.chain(v => missingVariables[group.dottedName + ' . ' + v]),
									R.uniq()
								)(possibilities)
							}
						)}]
				])
			)(group)
		),
		R.values,
		R.unnest
	)
)


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 */
		foldedSteps: (steps=[]) => steps,
		unfoldedSteps: (steps=[]) => steps,


		analysedSituation: (state = []) => state,

		themeColours,

		explainedVariable,

		pointedOutObjectives
	}),
	// cross-cutting concerns because here `state` is the whole state tree
	handleSteps
)