File "en.php"
Full path: /home/argothem/www/v4_old/plugins-dist/textwheel/typographie/en.php
File size: 1.81 KB
MIME-type: text/x-php
Charset: utf-8
<?php
/***************************************************************************\
* SPIP, Système de publication pour l'internet *
* *
* Copyright © avec tendresse depuis 2001 *
* Arnaud Martin, Antoine Pitrou, Philippe Rivière, Emmanuel Saint-James *
* *
* Ce programme est un logiciel libre distribué sous licence GNU/GPL. *
* Pour plus de détails voir le fichier COPYING.txt ou l'aide en ligne. *
\***************************************************************************/
if (!defined('_ECRIRE_INC_VERSION')) {
return;
}
// Correction typographique anglaise
function typographie_en($t) {
static $trans;
if (!isset($trans)) {
$trans = [
' ' => '~',
"'" => '’'
];
$charset = $GLOBALS['meta']['charset'] ?? '';
switch ($charset) {
case 'utf-8':
$trans["\xc2\xa0"] = '~';
break;
default:
$trans["\xa0"] = '~';
break;
}
}
# cette chaine ne peut pas exister,
# cf. TYPO_PROTECTEUR dans inc/texte
$pro = "-\x2-";
$t = str_replace(array_keys($trans), array_values($trans), $t);
/* 2 */
$t = preg_replace('/ --?,|(?: %)(?:\W|$)/S', '~$0', $t);
/* 4 */
$t = preg_replace('/Mr\.? /S', '$0~', $t);
if (strpos($t, '\~') !== false) {
$t = str_replace('\~', "\x1\x14", $t);
}
if (strpos($t, '~') !== false) {
$t = preg_replace('/ *~+ */S', '~', $t);
}
$t = preg_replace('/--([^-]|$)/S', "$pro—$1", $t, -1, $c);
if ($c) {
$t = preg_replace("/([-\n])$pro—/S", '$1--', $t);
$t = str_replace($pro, '', $t);
}
$t = str_replace('~', ' ', $t);
if (strpos($t, "\x1") !== false) {
$t = str_replace("\x1\x14", '~', $t);
}
return $t;
}