repowarden 4.4.0 → 4.7.1

package/bin/run-rerun

@@ -0,0 +1,65 @@
+#!/usr/bin/env bash
+# Relancer un workflow GitHub Actions échoué
+#   repowarden run rerun <run-id|--failed|--workflow>
+set -euo pipefail
+
+ROOT="$(cd "$(dirname "${BASH_SOURCE[0]}")/.." && pwd -P)"
+# shellcheck source=../hooks/lib/common.sh
+source "$ROOT/hooks/lib/common.sh"
+# shellcheck source=../hooks/lib/i18n.sh
+source "$ROOT/hooks/lib/i18n.sh"
+
+aide() {
+    cat <<EOF
+Usage: repowarden run rerun <run-id|--failed|--workflow <nom>>
+
+Relance un workflow GitHub Actions.
+
+Options:
+  <run-id>           ID du run à relancer
+  --failed           Relance le dernier run échoué du repo
+  --workflow <nom>   Relance le dernier run du workflow spécifié
+
+Exemples:
+  repowarden run rerun 123456789
+  repowarden run rerun --failed
+  repowarden run rerun --workflow "CI"
+EOF
+}
+
+[ $# -ge 1 ] || { aide >&2; exit 1; }
+if [[ "$1" == "--help" || "$1" == "-h" ]]; then
+    aide
+    exit 0
+fi
+command -v gh >/dev/null || { err_t bot.no_gh; exit 1; }
+
+arg="${1}"
+run_id=""
+
+case "$arg" in
+    --failed)
+        step_t run.rerun.failed
+        run_id=$(gh run list --repo "${GH_REPO:-$(gh repo view --json nameWithOwner -q .nameWithOwner)}" --limit 1 --json databaseId,conclusion --jq '.[] | select(.conclusion=="failure") | .databaseId')
+        [ -n "$run_id" ] || { err_t run.rerun.none_failed; exit 1; }
+        ;;
+    --workflow)
+        shift
+        workflow="${1:?--workflow attend un nom}"
+        step_t run.rerun.workflow "$workflow"
+        run_id=$(gh run list --repo "${GH_REPO:-$(gh repo view --json nameWithOwner -q .nameWithOwner)}" --workflow "$workflow" --limit 1 --json databaseId --jq '.[0].databaseId')
+        [ -n "$run_id" ] || { err_t run.rerun.none_workflow "$workflow"; exit 1; }
+        ;;
+    *)
+        if [[ "$arg" =~ ^[0-9]+$ ]]; then
+            run_id="$arg"
+        else
+            err_t install.unknown_arg "$arg"
+            exit 1
+        fi
+        ;;
+esac
+
+step_t run.rerun.running "$run_id"
+gh run rerun "$run_id"
+ok_t run.rerun.done "$run_id"

package/bin/statut

@@ -81,6 +81,7 @@ if [ -n "$GIT_TOPLEVEL" ]; then
         fi
     fi
     info_t st.repo_forge "$FORGE"
+    [ "$FORGE" != github ] || dim_t st.repo_rules
 fi
 
 # Outils : secrets, code mort (selon les langages)

package/bin/ticket

@@ -5,6 +5,9 @@
 #   repowarden ticket nouveau "<titre>" [--type fix] [--description "…"]
 #                                            crée le ticket (« à valider » si le suivi
 #                                            est géré par repowarden, sinon avec sa branche)
+#   repowarden ticket comment <n> "<texte>"  ajoute un commentaire sur le ticket
+#   repowarden ticket label <n> <label> [--remove]
+#                                            gère les labels du ticket
 #   repowarden ticket                        ticket de la branche courante
 # Demande un gh connecté (https://cli.github.com).
 set -euo pipefail
@@ -108,6 +111,8 @@ cmd_nouveau() {
 case "${1:-}" in
     -h | --help | help) aide ;;
     nouveau | new) shift; cmd_nouveau "$@" ;;
+    comment) shift; exec bash "$ROOT/bin/ticket-comment" "$@" ;;
+    label) shift; exec bash "$ROOT/bin/ticket-label" "$@" ;;
     "")
         branche="$(git symbolic-ref --short HEAD 2>/dev/null || echo "")"
         branch_ticket_r "$branche"

package/bin/ticket-comment

