www/plugins/auto/couteau_suisse/couteau_suisse/outils/titres_typo.php

   1 <?php
   2 if(defined('_SPIP20100')) include_spip('images_fonctions');
   3
   4 // Fonction de pipeline
   5 function titres_typo_pre_typo($texte) {
   6         if (strpos($texte, '{{{')===false) return $texte;
   7         // appeler titres_typo_rempl() une fois que certaines balises ont ete protegees
   8         return cs_echappe_balises('', 'titres_typo_rempl', $texte);
   9 }
  10
  11  // Fonction de remplacement
  12  // Transforme les intertitres d'un texte en image typo
  13 function titres_typo_rempl($texte){
  14         static $arguments;
  15         if(!isset($arguments)) {
  16                 $arguments = str_replace(array("'",","),array('','","'),_titres_typo_ARG);
  17                 include_spip('outils/couleurs');
  18                 list($couleurs, $html) = couleurs_constantes();
  19                 if(preg_match(',couleur=#?([\w\s]+),', $arguments, $regs)) {
  20                         $c = trim($regs[1]);
  21                         if(($i=array_search($c, $couleurs[0]))!==false || ($i=array_search($c, $couleurs[1]))!==false)
  22                                 $c = $html[$couleurs[1][$i]];
  23                         $arguments .= '","couleur='.$c;
  24                 }
  25         }
  26         return preg_replace_callback(",(\{\{\{\**)(.*?)\}\}\},is", create_function('$match', 'return $match[1].image_typo($match[2],"'.$arguments.'")."}}}";'), $texte);
  27 }
  28
  29 ?>