@@ -171,12 +171,34 @@ function update_database () {

 }

 function write_comparaison () {

-    result="comparaisons ${groupe[0]} avec ${groupe_ref:-GDR}${dossier:+ - ${dossier}}"

+    result="scrutins ($(sum <<< "${groupe[@]}" | cut -b1-5))${dossier:+ - ${dossier}}"

     content="/dev/shm/$result/content.xml"

-    id_cols=(Scrutin Date Scéance Titre Adoption Panurgisme${nom:+ Participation Loyauté} Dossier)

+    id_cols=(Scrutin Date Séance Titre Adoption Dossier)

     eval $(sqlite_request 'select printf("typevotes[%i]=%s;", id, nom) from votes')

     nb_cols=$(( ${#id_cols[@]} + ${#typevotes[@]} * ${#groupe[@]} ))

     last_col=$(awk -v n=$nb_cols 'BEGIN{printf("%c%c", n < 27 ? "" : int(n/26) + 64, (n % 26) + (n % 26 == 0 ? 26 : 0) + 64)}' | tr -d '\0')

+    colors=($(awk -v n=${#groupe[@]} -v from=${from_color:-2A0636} -v to=${to_color:-D09B8A} '

+        function rgbL (p) {

+            r = rgb_from[1] + p * (rgb_to[1] - rgb_from[1])

+            g = rgb_from[2] + p * (rgb_to[2] - rgb_from[2])

+            b = rgb_from[3] + p * (rgb_to[3] - rgb_from[3])

+            L = r * 0.299 + g * 0.587 + b * 0.114

+            printf("%02x%02x%02x:%s\n", int(r), int(g), int(b), L > 185 ? "000000" : "ffffff")

+        }

+        BEGIN {

+            for (i = split(gensub("(..)(..)(..)", "\\1,\\2,\\3", "1", from), rgb_from, ","); i > 0; i--)

+                rgb_from[i] = strtonum(sprintf("%d", strtonum("0x" rgb_from[i])))

+            for (i = split(gensub("(..)(..)(..)", "\\1,\\2,\\3", "1", to), rgb_to, ","); i > 0; i--)

+                rgb_to[i] = strtonum(sprintf("%d", strtonum("0x" rgb_to[i])))

+

+            print "pour_bash_array_qui_commence_a_index_0"

+            rgbL(0)

+            for (i = 1; i < n-1; i++) {

+                rgbL(i/n)

+            }

+            if (n > 1) rgbL(1)

+        }

+    '))

     function write_cell () {

         case $1 in

             url)

@@ -241,9 +263,18 @@ EOcontent

     <style:style style:name="ta1" style:family="table" style:master-page-name="Default">

     <style:table-properties table:display="true" style:writing-mode="lr-tb"/>

     </style:style>

-    <style:style style:name="ce1" style:family="table-cell" style:parent-style-name="Default">

-    <style:table-cell-properties fo:background-color="#cccccc"/>

-    </style:style>

+EOcontent

+

+    for i in $(seq ${#groupe[@]}); do

+        cat >> "$content" << EOcontent

+        <style:style style:name="ce$i" style:family="table-cell" style:parent-style-name="Default">

+        <style:table-cell-properties fo:wrap-option="wrap" style:vertical-align="middle" fo:background-color="#${colors[$i]%:*}"/>

+        <style:text-properties fo:hyphenate="false" fo:color="#${colors[$i]}"/>

+        </style:style>

+EOcontent

+    done

+

+    cat >> "$content" << EOcontent

     </office:automatic-styles>

     <office:body>

     <office:spreadsheet>

@@ -254,12 +285,9 @@ EOcontent

 EOcontent

     for i in $(seq ${#typevotes[@]}); do

-        cat >> "$content" << EOcontent

-        <table:table-column table:style-name="co1" table:default-cell-style-name="ce1"/>

-EOcontent

-        for (( g = 1; g < ${#groupe[@]}; g++ )); do

+        for g in $(seq ${#groupe[@]}); do

             cat >> "$content" << EOcontent

-            <table:table-column table:style-name="co1" table:default-cell-style-name="Default"/>

+            <table:table-column table:style-name="co1" table:default-cell-style-name="ce$g"/>

 EOcontent

         done

     done

@@ -302,34 +330,12 @@ EOcontent

         write_cell texte "$seance"

         write_cell texte "$title"

         write_cell texte "$adoption"

+        write_cell url   "${dossier_url/#null/\"\"}" "${dossier_texte/#null}"

+        unset votes

         for typevote in $(seq ${#typevotes[@]}); do

-            vote_cible[$typevote]=$(sqlite_request "select

-                                        count(député)

-                                     from

-                                        dépouillements

-                                     inner join

-                                        députés, groupes

-                                     on

-                                        députés.groupe = groupes.id and dépouillements.député = députés.id

-                                     where

-                                        scrutin is $scrutin

-                                     and

-                                        vote is $typevote

-                                     and

-                                        groupes.id = ${groupe_id[0]} ${nom:+ and députés.nom is \"${nom}\"}")

-        done

-        if test \( ${vote_cible[1]} -gt ${vote_cible[2]} -a $adoption = oui \) \

-            -o  \( ${vote_cible[2]} -gt ${vote_cible[1]} -a $adoption = non \); then

-            panurge=oui

-        else

-            panurge=non

-        fi

-        write_cell texte $panurge

-

-        if test -n "$nom"; then

-            for typevote in 1 2; do

-                votes_g0[$typevote]=$(sqlite_request "select

+            for (( g = 0; g < ${#groupe[@]}; g++ )); do

+                votes[${#votes[@]}]=$(sqlite_request "select

                                             count(député)

                                          from

                                             dépouillements

@@ -342,39 +348,22 @@ EOcontent

                                          and

                                             vote is $typevote

                                          and

-                                            groupes.id is ${groupe_id[0]}")

+                                            ${id_groupe[$g]%:*}.nom = '${groupe[$g]}'")

             done

-            participation=$(( vote_cible[1] + vote_cible[2] + vote_cible[3] + vote_cible[4] ))

-            if test $(( (${votes_g0[1]} - ${votes_g0[2]}) * (${vote_cible[1]} - ${vote_cible[2]}) )) -gt 0; then

-                loyaute=oui

-            else

-                loyaute=non

-            fi

-            write_cell nombre $participation

-            write_cell texte $loyaute

-        fi

-

-        write_cell url "${dossier_url/#null/\"\"}" "${dossier_texte/#null}"

-

-        for typevote in $(seq ${#typevotes[@]}); do

-            write_cell nombre ${vote_cible[$typevote]}

-            for (( g = 1; g < ${#groupe_id[@]}; g++ )); do

-                votes=$(sqlite_request "select

-                                            count(député)

-                                         from

-                                            dépouillements

-                                         inner join

-                                            députés, groupes

-                                         on

-                                            députés.groupe = groupes.id and dépouillements.député = députés.id

-                                         where

-                                            scrutin is $scrutin

-                                         and

-                                            vote is $typevote

-                                         and

-                                            groupes.id is ${groupe_id[$g]}")

-                write_cell nombre $votes

+        done

+        for ((j = 0; j < ${#groupe[@]}; j++)); do

+            presence=1 # `let presence+=0` sort en erreur si variable est unset ou égale à 0

+            for ((i = $j; i < ${#votes[@]}; i += ${#groupe[@]})); do

+                let presence+=${votes[$i]}

             done

+            if test $presence -eq 1; then

+                for ((i = $j; i < ${#votes[@]}; i += ${#groupe[@]})); do

+                    votes[$i]=-1

+                done

+            fi

+        done

+        for ((i = 0; i < ${#votes[@]}; i ++)); do

+            write_cell nombre ${votes[$i]}

         done

         echo '</table:table-row>' >> "$content"

@@ -453,44 +442,70 @@ while [[ $# -gt 0 ]]; do

     case "$1" in

         "--no-db-update")

 #|ne met pas à jour la base de données

+            if test ${db_update_only:-OK} = $true_flag; then

+                echo "option incompatible avec --db-update-only"

+                exit 1

+            fi

             no_db_update=$true_flag;;

         "--db-update-only")

 #|ne génère pas de fichier de résultat

+            if test ${no_db_update:-OK} = $true_flag; then

+                echo "option incompatible avec --no-db-update"

+                exit 1

+            fi

             db_update_only=$true_flag;;

-        "--cible")

-#<nom court du groupe>|génère un comparatif pour ce groupe. Par défaut Renaissance

-            groupe[0]="${2}"

+        "--cible"|"-c")

+#<nom court du groupe>|ajoute les scrutins de ce groupe, de ce ou cette députée, les colonnes seront dans l'ordre

+            _groupe[${#_groupe[@]}]="${2}"

             shift;;

-        "--ref")

-#<nom court du groupe ou des groupes>|compare avec ce ou ces groupes. Si plusieurs groupes, ils sont séparés par une virgule, sans espace. Par défaut GDR

-            groupe_ref="${2}"

-            shift;;

-        "--député")

-#<nom>|filtre la cible sur un-e député-e sur le groupe cible (par défaut Renaissance). <nom> est insensible à la casse. Tout ou partie du nom ou du prénom peut être donné, espace compris. Caractère % utilisé comme caractère joker. Si aucune correspondance n'est trouvée avec un-e député-é, sortie en erreur. Si plusieurs député-e-s correspondent la liste est affichée et sortie en erreur.

-            depute=$true_flag

-            nom="$2"

+        "--couleurs")

+#<nombre hexadécimal>:<nombre hexadécimal>|colore les colonnes en dégradé entre les deux couleurs comprises

+            if grep -iq '[^0-9A-F:]' <<< ${2:-ERROR}; then

+                echo "$1 ${2:-ERROR}: format attendu <nombre>:<nombre>"

+                exit 1

+            elif egrep -iq '[0-9A-F]{6}:[0-9A-F]{6}' <<< ${2:-ERROR}; then

+                from_color=${2%:*}

+                to_color=${2#*:}

+            else

+                echo erreur $2: couleur RGB au format hexadécimal demandé

+            fi

             shift;;

         "--mandature")

            mandature="$2"

            ;;

+        "--scrutin")

+#<nombre>[:<nombre>]|commence la génération du résultat pour le scrutin <nombre>, ou entre les deux nombres donnés

+            if grep -q '[^0-9:]' <<< ${2:-ERROR}; then

+                echo "$1 ${2:-ERROR}: format attendu <nombre>[:<nombre>]"

+                exit 1

+            elif egrep -q '[1-9][0-9]*(:[1-9][0-9]*)?' <<< ${2:-ERROR}; then

+                first=${2%:*}

+                last=${2#*:}

+                if test $first -gt $last; then

+                    last+=:$first

+                    first=${last%:*}

+                    last=${last#*:}

+                fi

+            else

+                echo "$1 ${2:-ERROR}: <nombre> ne doit pas commencer par 0"

+                exit 1

+            fi

+            shift;;

         "--premier-scrutin")

 #<numéro>|commence la génération du résultat à partir du scrutin <numéro>

-            no_db_update=$true_flag

             first="$2"

             shift;;

         "--dernier-scrutin")

 #<numéro>|termine la génération du résultat au scrutin <numéro>

-            no_db_update=$true_flag

             last="$2"

             shift;;

         "--période")

 #<jj/mm/aaaa:JJ/MM/AAAA>|génère un résultat pour les scrutins allant de jj/mm/aaaa à JJ/MM/AAAA

             periode=$true_flag

-            no_db_update=$true_flag

             periode_value="$2"

             shift;;

         "--liste-députés-du-groupe")

-#<nom court du groupe>|liste les député-e-s du groupe <nom court du groupe> sur la mandature

+#<groupe>|liste les député·e·s du groupe <groupe>

             liste_deputes=$true_flag

             liste_deputes_value="${2}"

             shift;;

@@ -557,8 +572,6 @@ done

 test "$options_error" = $true_flag && exit 1

-IFS=',' groupe=(${groupe[0]:-Renaissance} ${groupe_ref:-GDR})

-

 in_ram_database=$(mktemp --dry-run /dev/shm/XXXXXXXXXXXX)

 if test -r "$database"; then

     cp "$database" "$in_ram_database"

@@ -566,18 +579,6 @@ else

     create_database

 fi

-function check_groupes () {

-    nb_groupe=$(sqlite_request "select count(id) from groupes where nom like \"%$1%\" or nom_court is \"$1\"")

-    if test $nb_groupe -eq 0; then

-        echo "aucun groupe ne correspond au critère $1" >&2

-        exit 1

-    elif test $nb_groupe -gt 1; then

-        echo "plusieurs groupes correspondent au critère $1" >&2

-        sqlite_request "select printf('• %s%s', nom, iif(nom_court is not null, ' [' || nom_court || ']', '')) from groupes where nom like \"%$1%\" or nom_court = \"$1\"" | grep --color -i "$1" >&2

-        exit 1

-    fi

-}

-

 if test "$periode" = $true_flag; then

     function get_date () {

         sqlite_request "select distinct(date) from scrutins order by num asc" | awk -v d="$1" -v comp=$2 '

@@ -625,11 +626,6 @@ if test "$db_update_only" = $true_flag; then

     exit

 fi

-for (( g = 0; g < ${#groupe[@]}; g++ )); do

-    check_groupes "${groupe[$g]}"

-    groupe_id[$g]=$(sqlite_request "select id from groupes where nom like \"%${groupe[$g]}%\" or nom_court is '${groupe[$g]}'")

-done

-

 if test "$liste_deputes" = $true_flag; then

     if test -n "$liste_deputes_value"; then

         sqlite_request "select printf('%s - %s%s',

@@ -654,22 +650,36 @@ if test "$liste_deputes" = $true_flag; then

     exit

 fi

-if test "$depute" = $true_flag; then

-    if test -n "$nom"; then

-        match=$(sqlite_request "select count(députés.id) from députés inner join groupes on groupes.id = députés.groupe where députés.nom like '%$nom%' and groupes.nom_court is '$groupe' collate nocase")

-        if test $match -eq 0; then

-            echo "pas de député correspondant à $nom dans le groupe $groupe"

-            exit 1

-        elif test $match -gt 1; then

-            echo "plusieurs députés correspondent à $nom:"

-            sqlite_request "select députés.nom from députés inner join groupes on groupes.id = députés.groupe where députés.nom like '%$nom%' and groupes.nom_court is '$groupe' collate nocase"

-            exit 1

-        else

-            groupe[0]=$(sqlite_request "select printf('%s (%s)', députés.nom, groupes.nom) from députés inner join groupes on groupes.id = députés.groupe where députés.nom like '%$nom%' and groupes.nom_court is '$groupe' collate nocase")

-            nom=${groupe[0]%% (*}

-        fi

+for (( g = 0; g < ${#_groupe[@]}; g++ )); do

+    # on vérifie si c'est un ou une député

+    depute_count=$(sqlite_request "select count(distinct nom) from députés where nom like '%${_groupe[$g]}%'")

+    groupe_count=$(sqlite_request "select count(distinct nom) from groupes where nom like \"%${_groupe[$g]}%\" or nom_court is '${_groupe[$g]}'")

+    if test $depute_count -eq 1 -a $groupe_count -ne 1; then

+        groupe[$g]=$(sqlite_request "select distinct nom from députés where nom like '%${_groupe[$g]}%'")

+        id_groupe[$g]=députés:$(sqlite_request "select group_concat(id) from députés where nom is '${groupe[$g]}'")

+        continue

+    elif test $groupe_count -eq 1 -a $depute_count -ne 1; then

+        groupe[$g]=$(sqlite_request "select distinct nom from groupes where nom like \"%${_groupe[$g]}%\" or nom_court is '${_groupe[$g]}'")

+        id_groupe[$g]=groupes:$(sqlite_request "select id from groupes where nom is '${groupe[$g]}'")

+        continue

+    elif test $groupe_count -eq 1 -a $depute_count -eq 1; then

+        echo "dénomination ambigüe pour ${_groupe[$g]}"

+        sqlite_request "select printf('député·e: %s', distinct nom) from députés where nom like '%${_groupe[$g]}%'" | grep --color -i "${_groupe[$g]}"

+        sqlite_request "select printf('groupe  : %s', distinct nom) from groupes where nom like \"%${_groupe[$g]}%\" or nom_court is '${_groupe[$g]}'" | grep --color -i "${_groupe[$g]}"

+        exit 1

+    elif test $depute_count -gt 1; then

+        echo plusieurs député·e·s correspondant à "${_groupe[$g]}" trouvé·e·s

+        sqlite_request "select distinct nom from députés where nom like '%${_groupe[$g]}%'" | grep --color -i "${_groupe[$g]}"

+        exit 1

+    elif test $groupe_count -gt 1; then

+        echo plusieurs groupes correspondant à "${_groupe[$g]}" trouvés

+        sqlite_request "select distinct nom from groupes where nom like \"%${_groupe[$g]}%\" or nom_court is '${_groupe[$g]}'" | grep --color -i "${_groupe[$g]}"

+        exit 1

+    else

+        echo aucun·e député·e ou groupe ne correspond au critère "${_groupe[$g]}"

+        exit 1

     fi

-fi

+done

 update_database

 write_comparaison