@@ -0,0 +1,32 @@
+#!/usr/bin/env bash
+# Ajouter un commentaire sur un ticket GitHub
+#   repowarden ticket comment <n> "<texte>"
+set -euo pipefail
+
+ROOT="$(cd "$(dirname "${BASH_SOURCE[0]}")/.." && pwd -P)"
+# shellcheck source=../hooks/lib/common.sh
+source "$ROOT/hooks/lib/common.sh"
+# shellcheck source=../hooks/lib/i18n.sh
+source "$ROOT/hooks/lib/i18n.sh"
+
+aide() {
+    cat <<EOF
+Usage: repowarden ticket comment <n> "<texte>"
+
+Ajoute un commentaire sur le ticket #<n>.
+
+Exemples:
+  repowarden ticket comment 123 "Conception retenue : ..."
+  repowarden ticket comment 456 "PR prête pour review"
+EOF
+}
+
+[ $# -ge 2 ] || { aide >&2; exit 1; }
+command -v gh >/dev/null || { err_t bot.no_gh; exit 1; }
+
+n="${1}"
+texte="${2}"
+
+step_t tk.comment.adding "$n"
+gh issue comment "$n" --body "$texte"
+ok_t tk.comment.added "$n"

package/bin/ticket-label

@@ -0,0 +1,52 @@
+#!/usr/bin/env bash
+# Gérer les labels d'un ticket GitHub
+#   repowarden ticket label <n> <label> [--remove]
+set -euo pipefail
+
+ROOT="$(cd "$(dirname "${BASH_SOURCE[0]}")/.." && pwd -P)"
+# shellcheck source=../hooks/lib/common.sh
+source "$ROOT/hooks/lib/common.sh"
+# shellcheck source=../hooks/lib/i18n.sh
+source "$ROOT/hooks/lib/i18n.sh"
+
+aide() {
+    cat <<EOF
+Usage: repowarden ticket label <n> <label> [--remove]
+
+Ajoute ou retire un label sur le ticket #<n>.
+
+Options:
+  --remove    Retire le label au lieu de l'ajouter
+
+Exemples:
+  repowarden ticket label 123 "validé"
+  repowarden ticket label 123 "statut: backlog"
+  repowarden ticket label 123 "wip" --remove
+EOF
+}
+
+[ $# -ge 2 ] || { aide >&2; exit 1; }
+command -v gh >/dev/null || { err_t bot.no_gh; exit 1; }
+
+n="${1}"
+label="${2}"
+remove=false
+
+shift 2
+while [ $# -gt 0 ]; do
+    case "$1" in
+        --remove) remove=true ;;
+        *) err_t install.unknown_arg "$1"; exit 1 ;;
+    esac
+    shift
+done
+
+if [ "$remove" = true ]; then
+    step_t tk.label.removing "$label" "$n"
+    gh issue edit "$n" --remove-label "$label"
+    ok_t tk.label.removed "$label" "$n"
+else
+    step_t tk.label.adding "$label" "$n"
+    gh issue edit "$n" --add-label "$label"
+    ok_t tk.label.added "$label" "$n"
+fi

package/bin/tickets

@@ -123,11 +123,14 @@ permissions: {}
 
 jobs:
   tickets:
-    uses: SimBienvenueHoulBoumi/repowarden/.github/workflows/tickets.yml@v4
+    uses: simdevWarden/repowarden/.github/workflows/tickets.yml@v4
     permissions: { contents: write, issues: write, pull-requests: write, statuses: write }
     # GitHub App (repowarden app init) : ses actions déclenchent les autres workflows
+    # auto-create : true = crée un ticket « à valider » pour PR sans ticket,
+    # false = échec de la vérification avec la marche à suivre (défaut false)
     with:
       app-client-id: ${{ vars.REPOWARDEN_APP_CLIENT_ID }}
+      auto-create: false
     secrets:
       app-key: ${{ secrets.REPOWARDEN_APP_KEY }}
 YAML
@@ -136,6 +139,16 @@ YAML
 step_t tk.init_adopt
 GH_REPO="$REPO" AUTO_VALIDATE="${AUTO_VALIDATE:-maintainers}" "$ROOT/ci/tickets.sh" adopter | sed 's/^/  /'
 
+# Afficher l'état de ticketAutoCreate
+echo
+if git config --get repowarden.ticketAutoCreate | grep -qE '^(true|oui|yes)$'; then
+    t tk.init_auto_create_on
+    hint "$_T"
+else
+    t tk.init_auto_create_off
+    hint "$_T"
+fi
+
 echo
 ok_t tk.init_done
 dim_t tk.init_next

package/ci/tickets/issue.sh

@@ -52,10 +52,22 @@ cmd_issue() {
             accepter "$ISSUE"
             ;;
         assigned)
-            # Pris en charge : sa branche (s'il est validé), en cours s'il
-            # attendait dans le backlog
-            est_valide "$ISSUE" && creer_branche "$ISSUE"
-            grep -qxF "$S_BACKLOG" <<<"$(etiquettes "$ISSUE")" && statut "$ISSUE" "$S_ENCOURS"
+            # Pris en charge : sa branche (s'il est validé), en cours s'il est
+            # validé ET assigné (quelle que soit la présence du label backlog,
+            # pour gérer la race validation+assignation quasi simultanée).
+            # Ne passe en cours que s'il n'est pas déjà plus loin (relecture, préprod, done).
+            if est_valide "$ISSUE"; then
+                creer_branche "$ISSUE"
+                local labels
+                labels="$(etiquettes "$ISSUE")"
+                if grep -qxF "$S_AVALIDER" <<<"$labels" || grep -qxF "$S_BACKLOG" <<<"$labels"; then
+                    # Pas de label plus avancé (relecture, préprod, done) ?
+                    grep -qxF "$S_RELECTURE" <<<"$labels" && return 0
+                    grep -qxF "$S_PREPROD" <<<"$labels" && return 0
+                    grep -qxF "$S_DONE" <<<"$labels" && return 0
+                    statut "$ISSUE" "$S_ENCOURS"
+                fi
+            fi
             return 0
             ;;
         closed)
