[SPIP] +2.1.12

[velocampus/web/www.git] / www / plugins / auto / couteau_suisse / couteau_suisse / outils / chatons.php

diff --git a/www/plugins/auto/couteau_suisse/couteau_suisse/outils/chatons.php b/www/plugins/auto/couteau_suisse/couteau_suisse/outils/chatons.php
new file mode 100644 (file)
index 0000000..dae2dc0
--- /dev/null
+++ b/www/plugins/auto/couteau_suisse/couteau_suisse/outils/chatons.php
@@ -0,0 +1,101 @@
+<?php
+
+// Outils CHATONS - 30 janvier 2007
+// Serieuse refonte et integration au Couteau Suisse : Patrice Vanneufville
+// Toutes les infos sur : http://www.spip-contrib.net/?article2166
+
+// cette fonction n'est pas appelee dans les balises html : html|code|cadre|frame|script|acronym|cite
+function cs_rempl_chatons($texte) {
+       if (strpos($texte, ':')===false) return $texte;
+       $chatons = cs_lire_data_outil('chatons');
+       return count($chatons[2])?preg_replace($chatons[2], $chatons[1], $texte):$texte;
+//     return str_replace($chatons[0], $chatons[1], $texte);
+}
+
+function chatons_pre_typo($texte) {
+       if (strpos($texte, ':')===false) return $texte;
+       return cs_echappe_balises('html|code|cadre|frame|script|acronym|cite', 'cs_rempl_chatons', $texte);
+}
+
+// cette fonction appelee automatiquement a chaque affichage de la page privee du Couteau Suisse renvoie un tableau
+function chatons_installe_dist() {
+       $chatons = array(array(), array(), array(), array(), array());
+       $path = find_in_path('img/chatons');
+       $dossier = opendir($path);
+       $bt = defined('_DIR_PLUGIN_PORTE_PLUME');
+       if($path) while ($image = readdir($dossier)) {
+               if (preg_match(',^([a-z][a-z0-9_-]*)\.(png|gif|jpg),', $image, $reg)) { 
+                       $chatons[0][] = ':'.$reg[1];
+                       $chatons[2][] = ',:'.preg_quote($reg[1],',').'\\b,';
+                       list(,,,$size) = @getimagesize("$path/$reg[1].$reg[2]");
+                       $chatons[1][] = "<img class=\"no_image_filtrer\" alt=\"$reg[1]\" title=\"$reg[1]\" src=\"".url_absolue($path)."/$reg[1].$reg[2]\" $size/>";
+                       if($bt) $chatons[4]['chaton_'.$reg[1]] = $reg[1].'.'.$reg[2];
+               }
+       }
+       return array($chatons);
+}
+
+// liste des nouveaux raccourcis ajoutes par l'outil
+// si cette fonction n'existe pas, le plugin cherche alors  _T('couteauprive:un_outil:aide');
+function chatons_raccourcis() {
+       $chatons = cs_lire_data_outil('chatons');
+       return _T('couteauprive:chatons:aide', array('liste' => '<b>'.join('</b>, <b>', $chatons[0]).'</b>'));
+}
+
+// cette fonction renvoie une ligne de tableau entre <tr></tr> afin de l'inserer dans la Barre Typo V2, si elle est presente
+function chatons_BarreTypo($tr) {
+       $chatons = cs_lire_data_outil('chatons');
+       $max = count($chatons[0]);
+       $res = '';
+       for ($i=0; $i<$max; $i++)
+               $res .= "<a href=\"javascript:barre_inserer('{$chatons[0][$i]}',@@champ@@)\">{$chatons[1][$i]}</a>";
+       return $tr.'<tr><td><@@span@@>'._T('couteauprive:chatons:nom')."</span>&nbsp;$res</td></tr>";
+}
+
+// les 2 fonctions suivantes inserent les boutons pour le plugin Porte Plume, s'il est present (SPIP>=2.0)
+function chatons_PP_pre_charger($flux) {
+       $chatons = cs_lire_data_outil('chatons');
+       $max = count($chatons[0]);
+       $r = array();
+       for ($i=0; $i<$max; $i++) {
+               $c = &$chatons[0][$i];
+               $id = 'chaton_'.str_replace(':','',$c);
+               $r[] = array(
+                       "id" => $id,
+                       "name" => _T('couteau:pp_chatons_inserer', array('chaton'=>$c)),
+                       "className" => $id,
+                       "replaceWith" => $c,
+                       "display" => true);
+       }
+       $r = array(
+               "id" => 'cs_chatons_drop',
+               "name" => _T('couteau:pp_chatons_inserer_drop'),
+               "className" => 'cs_chatons_drop',
+               "replaceWith" => '',
+               "display" => true,
+               "dropMenu" => $r,
+       );
+       foreach(cs_pp_liste_barres('chatons') as $b)
+               $flux[$b]->ajouterApres('grpCaracteres', $r);
+       return $flux;
+}
+function chatons_PP_icones($flux) {
+       $chatons = cs_lire_data_outil('chatons');
+       $flux['cs_chatons_drop'] = chatons_creer_icone_barre(find_in_path('img/chatons/lol.png'));
+       $path = find_in_path('img/chatons').'/';
+       foreach($chatons[4] as $i=>$v) $flux[$i] = chatons_creer_icone_barre($path.$v);
+       return $flux;
+}
+// creation d'icone pour le plugin porte-plume
+function chatons_creer_icone_barre($file) {
+       static $icones_barre;
+       rep_icones_barre($icones_barre);
+       define_IMG_GD_MAX_PIXELS();
+       // la config "Methode de fabrication des vignettes" doit etre renseignee pour 'image_reduire'
+       $file = filtrer('image_reduire', $file, 19, 19);
+       $file = filtrer('image_recadre', $file, 16, 16, 'topleft');
+       $nom = basename($src = extraire_attribut($file, 'src'));
+       @copy($src, $icones_barre.$nom);
+       return $nom;
+}
+?>
\ No newline at end of file