Browse Source

Plugin unifie de correction ortho-typographique

- regroupe les plugins 
  http://zone.spip.org/trac/spip-zone/browser/_plugins_/typo_exposants
  http://zone.spip.org/trac/spip-zone/browser/_plugins_/typo_guillemets
  http://zone.spip.org/trac/spip-zone/browser/_plugins_/typo_mois
  http://zone.spip.org/trac/spip-zone/browser/_plugins_/typo_caps
- inclue egalement une fonciton de correction automatique basee sur des regles perso indiquees par le webmestre, comme dans un traitement de texte (fonction tiree de la lame correction du CS)

- Credit des auteurs des differents plugins
- Formulaire de config permettant de desactiver les differentes corrections (actives par defaut)
svn/root/tags/v1.5.2
cedric@yterium.com 9 years ago
commit
ab0cbf7108
  1. 10
      .gitattributes
  2. 19
      css/typo_guillemets.css
  3. 98
      formulaires/configurer_orthotypo.html
  4. 38
      lang/orthotypo_fr.php
  5. 15
      lang/paquet-orthotypo_fr.php
  6. 477
      orthotypo_fonctions.php
  7. 25
      paquet.xml
  8. 7
      prive/squelettes/contenu/configurer_orthotypo.html
  9. BIN
      prive/themes/spip/images/orthotypo-32.png
  10. BIN
      prive/themes/spip/images/orthotypo.png

10
.gitattributes

@ -0,0 +1,10 @@
* text=auto !eol
css/typo_guillemets.css -text
formulaires/configurer_orthotypo.html -text
lang/orthotypo_fr.php -text
lang/paquet-orthotypo_fr.php -text
/orthotypo_fonctions.php -text
/paquet.xml -text
prive/squelettes/contenu/configurer_orthotypo.html -text
prive/themes/spip/images/orthotypo-32.png -text
prive/themes/spip/images/orthotypo.png -text

19
css/typo_guillemets.css

@ -0,0 +1,19 @@
/* Specifie des paires de guillemets sur plusieurs niveaux pour chaque langue */
/* Cf.: http://www.yoyodesign.org/doc/w3c/css2/generate.html#quotes-specify */
q { quotes: '"' '"' "'" "'" }
:lang(fr) q { quotes: "\00AB\A0" "\A0\00BB" "\201C" "\201D" "\2018" "\2019"; }
:lang(en) q { quotes: "\201C" "\201D" "\2018" "\2019" }
:lang(es) q { quotes: "\00AB" "\00BB" "\201C" "\201D"; }
:lang(it) q { quotes: "\00AB\A0" "\A0\00BB" "\201C" "\201D"; }
:lang(de) q { quotes: "\00BB" "\00AB" ">" "<" }
:lang(no) q { quotes: "\00AB\A0" "\A0\00BB" "<" ">" }
/* Insere des guillemets avant et apres le contenu d'un element Q */
q:before { content: open-quote; }
q:after { content: close-quote; }
/* Pour IE, qui n'y comprend rien, on se contente d'italique */
* html q { font-style: italic; }
*+html q { font-style: italic; }
/* end */

98
formulaires/configurer_orthotypo.html