@@ -71,7 +83,10 @@ cmd_issue() {
                     _tr tk.reopened "$fpr" "$fbase"
                     gh issue comment "$ISSUE" --body "$_T" >/dev/null
                     notice "$_T"
+                    return 0
                 fi
+                # Terminé à la main ou en production : branche restante nettoyée
+                nettoyer_branche "$ISSUE"
                 return 0
             fi
             # Abandonné : PR fermées, branche supprimée (un ticket terminé est

package/ci/tickets/pr.sh

@@ -22,6 +22,14 @@ cmd_pr() {
             _tr tk.pr_backmerge_empty "$HEAD" "$BASE"
             gh pr close "$PR" --comment "$_T" >/dev/null
             notice "$_T"
+        # Livraison ouverte par le workflow de release : celle d'une personne
+        # n'aurait jamais d'approbation de déploiement, elle resterait bloquée
+        elif [ "$HEAD" = "${INTEGRATION:-develop}" ] && [ "${DELIVERY_WORKFLOW:-false}" = true ] &&
+            [[ "${AUTHOR:-}" != *"[bot]" ]]; then
+            _tr tk.pr_delivery_manual "$HEAD" "$BASE" "$HEAD" "$HEAD"
+            gh pr close "$PR" --comment "$_T" >/dev/null
+            notice "$_T"
+            return 0
         fi
     fi
     # Bots de dépendances, PR de release, livraisons et retours : pas de ticket
@@ -47,14 +55,22 @@ cmd_pr() {
         return 0
     fi
 
-    # Aucun ticket : créé à partir de la PR, à valider, et relié à la PR
+    # Aucun ticket : si auto-create activé, créé à partir de la PR, à valider,
+    # et relié à la PR ; sinon, échec de la vérification avec la marche à suivre.
     if [ -z "$tickets" ]; then
-        _tr tk.created_body "$PR"
-        url="$(gh issue create --title "$(gh pr view "$PR" --json title -q .title)" \
-            --body "$_T" --label "$S_AVALIDER")"
-        tickets="${url##*/}"
-        gh pr edit "$PR" --body "$(printf '%s\n\nTicket : #%s\n' "$body" "$tickets")" >/dev/null
-        notice_t tk.created "$tickets" "$PR"
+        if [ "${AUTO_CREATE:-false}" = true ]; then
+            _tr tk.created_body "$PR"
+            url="$(gh issue create --title "$(gh pr view "$PR" --json title -q .title)" \
+                --body "$_T" --label "$S_AVALIDER")"
+            tickets="${url##*/}"
+            gh pr edit "$PR" --body "$(printf '%s\n\nTicket : #%s\n' "$body" "$tickets")" >/dev/null
+            notice_t tk.created "$tickets" "$PR"
+        else
+            _tr tk.created_body "$PR"
+            gh api "repos/$GH_REPO/statuses/$HEAD_SHA" -f state=failure -f context=ticket \
+                -f description="PR sans ticket : créez-en un avec 'repowarden ticket nouveau \"<titre>\"' ou citez 'Ticket : #N' dans la description" >/dev/null
+            return 0
+        fi
     fi
 
     # Statut du travail (seulement pour un ticket validé)

package/ci/tickets/push.sh

@@ -4,12 +4,91 @@
 # Chargé par ci/tickets.sh (après hooks/lib/common.sh et hooks/lib/tickets.sh).
 # shellcheck disable=SC2154 # statuts, réglages et compteurs définis dans les autres modules
 
+# REPLY = rang d'impact du sujet de commit $1 : 0 rupture, 1 feat, 2 fix/perf,
+# 3 autre type conforme
+rang_impact() {
+    case "$1" in
+        *"!: "*) REPLY=0 ;;
+        feat*:*) REPLY=1 ;;
+        fix*:* | perf*:*) REPLY=2 ;;
+        *) REPLY=3 ;;
+    esac
+}
+
+# REPLY = sujet du commit conforme de plus fort impact de la branche $1, vide
+# si aucun commit conforme (repli du titre de PR quand le ticket n'en donne pas)
+commit_impact_r() {
+    local s rang meilleur="" meilleur_rang=""
+    REPLY=""
+    while IFS= read -r s; do
+        [ -n "$s" ] || continue
+        [[ "$s" =~ $CC_PATTERN ]] || continue
+        rang_impact "$s"
+        rang="$REPLY"
+        if [ -z "$meilleur" ] || [ "$rang" -lt "$meilleur_rang" ]; then
+            meilleur="$s"
+            meilleur_rang="$rang"
+        fi
+    done < <(gh api "repos/$GH_REPO/compare/$INTEGRATION...$1" \
+        -q '.commits[].commit.message | split("\n")[0]' 2>/dev/null || true)
+    REPLY="$meilleur"
+}
+
+# REPLY = titre de la PR brouillon du ticket $1 (branche $2) : « type(portée):
+# sujet » depuis le ticket, sinon le commit conforme de plus fort impact de la
+# branche, sinon le titre déduit de la branche
+titre_pr_brouillon_r() {
+    local n="$1" branche="$2" type
+    ticket_type_r "$(etiquettes "$n")"
+    type="$REPLY"
+    ticket_pr_title_r "$type" "$(gh issue view "$n" --json title -q .title)"
+    [ -z "$REPLY" ] || return 0
+    commit_impact_r "$branche"
+    [ -z "$REPLY" ] || return 0
+    suggest_pr_title_r "$branche"
+}
+
+# $1 = corps d'un ticket → REPLY : les puces de ses critères d'acceptation
+# (« Terminé quand… », « Critères d'acceptation ») en cases à cocher « - [ ] »,
+# le reste inchangé
+criteres_coches_r() {
+    local corps="$1" ligne dedans=0 sortie=""
+    while IFS= read -r ligne; do
+        if [[ "$ligne" =~ ^#{1,6}[[:space:]] ]]; then
+            dedans=0
+            case "$ligne" in
+                *[Tt]ermin* | *[Cc]rit* | *[Aa]cceptance* | *[Dd]one*) dedans=1 ;;
+            esac
+        elif [ "$dedans" = 1 ]; then
+            # « - x » → « - [ ] x » ; une case déjà là n'est pas dupliquée
+            ligne="$(printf '%s' "$ligne" |
+                sed -E 's/^([[:space:]]*[-*][[:space:]]+)(\[[xX ]\][[:space:]]+)?/\1[ ] /')"
+        fi
+        sortie="$sortie$ligne"$'\n'
+    done <<<"$corps"
+    REPLY="${sortie%$'\n'}"
+}
+
+# REPLY = description de la PR brouillon du ticket $1 (branche $2) : le ticket
+# (critères en cases à cocher), puis la liste des commits, puis « Ticket : #N »
+description_pr_brouillon_r() {
+    local n="$1" branche="$2" corps commits
+    criteres_coches_r "$(gh issue view "$n" --json body -q .body)"
+    corps="$REPLY"
+    commits="$(gh api "repos/$GH_REPO/compare/$INTEGRATION...$branche" \
+        -q '.commits[] | "- \(.sha[0:7]) \(.commit.message | split("\n")[0])"' 2>/dev/null || true)"
+    [ -z "$commits" ] || corps="$corps"$'\n\n## Commits\n'"$commits"
+    REPLY="$corps"$'\n\nTicket : #'"$n"
+}
+
 # Premier push sur la branche d'un ticket : PR brouillon vers la branche
