proc clock2date {clock} {
    return [date_francaise [clock format $clock -format "%Y-%m-%d"]]
}

proc date_francaise {clock} {
    set r {}

    regsub {^(....)-(..)-(..)$} $clock  {\2/\3/\1} clock2
    foreach {jour date mois annee} [clock format [clock scan $clock2] -format "%w %e %m %Y"] {}
    append r [lindex [list dimanche lundi mardi mercredi jeudi vendredi samedi dimanche] $jour]
    append r " $date "
    regsub -all {^0*} $mois {} mois
    append r [lindex [list {} janvier février mars avril mai juin juillet août septembre octobre novembre décembre] $mois]
    append r " $annee"

    return $r
}

proc date_francaise_kely {clock} {
    set r {}

    regsub {^(....)-(..)-(..)$} $clock  {\2/\3/\1} clock2
    foreach {jour date mois annee} [clock format [clock scan $clock2] -format "%w %e %m %Y"] {}
    append r [lindex [list dimanche lundi mardi mercredi jeudi vendredi samedi dimanche] $jour]
    append r " $date"
    return $r
}