[SPIP] +2.1.12

[velocampus/web/www.git] / www / ecrire / typographie / fr.php

diff --git a/www/ecrire/typographie/fr.php b/www/ecrire/typographie/fr.php
new file mode 100644 (file)
index 0000000..7101c2d
--- /dev/null
+++ b/www/ecrire/typographie/fr.php
@@ -0,0 +1,73 @@
+<?php
+
+/***************************************************************************\
+ *  SPIP, Systeme de publication pour l'internet                           *
+ *                                                                         *
+ *  Copyright (c) 2001-2011                                                *
+ *  Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James  *
+ *                                                                         *
+ *  Ce programme est un logiciel libre distribue sous licence GNU/GPL.     *
+ *  Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne.   *
+\***************************************************************************/
+
+if (!defined('_ECRIRE_INC_VERSION')) return;
+
+// Correction typographique francaise
+
+function typographie_fr_dist($letexte) {
+
+       static $trans;
+
+       // Nettoyer 160 = nbsp ; 187 = raquo ; 171 = laquo ; 176 = deg ;
+       // 147 = ldquo; 148 = rdquo; ' = zouli apostrophe
+       if (!$trans) {
+               $trans = array(
+                       "'" => "&#8217;",
+                       "&nbsp;" => "~",
+                       "&raquo;" => "&#187;",
+                       "&laquo;" => "&#171;",
+                       "&rdquo;" => "&#8221;",
+                       "&ldquo;" => "&#8220;",
+                       "&deg;" => "&#176;"
+               );
+               $chars = array(160 => '~', 187 => '&#187;', 171 => '&#171;', 148 => '&#8221;', 147 => '&#8220;', 176 => '&#176;');
+               $chars_trans = array_keys($chars);
+               $chars = array_values($chars);
+               $chars_trans = implode(' ',array_map('chr',$chars_trans));
+               $chars_trans = unicode2charset(charset2unicode($chars_trans, 'iso-8859-1', 'forcer'));
+               $chars_trans = explode(" ",$chars_trans);
+               foreach($chars as $k=>$r)
+                       $trans[$chars_trans[$k]] = $r;
+       }
+
+       $letexte = strtr($letexte, $trans);
+
+       $cherche1 = array(
+               /* 1 */         '/((?:^|[^\#0-9a-zA-Z\&])[\#0-9a-zA-Z]*)\;/S',
+               /* 2 */         '/&#187;| --?,|(?::| %)(?:\W|$)/S',
+               /* 3 */         '/([^[<(])([!?][!?\.]*)/iS',
+               /* 4 */         '/&#171;|(?:M(?:M?\.|mes?|r\.?)|[MnN]&#176;) /S'
+       );
+       $remplace1 = array(
+               /* 1 */         '\1~;',
+               /* 2 */         '~\0',
+               /* 3 */         '\1~\2',
+               /* 4 */         '\0~'
+       );
+       $letexte = preg_replace($cherche1, $remplace1, $letexte);
+       $letexte = preg_replace("/ *~+ */S", "~", $letexte);
+
+       $cherche2 = array(
+               '/([^-\n]|^)--([^-]|$)/S',
+               ',(http|https|ftp|mailto)~((://[^"\'\s\[\]\}\)<>]+)~([?]))?,S',
+               '/~/'
+       );
+       $remplace2 = array(
+               '\1&mdash;\2',
+               '\1\3\4',
+               '&nbsp;'
+       );
+       $letexte = preg_replace($cherche2, $remplace2, $letexte);
+
+       return $letexte;
+}