-# d'intégration, citant le ticket, assignée à l'auteur du push ; ticket en
-# cours. Ouverte par le jeton des Actions, elle ne lance pas la CI : elle
-# tourne au push suivant, ou au passage « prête pour revue ».
+# d'intégration, au titre et à la description repris du ticket, citant le
+# ticket, assignée à l'auteur du push ; ticket en cours. Ouverte par le jeton
+# des Actions, elle ne lance pas la CI : elle tourne au push suivant, ou au
+# passage « prête pour revue ». Tant qu'elle est en brouillon, chaque push met
+# à jour son titre et sa description ; une PR prête n'est plus touchée.
 cmd_push() {
-    local n pr titre type url
+    local n pr titre corps url
     : "${PUSH_BRANCH:?}" "${SHA:?}"
     [ "${DELETED:-false}" != true ] || return 0
     branch_ticket_r "$PUSH_BRANCH"
@@ -18,17 +97,20 @@ cmd_push() {
     # Branche faite hors du ticket (à la main) : inscrite sur le ticket
     inscrire_branche "$n" "$PUSH_BRANCH"
     pr="$(gh pr list --state open --head "$PUSH_BRANCH" --json number -q '.[0].number // empty')"
-    [ -z "$pr" ] || return 0
+    # PR existante : rien à faire si elle n'est plus en brouillon
+    [ -z "$pr" ] || [ "$(gh pr view "$pr" --json isDraft -q .isDraft)" = true ] || return 0
     [ "$(gh api "repos/$GH_REPO/compare/$INTEGRATION...$PUSH_BRANCH" -q .ahead_by)" != 0 ] || return 0
-    titre="$(gh issue view "$n" --json title -q .title)"
-    type="${PUSH_BRANCH%%/*}"
-    case "$type" in feature) type=feat ;; bugfix | hotfix) type=fix ;; esac
-    # Titre conventionnel (message du commit en squash) : type: titre du ticket
-    titre="$type: $(tr '[:upper:]' '[:lower:]' <<<"${titre:0:1}")${titre:1}"
-    authored_length "$titre"
-    [ "$REPLY" -le 72 ] || titre="${titre:0:72}"
+    titre_pr_brouillon_r "$n" "$PUSH_BRANCH"
+    titre="$REPLY"
+    description_pr_brouillon_r "$n" "$PUSH_BRANCH"
+    corps="$REPLY"
+    if [ -n "$pr" ]; then
+        gh pr edit "$pr" --title "$titre" --body "$corps" >/dev/null
+        notice_t tk.draft_updated "$pr" "$n"
+        return 0
+    fi
     url="$(gh pr create --draft --base "$INTEGRATION" --head "$PUSH_BRANCH" --title "$titre" \
-        --body "Ticket : #$n" ${PUSHER:+--assignee "$PUSHER"})"
+        --body "$corps" ${PUSHER:+--assignee "$PUSHER"})"
     [ -z "${PUSHER:-}" ] || gh issue edit "$n" --add-assignee "$PUSHER" >/dev/null || true
     est_valide "$n" && statut "$n" "$S_ENCOURS"
     notice_t tk.draft_opened "${url##*/}" "$n"