@ -0,0 +1,98 @@
<div class="formulaire_spip formulaire_configurer formulaire_#FORM">
<h3 class="titrem"><:orthotypo:cfg_titre_parametrages:></h3>
[<p class="reponse_formulaire reponse_formulaire_ok">(#ENV*{message_ok})</p>]
[<p class="reponse_formulaire reponse_formulaire_erreur">(#ENV*{message_erreur})</p>]
<form method="post" action="#ENV{action}">
<div>
#ACTION_FORMULAIRE{#ENV{action}}
#SET{fl,orthotypo}
<ul>
#SET{name,guillemets}#SET{obli,''}#SET{defaut,'1'}#SET{erreurs,#ENV**{erreurs}|table_valeur{#GET{name}}}
<li class="editer pleine_largeur editer_[(#GET{name})][ (#GET{obli})][ (#GET{erreurs}|oui)erreur]">[
<span class='erreur_message'>(#GET{erreurs})</span>
]
#SET{val,0}
<input type="hidden" name="#GET{name}" value="#GET{val}" />
#SET{val,1}
<div class="choix">
<input type="checkbox" name="#GET{name}" class="checkbox" id="#GET{name}_#GET{val}" value="#GET{val}"[(#ENV{#GET{name},#GET{defaut}}|=={#GET{val}}|oui)checked="checked"] />
<label for="#GET{name}_#GET{val}">[(#GET{fl}|concat{':label_',#GET{name},'_',#GET{val}}|_T)]</label>
</div>
<p class="explication"><:orthotypo:explication_guillemets:></p>
</li>
#SET{name,exposants}#SET{obli,''}#SET{defaut,'1'}#SET{erreurs,#ENV**{erreurs}|table_valeur{#GET{name}}}
<li class="editer pleine_largeur editer_[(#GET{name})][ (#GET{obli})][ (#GET{erreurs}|oui)erreur]">[
<span class='erreur_message'>(#GET{erreurs})</span>
]
#SET{val,0}
<input type="hidden" name="#GET{name}" value="#GET{val}" />
#SET{val,1}
<div class="choix">
<input type="checkbox" name="#GET{name}" class="checkbox" id="#GET{name}_#GET{val}" value="#GET{val}"[(#ENV{#GET{name},#GET{defaut}}|=={#GET{val}}|oui)checked="checked"] />
<label for="#GET{name}_#GET{val}">[(#GET{fl}|concat{':label_',#GET{name},'_',#GET{val}}|_T)]</label>
</div>
<p class="explication"><:orthotypo:explication_exposants:></p>
</li>
#SET{name,mois}#SET{obli,''}#SET{defaut,'1'}#SET{erreurs,#ENV**{erreurs}|table_valeur{#GET{name}}}
<li class="editer pleine_largeur editer_[(#GET{name})][ (#GET{obli})][ (#GET{erreurs}|oui)erreur]">[
<span class='erreur_message'>(#GET{erreurs})</span>
]
#SET{val,0}
<input type="hidden" name="#GET{name}" value="#GET{val}" />
#SET{val,1}
<div class="choix">
<input type="checkbox" name="#GET{name}" class="checkbox" id="#GET{name}_#GET{val}" value="#GET{val}"[(#ENV{#GET{name},#GET{defaut}}|=={#GET{val}}|oui)checked="checked"] />
<label for="#GET{name}_#GET{val}">[(#GET{fl}|concat{':label_',#GET{name},'_',#GET{val}}|_T)]</label>
</div>
<p class="explication"><:orthotypo:explication_mois:></p>
</li>
#SET{name,caps}#SET{obli,''}#SET{defaut,'1'}#SET{erreurs,#ENV**{erreurs}|table_valeur{#GET{name}}}
<li class="editer pleine_largeur editer_[(#GET{name})][ (#GET{obli})][ (#GET{erreurs}|oui)erreur]">[
<span class='erreur_message'>(#GET{erreurs})</span>
]
#SET{val,0}
<input type="hidden" name="#GET{name}" value="#GET{val}" />
#SET{val,1}
<div class="choix">
<input type="checkbox" name="#GET{name}" class="checkbox" id="#GET{name}_#GET{val}" value="#GET{val}"[(#ENV{#GET{name},#GET{defaut}}|=={#GET{val}}|oui)checked="checked"] />
<label for="#GET{name}_#GET{val}">[(#GET{fl}|concat{':label_',#GET{name},'_',#GET{val}}|_T)]</label>
</div>
<p class="explication"><:orthotypo:explication_caps:></p>
</li>
<li class="fieldset">
<fieldset>
<legend><:orthotypo:legend_corrections:></legend>
<ul>
#SET{name,corrections}#SET{obli,''}#SET{defaut,'1'}#SET{erreurs,#ENV**{erreurs}|table_valeur{#GET{name}}}
<li class="editer pleine_largeur editer_[(#GET{name})][ (#GET{obli})][ (#GET{erreurs}|oui)erreur]">[
<span class='erreur_message'>(#GET{erreurs})</span>
]
#SET{val,0}
<input type="hidden" name="#GET{name}" value="#GET{val}" />
#SET{val,1}
<div class="choix">
<input type="checkbox" name="#GET{name}" class="checkbox" id="#GET{name}_#GET{val}" value="#GET{val}"[(#ENV{#GET{name},#GET{defaut}}|=={#GET{val}}|oui)checked="checked"] />
<label for="#GET{name}_#GET{val}">[(#GET{fl}|concat{':label_',#GET{name},'_',#GET{val}}|_T)]</label>
</div>
<p class="explication"><:orthotypo:explication_corrections:></p>
</li>
#SET{name,corrections_regles}#SET{obli,''}#SET{defaut,''}#SET{erreurs,#ENV**{erreurs}|table_valeur{#GET{name}}}
<li class="editer pleine_largeur editer_[(#GET{name})][ (#GET{obli})][ (#GET{erreurs}|oui)erreur]">
<label for="#GET{name}">[(#GET{fl}|concat{':label_',#GET{name}}|_T)]</label>[
<span class='erreur_message'>(#GET{erreurs})</span>
]<textarea name="#GET{name}" class="textarea" rows="10">
#ENV*{#GET{name},#GET{defaut}}</textarea>
<p class="explication"><:orthotypo:explication_corrections_regles:></p>
</li>
</ul>
</fieldset>
</li>
</ul>
<input type="hidden" name="_meta_casier" value="orthotypo" />
<p class="boutons"><span class="image_loading">&nbsp;</span><input type="submit" class="submit" value="<:bouton_enregistrer:>" /></p>
</div>
</form>
</div>

38
lang/orthotypo_fr.php

@ -0,0 +1,38 @@
<?php
// This is a SPIP language file -- Ceci est un fichier langue de SPIP
if (!defined('_ECRIRE_INC_VERSION')) return;
$GLOBALS[$GLOBALS['idx_lang']] = array(
// O
'orthotypo_titre' => 'Ortho-Typographie',
// C
'cfg_exemple' => 'Exemple',
'cfg_exemple_explication' => 'Explication de cet exemple',
'cfg_titre_parametrages' => 'Paramétrages',
'label_guillemets_1' => 'Correction automatique des guillemets, selon la langue',
'explication_guillemets' => 'Remplacer automatiquement les guillemets droits (") par les guillemets typographiques (&#171;&#187;&#8220;&#8221;&#8222;) de la langue de composition et guillemette correctement la balise <tt>&lt;q></tt>. Les liens automatiques <code>[->1]</code> vers des articles dont le titre contient des &#171;guillemets fran&#231;ais&#187; passent en guillemets &#8220;de second niveau&#8221;. Le remplacement, transparent pour l\'utilisateur, ne modifie pas le texte mais seulement l\'affichage final.',
'label_exposants_1' => 'Am&eacute;lioration typographique des abr&eacute;viations avec exposants',
'explication_exposants' => 'Am&eacute;liorer le rendu typographique d\'abr&eacute;viations fr&eacute;quentes par la mise en exposant de leurs &eacute;l&eacute;ments et/ou leur correction. Les abr&eacute;viations obtenues sont conformes &agrave; celles de l\'Imprimerie nationale telles qu\'indiqu&eacute;es dans le {Lexique des r&egrave;gles typographiques en usage &agrave; l\'Imprimerie nationale} (article &laquo;&nbsp;Abr&eacute;viations&nbsp;&raquo;, presses de l\'Imprimerie nationale, Paris, 2002).',
'label_mois_1' => 'Eviter de couper les dates en fin de ligne',
'explication_mois' => 'Corriger les dates au format "10 Mars" en remplaçant l\'espace entre le jour et le mois par un espace ins&#233;cable.',
'label_caps_1' => 'Styler les mots en lettres capitales',
'explication_caps' => 'Encadrer les mots écrits en lettres capitales dans une balise <code>&lt;span class="caps"></code>. Par exemple, <code>ONU</code> devient <code>&lt;span class="caps">ONU&lt;/span></code>. De ce fait, les mots en lettres capitales peuvent être stylés en css',
'legend_corrections' => 'Corrections automatiques',
'label_corrections_1' => 'Activer les corrections automatiques',
'explication_corrections' => 'Corriger automatiquement le texte selon les règles ci-dessous.',
'label_corrections_regles' => 'Règles de correction',
'explication_corrections_regles' => 'Indiquez une règle par ligne sous la forme <br/><code>mot = remplacement</code><br/> pour un simple remplacement, ou <br/><code>/m[ao]t/ = m$1t</code><br/> pour un remplacement par expression régulière',
// T
'titre_page_configurer_orthotypo' => 'Typographie et remplacements',
);
?>

15
lang/paquet-orthotypo_fr.php

@ -0,0 +1,15 @@
<?php
// This is a SPIP language file -- Ceci est un fichier langue de SPIP
if (!defined('_ECRIRE_INC_VERSION')) return;
$GLOBALS[$GLOBALS['idx_lang']] = array(
// O
'orthotypo_description' => 'Typographe des guillemets, exposants, mois, majuscules.
Remplacement automatique configurable.',
'orthotypo_nom' => 'Ortho-Typographie',
'orthotypo_slogan' => 'Typographie améliorée et remplacements automatiques.',
);
?>

477
orthotypo_fonctions.php

@ -0,0 +1,477 @@
<?php
/**
* Plugin Ortho-Typographie
* (c) 2013 cedric
* Licence GNU/GPL
*/
if (!defined('_ECRIRE_INC_VERSION')) return;
include_spip("inc/config");
/**
* Ajouter la CSS des guillemets si active
* @param $flux
* @return string
*/
function orthotypo_insert_head_css($flux) {
$config = lire_config("orthotypo/");
if (!isset($config['guillemets']) OR $config['guillemets'])
$flux .= '<link rel="stylesheet" type="text/css" href="'.find_in_path('css/typo_guillemets.css').'" media="all" />'."\n";
return $flux;
}
/**
* Post-typo : corrections selon les fonctions activees
* @param $texte
* @return mixed|string
*/
function orthotypo_post_typo($texte){
static $config;
if (is_null($config))
$config = lire_config("orthotypo/");
if (!isset($config['guillemets']) OR $config['guillemets'])
$texte = orthotypo_guillemets_post_typo($texte);
// mois avant les exposants car on y match des "1er mars"
if (!isset($config['mois']) OR $config['mois'])
$texte = orthotypo_mois_post_typo($texte);
// a optimiser : represente +60% du temps de calcul total des 4 fonctions
if (!isset($config['exposants']) OR $config['exposants'])
$texte = orthotypo_exposants_post_typo($texte);
if (!isset($config['caps']) OR $config['caps'])
$texte = orthotypo_caps_post_typo($texte);
return $texte;
}
// Fonctions de traitement sur #TEXTE
function orthotypo_pre_propre($texte) {
static $config;
if (is_null($config))
$config = lire_config("orthotypo/");
if (isset($config['corrections'])
AND $config['corrections']
AND isset($config['corrections_regles'])
AND $config['corrections_regles']
){
$texte = orthotypo_corrections_pre_propre($texte);
}
return $texte;
}
/**
* evite les transformations typo dans les balises $balises
* par exemple pour <html>, <cadre>, <code>, <frame>, <script>, <acronym> et <cite>, $balises = 'html|code|cadre|frame|script|acronym|cite'
*
* @param $balises
* balises concernees par l'echappement
* si $balises = '' alors la protection par defaut est : html|code|cadre|frame|script
* si $balises = false alors le texte est utilise tel quel
* @param $fonction
* la fonction prevue pour transformer $texte
* si $fonction = false, alors le texte est retourne simplement protege
* @param $texte
* $texte a filtree
* @param null $arg
* @return string
*/
function orthotypo_echappe_balises($balises, $fonction, $texte, $arg=NULL){
if(!strlen($texte)) return '';
if (($fonction!==false) && !function_exists($fonction)) {
spip_log("orthotypo_echappe_balises() : $fonction() non definie","orthotypo"._LOG_ERREUR);
return $texte;
}
// protection du texte
if($balises!==false) {
if(!strlen($balises)) $balises = _PROTEGE_BLOCS;//'html|code|cadre|frame|script';
else $balises = ',<('.$balises.')(\s[^>]*)?>(.*)</\1>,UimsS';
if (!function_exists('echappe_html'))
include_spip('inc/texte_mini');
$texte = echappe_html($texte, 'ORTHOTYPO', true, $balises);
}
// retour du texte simplement protege
if ($fonction===false) return $texte;
// transformation par $fonction
$texte = (is_null($arg)?$fonction($texte):$fonction($texte, $arg));
// deprotection en abime, notamment des modeles...
return echappe_retour($texte, 'ORTHOTYPO');
}
/* *********************************************************************************************************************
* Guillemets
* merge de
* - http://zone.spip.org/trac/spip-zone/browser/_plugins_/typo_guillemets/typo_guillemets_fonctions.php?rev=54676
* - http://zone.spip.org/trac/spip-zone/browser/_plugins_/couteau_suisse/outils/guillemets.php?rev=64721
*/
/*
Fichier de formatage typographique des guillemets, par Vincent Ramos
<www-lansargues AD kailaasa POINT net>, sous licence GNU/GPL.
Ne sont touchees que les paires de guillemets.
Le formatage des guillemets est tire de
<http://en.wikipedia.org/wiki/Quotation_mark%2C_non-English_usage>
Certains des usages indiques ne correspondent pas a ceux que la
barre d'insertion de caracteres speciaux de SPIP propose.
Les variables suivies du commentaire LRTEUIN sont confirmees par le
_Lexique des regles typographiques en usage a l'Imprimerie nationale_.
Les variables entierement commentees sont celles pour lesquelles
aucune information n'a ete trouvee. Par defaut, les guillements sont alors
de la forme &ldquo;mot&rdquo;, sauf si la barre d'insertion de SPIP proposait
deja une autre forme.
Version optimisee par Patrice Vanneufville (2007) cf http://www.spip-contrib.net/?article1592
*/
// voir aussi : http://trac.rezo.net/trac/spip/changeset/9429
// definitions des chaines de remplacement
define('_GUILLEMETS_defaut', '&ldquo;$1&rdquo;');
define('_GUILLEMETS_fr', '&laquo;&nbsp;$1&nbsp;&raquo;'); //LRTEUIN
//define('_GUILLEMETS_ar', '');
define('_GUILLEMETS_bg', '&bdquo;$1&ldquo;');
//define('_GUILLEMETS_br', '');
//define('_GUILLEMETS_bs', '');
define('_GUILLEMETS_ca', '&laquo;$1&raquo;');
define('_GUILLEMETS_cpf', '&laquo;&nbsp;$1&nbsp;&raquo;');
//define('_GUILLEMETS_cpf_hat', '');
define('_GUILLEMETS_cs', '&bdquo;$1&ldquo;');
define('_GUILLEMETS_da', '&raquo;$1&laquo;');
define('_GUILLEMETS_de', '&bdquo;$1&ldquo;'); //ou "&raquo;$1&laquo;" // LRTEUIN
define('_GUILLEMETS_en', '&ldquo;$1&rdquo;'); //LRTEUIN
define('_GUILLEMETS_eo', '&laquo;$1&raquo;');
define('_GUILLEMETS_es', '&laquo;$1&raquo;');
//define('_GUILLEMETS_eu', '');
//define('_GUILLEMETS_fa', '');
//define('_GUILLEMETS_fon', '');
//define('_GUILLEMETS_gl', '');
define('_GUILLEMETS_hu', '&bdquo;$1&rdquo;');
define('_GUILLEMETS_it', '&laquo;$1&raquo;');
define('_GUILLEMETS_it_fem', '&laquo;$1&raquo;');
define('_GUILLEMETS_ja', '&#12300;$1&#12301;');
//define('_GUILLEMETS_lb', '');
define('_GUILLEMETS_nl', '&bdquo;$1&rdquo;');
//define('_GUILLEMETS_oc_auv', '');
//define('_GUILLEMETS_oc_gsc', '');
//define('_GUILLEMETS_oc_lms', '');
//define('_GUILLEMETS_oc_lnc', '');
//define('_GUILLEMETS_oc_ni', '');
//define('_GUILLEMETS_oc_ni_la', '');
//define('_GUILLEMETS_oc_prv', '');
//define('_GUILLEMETS_oc_va', '');
define('_GUILLEMETS_pl', '&bdquo;$1&rdquo;');
define('_GUILLEMETS_pt', '&laquo;$1&raquo;');
define('_GUILLEMETS_pt_br', '&laquo;$1&raquo;');
define('_GUILLEMETS_ro', '&bdquo;$1&rdquo;');
define('_GUILLEMETS_ru', '&laquo;$1&raquo;');
define('_GUILLEMETS_tr', '&laquo;$1&raquo;');
//define('_GUILLEMETS_vi', '');
define('_GUILLEMETS_zh', '&#12300;$1&#12301;'); // ou "&ldquo;$1&rdquo;" en chinois simplifie
function orthotypo_guillemets_echappe_balises_callback($matches) {
if (strpos($matches[1],'class="base64')===false)
$matches[1] = code_echappement($matches[1], 'GUILL',true,'span');
return str_replace('"',"'",$matches[1]);
}
function orthotypo_guillemets_rempl($texte){
// on s'en va si pas de guillemets...
if (strpos($texte, '"')===false) return $texte;
// prudence : on protege TOUTES les balises contenant des doubles guillemets droits
if (strpos($texte, '<')!==false){
$texte = preg_replace_callback('/(<[^>]+"[^>]*>)/Ums', 'orthotypo_guillemets_echappe_balises_callback', $texte);
}
if (strpos($texte, '"')!==false){
// choix de la langue, de la constante et de la chaine de remplacement
$lang = isset($GLOBALS['lang_objet'])?$GLOBALS['lang_objet']:$GLOBALS['spip_lang'];
$constante = '_GUILLEMETS_'.$lang;
$guilles = defined($constante)?constant($constante):_GUILLEMETS_defaut;
// Remplacement des autres paires de guillemets (et suppression des espaces apres/avant)
// Et retour des balises contenant des doubles guillemets droits
$texte = preg_replace('/"\s*(.*?)\s*"/', $guilles, $texte);
}
$texte = echappe_retour($texte, 'GUILL');
return $texte;
}
function orthotypo_guillemets_post_typo($texte){
if (strpos($texte, '"')!==false)
$texte = orthotypo_echappe_balises('html|code|cadre|frame|script|acronym|cite', 'orthotypo_guillemets_rempl', $texte);
return $texte;
}
/* *********************************************************************************************************************
* Exposants
* Merge de
* - http://zone.spip.org/trac/spip-zone/browser/_plugins_/typo_exposants/typo_exposants_fonctions.php?rev=61523
* - http://zone.spip.org/trac/spip-zone/browser/_plugins_/couteau_suisse/outils/typo_exposants.php?rev=63425
*/
// Filtre typographique exposants pour langue francaise
// serieuse refonte 2006 : Patrice Vanneufville
// Toutes les infos sur : http://www.spip-contrib.net/?article1564
// TODO : raccourci pour les exposants et indices (Pouce^2 ou Pouce^2^, H_2O ou H_2_O ou H,,2,,O
// exemple : http://zone.spip.org/trac/spip-zone/wiki/WikiFormatting
include_spip('inc/charsets');
if (!defined('_TYPO_class')) define('_TYPO_class', '<sup class="typo_exposants">');
if (!defined('_TYPO_sup')) define('_TYPO_sup', _TYPO_class.'\\1</sup>');
if (!defined('_TYPO_sup2')) define('_TYPO_sup2', '\\1'._TYPO_class.'\\2</sup>');
// cette fonction ne fonctionne que pour l'anglais
// elle n'est pas appelee dans les balises html : html|code|cadre|frame|script|acronym|cite
function orthotypo_exposants_en($texte){
static $typo;
if(!$typo) {
$typo = array( array(
',(?<=1)(st)\b,',
',(?<=2)(nd)\b,',
',(?<=3)(rd)\b,',
',(?<=\d)(th)\b,',
), array(
_TYPO_sup, _TYPO_sup, _TYPO_sup, _TYPO_sup,
));
}
return preg_replace($typo[0], $typo[1], $texte);
}
// cette fonction ne fonctionne que pour le francais
// elle n'est pas appelee dans les balises html : html|code|cadre|frame|script|acronym|cite
function orthotypo_exposants_fr($texte){
static $typo = null;
static $egrave; static $eaigu1; static $eaigu2; static $accents;
if (is_null($typo)) {
// en principe, pas besoin de : caractere_utf_8(232)
$egrave = unicode2charset('&#232;').'|&#232;|&egrave;';
$eaigu1 = unicode2charset('&#233;').'|&#233;|&eacute;';
$eaigu2 = unicode2charset('&#201;').'|&#201;|&Eacute;';
$accents = unicode2charset('&#224;&#225;&#226;&#228;&#229;&#230;&#232;&#233;&#234;&#235;&#236;&#237;&#238;&#239;&#242;&#243;&#244;&#246;&#249;&#250;&#251;&#252;');
$typo = array(
// Mlle(s), Mme(s) et erreurs Melle(s)
// Mme(s) et Mgr
'/\b(M)(?:(gr)|(mes?)|(?:e?(lles?)))\b/u' => _TYPO_sup2,
// Dr, Pr suivis d'un espace d'un point ou d'un tiret
'/(?<=\b[DP])(r)(?=[\s\.-])/u' => _TYPO_sup,
// m≤
'/\bm≤\b/' => 'm<sup class="typo_exposants">2</sup>',
// m2, m3
'/\bm([23])\b/u' => 'm'._TYPO_sup,
// millions, milliards
'/\b([Mm])([nd]s?)\b/u' => _TYPO_sup2,
// Vve
'/\bV(ve)\b/' => 'V'._TYPO_sup,
// Cie(s)
'/\bC(ies?)\b/u' => 'C'._TYPO_sup,
// Societes(s), Etablissements
"/\bS(t(?:$eaigu1)s?)(?=\W)/u" => 'S'._TYPO_sup,
"/(?<=\W)(?:E|$eaigu2)ts\b/u" => '&#201;'._TYPO_class.'ts</sup>',
// 1er(s), Erreurs 1ier(s), 1ier(s)
'/(?<=\b[1I])i?(ers?)\b/u' => _TYPO_sup,
"/(?<=\b[1I])i?(?:e|$egrave)(res?)\b/u" => _TYPO_sup, // Erreurs 1(i)ere(s) + accents
'/(?<=\b1)(r?es?)\b/u' => _TYPO_sup, // 1e(s), 1re(s)
'/(?<=\b2)(nde?s?)\b/u' => _TYPO_sup, // 2nd(e)(s)
// Erreurs (i)(e)me(s) + accents
"/(\b[0-9IVX]+)i?(?:e|$egrave)?me(s?)\b/u" => '$1'._TYPO_class.'e$2</sup>',
// 2e(s), IIIe(s)... (les 1(e?r?s?) ont deja ete remplaces)
'/\b([0-9IVX]+)(es?)\b/u' => _TYPO_sup2,
// recto, verso, primo, secondo, etc.
"/(?<![;$accents])\b(\d+|r|v)o\b/u" => '$1'._TYPO_class.'o</sup>',
// Maitre (suivi d'un espace et d'une majuscule)
'/\bM(e)(?= [A-Z])/u' => 'M'._TYPO_sup,
);
$typo = array(array_keys($typo),array_values($typo));
}
return preg_replace($typo[0], $typo[1], $texte);
}
function orthotypo_exposants_echappe_balises_callback($matches) {
return code_echappement($matches[1], 'EXPO',true,'span');
}
function orthotypo_exposants_post_typo($texte){
if (!$lang = $GLOBALS['lang_objet']) $lang = $GLOBALS['spip_lang'];
if(function_exists($fonction = 'orthotypo_exposants_'.lang_typo($lang))){
// prudence : on protege les balises <a> et <img>
if (strpos($texte, '<')!==false)
$texte = preg_replace_callback('/(<(a|img)\s[^>]+>)/Uims', 'orthotypo_exposants_echappe_balises_callback', $texte);
$texte = orthotypo_echappe_balises('html|code|cadre|frame|script|acronym|cite', $fonction, $texte);
return echappe_retour($texte, 'EXPO');
}
return $texte;
}
/* *********************************************************************************************************************
* Typo des Mois : espace insecable entre le numero du jour et le mois : 12 Mars => 12&nbsp;Mars
* Tire de
* - http://zone.spip.org/trac/spip-zone/browser/_plugins_/typo_mois/typo_mois_fonctions.php?rev=43239
* avec ameliorations :
* - prise en compte des echappements de balise
* - prise en compte de la langue
*/
function orthotypo_mois_rempl($texte){
static $typo = array();
$lang = $GLOBALS['spip_lang'];
if(!isset($typo[$lang])) {
$typo[$lang] = array();
for ($m=1; $m<=12; $m++)
$typo[$lang][] = _T('date_mois_'.$m);
$pre1 = _T('date_jnum1');
$pre2 = _T('date_jnum2');
$pre3 = _T('date_jnum3');
$typo[$lang] = ",([1-3]?[0-9]|$pre1|$pre2|$pre3)\s+(".join('|', $typo[$lang]).'),UimsS';
include_spip('inc/charsets');
$typo[$lang] = unicode2charset(html2unicode($typo[$lang]));
}
return preg_replace($typo[$lang], '\1&nbsp;\2', $texte);
}
function orthotypo_mois_post_typo($texte){
if (strpbrk($texte,"123456789")!==false){
$texte = orthotypo_echappe_balises('html|code|cadre|frame|script|acronym|cite', "orthotypo_mois_rempl", $texte);
}
return $texte;
}
/* *********************************************************************************************************************
* Typo des Caps : espace insecable entre le numero du jour et le mois : 12 Mars => 12&nbsp;Mars
* Tire de
* - http://zone.spip.org/trac/spip-zone/browser/_plugins_/typo_caps/typo_caps_fonctions.php?rev=43238
* avec ameliorations :
* - prise en compte des echappements de balise
*/
/* code tire de typogrify
* http://jeffcroft.com/sidenotes/2007/may/29/typogrify-easily-produce-web-typography-doesnt-suc/
*/
/**
* This is necessary to keep dotted cap strings to pick up extra spaces
* used in preg_replace_callback later on
*/
function orthotypo_caps_replace_callback($matchobj)
{
if ( !empty($matchobj[2]) )
{
return sprintf('<span class="caps">%s</span>', $matchobj[2]);
}
else
{
$mthree = $matchobj[3];
if ( ($mthree{strlen($mthree)-1}) == " " )
{
$caps = substr($mthree, 0, -1);
$tail = ' ';
}
else
{
$caps = $mthree;
$tail = '';
}
return sprintf('<span class="caps">%s</span>%s', $caps, $tail);
}
}
function orthotypo_caps_rempl($texte){
static $cap_finder;
if (is_null($cap_finder)){
$cap_finder = "/(
(\b[A-Z\d]* # Group 2: Any amount of caps and digits
[A-Z]\d*[A-Z] # A cap string much at least include two caps (but they can have digits between them)
[A-Z\d]*\b) # Any amount of caps and digits
| (\b[A-Z]+\.\s? # OR: Group 3: Some caps, followed by a '.' and an optional space
(?:[A-Z]+\.\s?)+) # Followed by the same thing at least once more
(?:\s|\b|$))/xS";
}
return preg_replace_callback($cap_finder, 'orthotypo_caps_replace_callback', $texte);
}
function orthotypo_caps_post_typo($texte){
$texte = orthotypo_echappe_balises('html|code|cadre|frame|script|acronym|cite', "orthotypo_caps_rempl", $texte);
return $texte;
}
/* *********************************************************************************************************************
* Outil Correction auto tiree de la lame insertion du CS
*/
// cette fonction appelee automatiquement a chaque affichage de la page privee du Couteau Suisse renvoie un tableau
function orthotypo_corrections_regles() {
$str = array();
$preg = array();
$regles = trim(lire_config("orthotypo/corrections_regles"));
if (strlen($regles)){
$liste = preg_split("/[\r\n]+/", $regles);
foreach ($liste as $l) {
list($a, $b) = explode("=", $l, 2);
$a = trim($a); $b = trim($b);
if (!strlen($a) || preg_match('/^(#|\/\/)/', $a)) {
// remarques ou vide
} elseif (preg_match('/^\((.+)\)$/', $a, $reg)) {
// les mots seuls
$preg[0][] = '/\b'.$reg[1].'\b/'; $preg[1][] = $b;
} elseif (preg_match('/^(\/.+\/[imsxuADSUX]*)$/', $a)) {
// expressions regulieres
$preg[0][] = $a; $preg[1][] = $b;
} elseif (strlen($a)) {
// simples remplacements
$str[0][] = $a; $str[1][] = $b;
}
}
}
return array($str, $preg);
}
// cette fonction n'est pas appelee dans les balises html : html|code|cadre|frame|script
function orthotypo_corrections_rempl($texte) {
static $str,$preg;
if (is_null($str)){
list($str,$preg) = orthotypo_corrections_regles();
}
// prudence : on protege les urls dans les raccourcis de liens SPIP
if (strpos($texte, '[')!==false)
$texte = preg_replace_callback(',(\[[^][]*->>?)([^]]*)(?=\]),msS', 'orthotypo_corrections_echappe_liens', $texte);
if (count($str))
$texte = str_replace($str[0], $str[1], $texte);
if (count($preg))
$texte = preg_replace($preg[0], $preg[1], $texte);
return echappe_retour($texte, 'CORRECTIONS');
}
function orthotypo_corrections_echappe_liens($m) {
return $m[1].code_echappement($m[2], 'CORRECTIONS');
}
// Fonctions de traitement sur #TEXTE
function orthotypo_corrections_pre_propre($texte) {
return orthotypo_echappe_balises('', 'orthotypo_corrections_rempl', $texte);
}
?>

25
paquet.xml

@ -0,0 +1,25 @@
<paquet
prefix="orthotypo"
categorie="edition"
version="1.1.0"
etat="test"
compatibilite="[3.0.0;3.0.*]"
logo="prive/themes/spip/images/orthotypo-32.png"
documentation=""
>
<nom>Ortho-Typographie</nom>
<auteur lien="http://contrib.spip.net/auteur7639">Vincent Ramos</auteur>
<auteur lien="http://contrib.spip.net/auteur5053">Raphaël Meyssan</auteur>
<auteur lien="http://contrib.spip.net/auteur4">Fil</auteur>
<auteur lien="http://contrib.spip.net/auteur5714">Patrice Vanneufville</auteur>
<auteur lien="http://contrib.spip.net/auteur6809">tetue</auteur>
<licence>GNU/GPL</licence>
<pipeline nom="insert_head_css" inclure="orthotypo_fonctions.php" />
<pipeline nom="post_typo" inclure="orthotypo_fonctions.php" />
<pipeline nom="pre_propre" inclure="orthotypo_fonctions.php" />
</paquet>

7
prive/squelettes/contenu/configurer_orthotypo.html

@ -0,0 +1,7 @@
[(#AUTORISER{configurer,_orthotypo}|sinon_interdire_acces)]
<h1 class="grostitre"><:orthotypo:titre_page_configurer_orthotypo:></h1>
<div class="ajax">
#FORMULAIRE_CONFIGURER_ORTHOTYPO
</div>

BIN
prive/themes/spip/images/orthotypo-32.png

After

Width: 32  |  Height: 32  |  Size: 52 KiB

BIN
prive/themes/spip/images/orthotypo.png

After

Width: 53  |  Height: 53  |  Size: 3.4 KiB

Loading…
Cancel
Save