X-Git-Url: http://git.cyclocoop.org/?a=blobdiff_plain;f=www%2Fplugins%2Fauto%2Fcouteau_suisse%2Fcouteau_suisse%2Foutils%2Fsommaire.php;fp=www%2Fplugins%2Fauto%2Fcouteau_suisse%2Fcouteau_suisse%2Foutils%2Fsommaire.php;h=880fd0425244c259515f471d716383c909334a03;hb=80b4d3e85f78d402ed2e73f8f5d1bf4c19962eed;hp=0000000000000000000000000000000000000000;hpb=aaf970bf4cdaf76689ecc10609048e18d073820c;p=velocampus%2Fweb%2Fwww.git
diff --git a/www/plugins/auto/couteau_suisse/couteau_suisse/outils/sommaire.php b/www/plugins/auto/couteau_suisse/couteau_suisse/outils/sommaire.php
new file mode 100644
index 0000000..880fd04
--- /dev/null
+++ b/www/plugins/auto/couteau_suisse/couteau_suisse/outils/sommaire.php
@@ -0,0 +1,88 @@
+'._T('couteauprive:sommaire_titres')
+ .(defined('_sommaire_JOLIES_ANCRES')?'
'._T('couteauprive:sommaire_ancres'):'');
+}
+
+// pipeline 'nettoyer_raccourcis'
+function sommaire_nettoyer_raccourcis($texte) {
+ $texte = preg_replace(',\{\{\{\*+,', '{{{', $texte);
+ return str_replace(array(_sommaire_SANS_FOND, _CS_SANS_SOMMAIRE, _CS_AVEC_SOMMAIRE), '', $texte);
+}
+
+// renvoie le niveau d'intertitre en cours
+function sommaire_niveau_intertitres() {
+ // SPIP 3.0 remplace les intertitres avec TextWheels
+ // TODO : recuperer la valeur utilisee par TW au lieu de '3'
+ return (isset($GLOBALS['debut_intertitre']) && preg_match(',';
+ if(!isset($GLOBALS['fin_intertitre'])) $GLOBALS['fin_intertitre'] = '';
+ $cfg = $niv+1;
+ // compatibilite avec les Enluminures Typo v3 et initialisation des variables
+ if(function_exists('typoenluminee_pre_propre')) typoenluminee_pre_propre('');
+ // double emploi ici, mais le sommaire a besoin que les titres soient transformes
+ if($cfg>1 && isset($GLOBALS['debut_intertitre_'.$cfg]))
+ $racc[$niv][0] = $GLOBALS['debut_intertitre_'.$cfg];
+ // si pas d'enluminures, copie sur les
+ elseif(preg_match(',1 && isset($GLOBALS['fin_intertitre_'.$cfg]))
+ $racc[$niv][1] = $GLOBALS['fin_intertitre_'.$cfg];
+ elseif(preg_match(',/h(\d)>,', $GLOBALS['fin_intertitre'], $r))
+ $racc[$niv][1] = str_replace($r[0], '/h'.($r[1]+$niv).'>', $GLOBALS['fin_intertitre']);
+ else $racc[$niv][1] = $GLOBALS['fin_intertitre'];
+ }
+ return $racc[$niv][0].$matches[2].$racc[$niv][1];
+}
+
+// cette fonction n'est pas appelee dans les balises html : html|code|cadre|frame|script
+function sommaire_intertitres_rempl($texte) {
+ if (strpos($texte, '{{{*')===false) return $texte;
+ return preg_replace_callback(',\{\{\{(\*+)(.*?)\}\}\},ms', 'sommaire_intertitres_callback', $texte);
+}
+
+// fonction pipeline pre_typo
+function sommaire_intertitres($texte) {
+ if (strpos($texte, '{{{*')===false) return $texte;
+ // on remplace apres echappement
+ return cs_echappe_balises('', 'sommaire_intertitres_rempl', $texte);
+}
+?>
\ No newline at end of file