package/ci/tickets/registre.sh

@@ -50,6 +50,25 @@ branche_du_ticket_r() {
     done < <(gh api "repos/$GH_REPO/git/matching-refs/heads/" --paginate -q '.[].ref' 2>/dev/null || true)
 }
 
+# Ticket $1 terminé : sa branche, si elle existe encore (travail passé par une
+# autre branche), est supprimée quand elle n'apporte rien à la branche
+# d'intégration et qu'aucune PR ouverte n'en part ; sinon gardée et signalée
+nettoyer_branche() {
+    local n="$1" branche avance prs
+    branche_du_ticket_r "$n"
+    branche="$REPLY"
+    [ -n "$branche" ] || return 0
+    prs="$(gh pr list --state open --head "$branche" --json number -q 'map("#\(.number)") | join(" ")')"
+    avance="$(gh api "repos/$GH_REPO/compare/${INTEGRATION:-develop}...$branche" -q .ahead_by 2>/dev/null || true)"
+    if [ -z "$prs" ] && [ "$avance" = 0 ]; then
+        gh api -X DELETE "repos/$GH_REPO/git/refs/heads/$branche" >/dev/null
+        notice_t tk.branch_deleted "$branche" "$n"
+    else
+        _tr tk.branch_kept "$branche" "${avance:-?}" "${prs:--}"
+        gh issue comment "$n" --body "$_T" >/dev/null
+    fi
+}
+
 # Ticket $1 validé : sa branche naît de la branche d'intégration, liée au
 # ticket (panneau « Development »). Rien si elle existe déjà, ou si une PR
 # ouverte cite déjà le ticket (travail commencé hors de sa branche).

