Sync: guardar en el historial el trabajo de las ultimas semanas que solo vivia en el disco

Este repo local tenia origin apuntando al Gitea local (localhost:3000), que Rafa
declaro archivado el 2026-06-28 (commit 962f33a, desarrollo movido a
gitea.feadulta.com). Ese memo nunca llego a este checkout: main quedo congelado
y todo el trabajo real de las ultimas 3+ semanas se fue commiteando solo en la
rama fix/multiidioma-portada-132 (ya fusionada a main sin perdida, commit
2504666), mientras que ademas se acumulaban 78 cambios sin commitear en el
working tree que nunca llegaron a NINGUN historial de git.

Este commit consolida esos cambios sueltos: TTS multi-voz (tts_*.py), scripts
de traduccion (translate_haiku.py, pretranslate_en_haiku.py, sync_translations_to_prod.py),
mu-plugins nuevos desplegados a prod (fea-beta-feedback, fea-cloudflare-realip,
fea-legacy-redirect, fea-gsc-verification, fea-support-campaign, fea-ui, etc.),
scripts de mantenimiento de enlaces/cartas, capturas E2E (tools/e2e/shot_*.cjs)
y documentacion de sesiones recientes.

Excluido deliberadamente (no es codigo versionable): tts-voices/ (3.3GB de
muestras de audio para clonacion de voz, anadido a .gitignore), logs/ (logs de
ejecucion, anadido a .gitignore), y 2 ficheros vacios accidentales + 2 copias
duplicadas sueltas en la raiz que ya existen en su ubicacion correcta.

wordpress/wp-content/mu-plugins/fea-homepage.php

@@ -790,9 +790,40 @@ function fea_title(string $title): string {
     $out = preg_replace_callback('/([\/:¿¡] *)(\p{Ll})/u', function ($m) {
         return $m[1] . mb_strtoupper($m[2], 'UTF-8');
     }, $out);
+    $out = fea_recapitalizar_nombres_propios($out);
     return $out;
 }
 
+/**
+ * Nombres propios (personas, lugares, "Dios"/"Papa") que deben mantener mayúscula
+ * inicial en los títulos de portada. Los títulos originales se guardan en MAYÚSCULAS
+ * y fea_title() los minusculiza salvo la primera letra, así que esta señal se pierde
+ * para cualquier nombre propio que no sea la primera palabra del título. Añadir aquí
+ * cuando una carta nueva mencione un nombre que salga mal capitalizado en portada.
+ * Ver issue rafa/feadulta#160.
+ */
+function fea_nombres_propios(): array {
+    return [
+        'Aguirre', 'Crepin', 'Monga', 'Papa', 'Lampedusa', 'Europa', 'España', 'Dios',
+    ];
+}
+
+function fea_recapitalizar_nombres_propios(string $texto): string {
+    static $regex = null, $map = null;
+    if ($regex === null) {
+        $nombres = fea_nombres_propios();
+        usort($nombres, fn($a, $b) => mb_strlen($b, 'UTF-8') - mb_strlen($a, 'UTF-8'));
+        $alt = implode('|', array_map(fn($n) => preg_quote($n, '/'), $nombres));
+        $regex = '/(?<![\p{L}])(' . $alt . ')(?![\p{L}])/iu';
+        $map = [];
+        foreach ($nombres as $n) $map[mb_strtolower($n, 'UTF-8')] = $n;
+    }
+    return preg_replace_callback($regex, function ($m) use ($map) {
+        $k = mb_strtolower($m[1], 'UTF-8');
+        return $map[$k] ?? $m[1];
+    }, $texto);
+}
+
 /** Lista de libros bíblicos (para avatar genérico de lecturas/eucaristías). #61 */
 function fea_libros_biblicos(): array {
     return [
@@ -818,6 +849,14 @@ function fea_evangelista_de_texto(string $txt): string {
     return '';
 }
 
+/** Devuelve 'antiguo-testamento' / 'nuevo-testamento' si el texto es esa firma, o ''. #66 */
+function fea_testamento_de_texto(string $txt): string {
+    $t = mb_strtolower(trim($txt), 'UTF-8');
+    if ($t === 'antiguo testamento') return 'antiguo-testamento';
+    if ($t === 'nuevo testamento')   return 'nuevo-testamento';
+    return '';
+}
+
 /** True si el texto empieza por un libro bíblico (cita) o es el nombre de un libro. #61 */
 function fea_es_libro_biblico(string $txt): bool {
     $txt = trim($txt);
@@ -850,6 +889,8 @@ function fea_avatar_url(object $post, int $size, int $author_id, string $author_
         }
     }
     if ($ev = fea_evangelista_de_texto($title)) return $base . $ev . '.svg';
+    // "Antiguo Testamento" / "Nuevo Testamento" llevan símbolo propio (no el genérico). #66
+    if ($t = fea_testamento_de_texto($title) ?: fea_testamento_de_texto($author_name)) return $base . $t . '.svg';
     if (fea_es_libro_biblico($title) || fea_es_libro_biblico($author_name)) return $base . 'biblia.svg';
     return get_avatar_url($author_id, ['size' => $size, 'default' => 'identicon']);
 }