package/ci/tickets/release.sh

@@ -15,6 +15,7 @@ cmd_release() {
             _tr tk.released "$TAG"
             statut "$n" "$S_DONE"
             gh issue close "$n" --comment "$_T" >/dev/null
+            nettoyer_branche "$n"
         fi
     done < <(gh issue list --state open --label "$S_PREPROD" --limit 500 --json number -q '.[].number')
 }

package/hooks/commit-msg

@@ -39,6 +39,30 @@ if [[ "$SUBJECT" =~ ^(Merge|Revert|fixup!|squash!) ]]; then
     exit 0
 fi
 
+# En-tête tenté mais refusé : type inconnu (ou en majuscules), description vide
+if ! [[ "$SUBJECT" =~ $CC_PATTERN ]] &&
+    [[ "$SUBJECT" =~ ^([A-Za-z]+)(\([^\)]*\))?(!?):[[:space:]]*(.*)$ ]]; then
+    typ="${BASH_REMATCH[1]}" portee="${BASH_REMATCH[2]}" bang="${BASH_REMATCH[3]}" desc="${BASH_REMATCH[4]}"
+    typ_min="$(printf '%s' "$typ" | tr '[:upper:]' '[:lower:]')"
+    propose="$typ_min"
+    [[ "$typ_min" =~ ^($CC_TYPES)$ ]] || { type_proche_r "$typ_min"; propose="$REPLY"; }
+    if [ -z "$desc" ]; then
+        err_t hook.commit_msg.desc_empty "${propose:-$typ}$portee$bang:"
+        echo_t hook.commit_msg.kept >&2
+        exit 1
+    fi
+    if [ "$propose" != "$typ" ]; then
+        if [ -n "$propose" ]; then
+            err_t hook.commit_msg.type_unknown "$typ" "$propose$portee$bang: $desc"
+        else
+            err_t hook.commit_msg.type_none "$typ"
+            types_help
+        fi
+        echo_t hook.commit_msg.kept >&2
+        exit 1
+    fi
+fi
+
 if ! [[ "$SUBJECT" =~ $CC_PATTERN ]]; then
     if [ "${REPOWARDEN_LANG:-}" = en ]; then
         cat >&2 <<EOF
@@ -80,6 +104,15 @@ EOF
     exit 1
 fi
 
+# Point final retiré, comme dans git cc (pas des points de suspension) ; seule
+# la première ligne est réécrite, le corps reste intact
+if [[ "$SUBJECT" == *. && "$SUBJECT" != *.. ]]; then
+    SUBJECT="${SUBJECT%.}"
+    contenu="$(awk -v s="$SUBJECT" '!fait && !/^#/ { print s; fait = 1; next } { print }' "$MSG_FILE")"
+    printf '%s\n' "$contenu" >"$MSG_FILE"
+    info_t hook.commit_msg.dot >&2
+fi
+
 authored_length "$SUBJECT"
 if [ "$REPLY" -gt 72 ]; then
     err_t hook.commit_msg.1 "$REPLY" >&2

package/hooks/lib/common.sh

@@ -84,6 +84,23 @@ cfg() {
 CC_TYPES="feat|fix|docs|style|refactor|perf|test|build|ci|chore|revert"
 CC_PATTERN="^($CC_TYPES)(\([a-z0-9._-]+\))?!?: .+"
 
+# Type le plus proche d'un type inconnu : alias courants, puis préfixe commun
+# (doc → docs, feature → feat, Feat → feat) ; vide si aucun
+type_proche_r() {
+    local t="$1" c
+    case "$t" in
+        feature | features) REPLY="feat"; return ;;
+        doc | documentation) REPLY="docs"; return ;;
+        fixe | fixed | fixes | bugfix | hotfix) REPLY="fix"; return ;;
+        tests) REPLY="test"; return ;;
+        refacto | refactoring) REPLY="refactor"; return ;;
+    esac
+    REPLY=""
+    for c in ${CC_TYPES//|/ }; do
+        if [[ "$c" == "$t"* || "$t" == "$c"* ]]; then REPLY="$c"; return; fi
+    done
+}
+
 # REPLY = longueur de la première ligne écrite par l'auteur : le suffixe
 # « (#123) » ajouté par GitHub lors d'un merge squash n'est pas compté.
 authored_length() {