[PLUGINS] ~maj Crayons
[lhc/web/www.git] / www / plugins / crayons / crayons_fonctions.php
index 0c0484b..fd0c89f 100644 (file)
-<?php\r
-/** \r
- * Crayons plugin for spip (c) Fil, toggg 2006-2013 -- licence GPL\r
- * \r
- * @package SPIP\Crayons\Fonctions\r
- */\r
-if (!defined("_ECRIRE_INC_VERSION")) return;\r
-\r
-/**\r
- * Débuguer les crayons\r
- * mettre a true dans mes_options pour avoir les crayons non compresses\r
- */\r
-if(!defined('_DEBUG_CRAYONS'))\r
-       define('_DEBUG_CRAYONS', false);\r
-\r
-// Dire rapidement si ca vaut le coup de chercher des droits\r
-function analyse_droits_rapide_dist() {\r
-       return isset($GLOBALS['auteur_session']['statut']);\r
-}\r
-\r
-// Le pipeline header_prive (pour y tester les crayons)\r
-function Crayons_insert_head($head) {\r
-       // verifie la presence d'une meta crayons, si c'est vide\r
-       // on ne cherche meme pas a traiter l'espace prive\r
-       $config_espace_prive = @unserialize($GLOBALS['meta']['crayons']);\r
-       if (empty($config_espace_prive)) {\r
-               return $head;\r
-       }\r
-\r
-       // verifie que l'edition de l'espace prive est autorisee\r
-       if ($config_espace_prive['espaceprive'] == 'on') {\r
-               // determine les pages (exec) crayonnables\r
-               if (($config_espace_prive['exec_autorise'] == '*') ||\r
-              in_array(_request('exec'),explode(',',$config_espace_prive['exec_autorise']))) {\r
-                       // Calcul des droits\r
-                       include_spip('inc/crayons');\r
-                       $head = Crayons_preparer_page($head, '*', wdgcfg(), 'head');\r
-               }\r
-       }\r
-\r
-       // retourne l'entete modifiee\r
-       return $head;\r
-}\r
-\r
-// Le pipeline affichage_final, execute a chaque hit sur toute la page\r
-function &Crayons_affichage_final(&$page) {\r
-\r
-       // ne pas se fatiguer si le visiteur n'a aucun droit\r
-       if (!(function_exists('analyse_droits_rapide')?analyse_droits_rapide():analyse_droits_rapide_dist()))\r
-               return $page;\r
-\r
-       // sinon regarder rapidement si la page a des classes crayon\r
-       if (strpos($page, 'crayon')===FALSE)\r
-               return $page;\r
-\r
-       // voir un peu plus precisement lesquelles\r
-       include_spip('inc/crayons');\r
-       if (!preg_match_all(_PREG_CRAYON, $page, $regs, PREG_SET_ORDER))\r
-               return $page;\r
-       $wdgcfg = wdgcfg();\r
-\r
-       // calculer les droits sur ces crayons\r
-       include_spip('inc/autoriser');\r
-       $droits = array();\r
-       $droits_accordes = 0;\r
-       foreach ($regs as $reg) {\r
-               list(,$crayon,$type,$champ,$id) = $reg;\r
-               if (_DEBUG_CRAYONS) spip_log("autoriser('modifier', $type, $id, NULL, array('champ'=>$champ))","crayons_distant");\r
-               if (autoriser('modifier', $type, $id, NULL, array('champ'=>$champ))) {\r
-                       if(!isset($droits['.' . $crayon]))\r
-                               $droits['.' . $crayon] = 0;\r
-                       $droits['.' . $crayon]++;\r
-                       $droits_accordes ++;\r
-               }\r
-       }\r
-       // et les signaler dans la page\r
-       if ($droits_accordes == count($regs)) // tous les droits\r
-               $page = Crayons_preparer_page($page, '*', $wdgcfg);\r
-       else if ($droits) // seulement certains droits, preciser lesquels\r
-               $page = Crayons_preparer_page($page, join(',',array_keys($droits)), $wdgcfg);\r
-\r
-       return $page;\r
-}\r
-\r
-function &Crayons_preparer_page(&$page, $droits, $wdgcfg = array(), $mode='page') {\r
-       /**\r
-        * Si pas forcer_lang, on charge le contrôleur dans la langue que l'utilisateur a dans le privé\r
-        */\r
-       if(!isset($GLOBALS['forcer_lang']) OR !$GLOBALS['forcer_lang'] OR ($GLOBALS['forcer_lang'] === 'non'))\r
-               lang_select($GLOBALS['auteur_session']['lang']);\r
-       \r
-       $jsFile = generer_url_public('crayons.js');\r
-       if (_DEBUG_CRAYONS)\r
-               $jsFile = parametre_url($jsFile,'debug_crayons',1,'&');\r
-       include_spip('inc/filtres'); // rien que pour direction_css() :(\r
-       $cssFile = direction_css(find_in_path('crayons.css'));\r
-\r
-       $config = crayons_var2js(array(\r
-               'imgPath' => dirname(find_in_path('images/crayon.png')),\r
-               'droits' => $droits,\r
-               'dir_racine' => _DIR_RACINE,\r
-               'self' => self('&'),\r
-               'txt' => array(\r
-                       'error' => _U('crayons:svp_copier_coller'),\r
-                       'sauvegarder' => $wdgcfg['msgAbandon'] ? _U('crayons:sauvegarder') : ''\r
-               ),\r
-               'img' => array(\r
-                       'searching' => array(\r
-                               'txt' => _U('crayons:veuillez_patienter')\r
-                       ),\r
-                       'crayon' => array(\r
-                               'txt' => _U('crayons:editer')\r
-                       ),\r
-                       'edit' => array(\r
-                               'txt' => _U('crayons:editer_tout')\r
-                       ),\r
-                       'img-changed' => array(\r
-                               'txt' => _U('crayons:deja_modifie')\r
-                       )\r
-               ),\r
-               'cfg' => $wdgcfg\r
-       ));\r
-\r
-\r
-       // Est-ce que PortePlume est la ?\r
-       $meta_crayon = isset($GLOBALS['meta']['crayons']) ? unserialize($GLOBALS['meta']['crayons']): array();\r
-       $pp = '';\r
-       if (isset($meta_crayon['barretypo']) && $meta_crayon['barretypo']) {\r
-               if (function_exists('chercher_filtre')\r
-               AND $f = chercher_filtre('info_plugin')\r
-               AND $f('PORTE_PLUME','est_actif')) {\r
-\r
-               $pp = <<<EOF\r
-cQuery(function() {\r
-       if (typeof onAjaxLoad == 'function') {\r
-               function barrebouilles_crayons() {\r
-                       $('.formulaire_crayon textarea.crayon-active')\r
-                       .barre_outils('edition');\r
-               }\r
-               onAjaxLoad(barrebouilles_crayons);\r
-       }\r
-});\r
-EOF;\r
-\r
-               }\r
-       }\r
-\r
-\r
-       $incCSS = "<link rel=\"stylesheet\" href=\"{$cssFile}\" type=\"text/css\" media=\"all\" />";\r
-       $incJS = <<<EOH\r
-<script type="text/javascript">/* <![CDATA[ */\r
-var configCrayons;\r
-function startCrayons() {\r
-       configCrayons = new cQuery.prototype.cfgCrayons({$config});\r
-       cQuery.fn.crayonsstart();\r
-{$pp}\r
-}\r
-var cr = document.createElement('script');\r
-cr.type = 'text/javascript'; cr.async = true;\r
-cr.src = '{$jsFile}\x26callback=startCrayons';\r
-var s = document.getElementsByTagName('script')[0];\r
-s.parentNode.insertBefore(cr, s);\r
-/* ]]> */</script>\r
-\r
-EOH;\r
-\r
-       if ($mode == 'head')\r
-               return $page . $incJS . $incCSS; //js inline avant les css, sinon ca bloque le chargement\r
-\r
-       $pos_head = strpos($page, '</head>');\r
-       if ($pos_head === false)\r
-               return $page;\r
-\r
-       // js inline avant la premiere css, ou sinon avant la fin du head\r
-       $pos_link = strpos($page, '<link ');\r
-       if (!$pos_link)\r
-               $pos_link = $pos_head;\r
-       $page = substr_replace($page, $incJS, $pos_link, 0);\r
-\r
-       // css avant la fin du head\r
-       $pos_head = strpos($page, '</head>');\r
-               $page = substr_replace($page, $incCSS, $pos_head, 0);\r
-       \r
-       return $page;\r
-}\r
-\r
-\r
-/**\r
- * Balise indiquant un champ SQL crayonnable\r
- *\r
- * @note\r
- *   Si cette fonction est absente, balise_EDIT_dist() déclarée par SPIP\r
- *   ne retourne rien\r
- * \r
- * @example\r
- *   <div class="#EDIT{texte}">#TEXTE</div>\r
- *   <div class="#EDIT{ps}">#PS</div>\r
- *\r
- * @param Champ $p\r
- *   Pile au niveau de la balise\r
- * @return Champ\r
- *   Pile complétée par le code à générer\r
-**/\r
-function balise_EDIT($p) {\r
-\r
-       // le code compile de ce qui se trouve entre les {} de la balise\r
-       $label = interprete_argument_balise(1,$p);\r
-\r
-       // Verification si l'on est dans le cas d'une meta\r
-       // #EDIT{meta-descriptif_site} ou #EDIT{meta-demo/truc}\r
-       if (preg_match('/meta-(.*)\'/',$label,$meta)) {\r
-               $type = 'meta';\r
-               $label= 'valeur';\r
-               $primary = $meta[1];\r
-               $p->code = "classe_boucle_crayon('"\r
-                       . $type\r
-                       ."',"\r
-                       .sinon($label,"''")\r
-                       .","\r
-                       . "str_replace('/', '__', '$primary')" # chaque / doit être remplacé pour CSS.\r
-                       .").' '";\r
-               $p->interdire_scripts = false;\r
-               return $p;\r
-       }\r
-\r
-       $i_boucle = $p->nom_boucle ? $p->nom_boucle : $p->id_boucle;\r
-       // #EDIT hors boucle? ne rien faire\r
-       if (!$type = ($p->boucles[$i_boucle]->type_requete)) {\r
-               $p->code = "''";\r
-               $p->interdire_scripts = false;\r
-               return $p;\r
-       }\r
-\r
-       // crayon sur une base distante 'nua:article-intro-5'\r
-       if ($distant = $p->boucles[$i_boucle]->sql_serveur)\r
-               $type = $distant.'__'.$type;\r
-\r
-       // le compilateur 1.9.2 ne calcule pas primary pour les tables secondaires\r
-       // il peut aussi arriver une table sans primary (par ex: une vue)\r
-       if(!($primary = $p->boucles[$i_boucle]->primary)){\r
-               include_spip('inc/vieilles_defs'); # 1.9.2 pour trouver_def_table\r
-               list($nom, $desc) = trouver_def_table(\r
-                       $p->boucles[$i_boucle]->type_requete, $p->boucles[$i_boucle]);\r
-               $primary = $desc['key']['PRIMARY KEY'];\r
-       }\r
-\r
-       $primary = explode(',',$primary);\r
-       $id = array();\r
-       foreach($primary as $key) {\r
-               $id[] = champ_sql(trim($key),$p);\r
-       }\r
-       $primary = implode(".'-'.",$id);\r
-\r
-       $p->code = "classe_boucle_crayon('"\r
-               . $type\r
-               ."',"\r
-               .sinon($label,"''")\r
-               .","\r
-               . $primary\r
-               .").' '";\r
-       $p->interdire_scripts = false;\r
-       return $p;\r
-}\r
-\r
-\r
-/**\r
- * Balise indiquant une configuration crayonnable\r
- *\r
- * @example\r
- *   <div class="#EDIT_CONFIG{descriptif_site}">#DESCRIPTIF_SITE_SPIP</div>\r
- *   <div class="#EDIT_CONFIG{demo/truc}">#CONFIG{demo/truc}</div>\r
- *\r
- * @param Champ $p\r
- *   Pile au niveau de la balise\r
- * @return Champ\r
- *   Pile complétée par le code à générer\r
-**/\r
-function balise_EDIT_CONFIG_dist($p) {\r
-\r
-       // le code compile de ce qui se trouve entre les {} de la balise\r
-       $config = interprete_argument_balise(1,$p);\r
-       if (!$config) return $p;\r
-\r
-       // chaque / du nom de config doit être transformé pour css.\r
-       // nous utiliserons '__' à la place.\r
-\r
-       $type = 'meta';\r
-       $label= 'valeur';\r
-\r
-       $p->code = "classe_boucle_crayon('"\r
-               . $type\r
-               . "','"\r
-               . $label\r
-               . "',"\r
-               . "str_replace('/', '__', $config)" \r
-               . ").' '";\r
-       $p->interdire_scripts = false;\r
-       return $p;\r
-}\r
-\r
-/**\r
- * Crée le controleur du crayon indiqué par la classe CSS\r
- *\r
- * @param string $class\r
- *   Class CSS de crayon tel que créé par #EDIT\r
- * @return string\r
- *   HTML du crayon, sinon texte d'erreur\r
-**/\r
-function creer_le_crayon($class) {\r
-       include_spip('inc/crayons');\r
-       include_spip('action/crayons_html');\r
-       $a = affiche_controleur($class, array('w' => 485, 'h' => 300, 'wh' => 500));\r
-       return $a['$erreur'] ? $a['$erreur'] : $a['$html'];\r
-}\r
-\r
-/**\r
- * Balise #CRAYON affichant un formulaire de crayon\r
- * SI ?edit=1;\r
- *\r
- * @example\r
- *   #CRAYON{ps}\r
- *\r
- * @param Champ $p\r
- *   Pile au niveau de la balise\r
- * @return Champ\r
- *   Pile complétée par le code à générer\r
-**/\r
-function balise_CRAYON($p) {\r
-       $p = balise_EDIT($p);\r
-       $p->code = 'creer_le_crayon('.$p->code.')';\r
-       return $p;\r
-}\r
-\r
-\r
-/**\r
- * Donne la classe CSS crayon en fonction\r
- * - du type de la boucle\r
- *   (attention aux exceptions pour #EDIT dans les boucles HIERARCHIE et SITES)\r
- * - du champ demande (vide, + ou se terminant par + : (+)classe type--id)\r
- * - de l'id courant\r
- * \r
- * @param string $type\r
- *   Type d'objet, ou "meta" pour un champ de configuration\r
- * @param string $champ\r
- *   Champ SQL concerné\r
- * @param int|string $id\r
- *   Identifiant de la ligne sql\r
- * @return string\r
- *   Classes CSS (à ajouter dans le HTML à destination du javascript de Crayons)\r
-**/\r
-function classe_boucle_crayon($type, $champ, $id) {\r
-       // $type = objet_type($type);\r
-       $type = $type[strlen($type) - 1] == 's' ?\r
-               substr($type, 0, -1) :\r
-               str_replace(\r
-                       array('hierarchie', 'syndication'),\r
-                       array('rubrique',   'site'),\r
-               $type);\r
-\r
-       $plus = (substr($champ, -1) == '+' AND $champ = substr($champ, 0, -1))\r
-               ? " $type--$id"\r
-               : '';\r
-       \r
-       // test rapide pour verifier que l'id est valide (a-zA-Z0-9)\r
-       if (false !== strpos($id, ' ')) {\r
-               spip_log("L'identifiant ($id) ne pourra être géré ($type | $champ)", 'crayons');\r
-               return 'crayon_id_ingerable';\r
-       }\r
-       \r
-       return 'crayon ' . $type . '-' . $champ . '-' . $id . $plus;\r
-}\r
-\r
-?>\r
+<?php
+/**
+ * Crayons
+ * plugin for spip
+ * (c) Fil, toggg 2006-2014
+ * licence GPL
+ *
+ * @package SPIP\Crayons\Fonctions
+ */
+
+if (!defined('_ECRIRE_INC_VERSION')) {
+       return;
+}
+
+if (!defined('_DEBUG_CRAYONS')) {
+       /**
+        * Débuguer les crayons
+        *
+        * Mettre a true dans mes_options pour avoir les crayons non compresses
+        */
+       define('_DEBUG_CRAYONS', false);
+}
+
+/**
+ * Dire rapidement si ca vaut le coup de chercher des droits
+ *
+ * @return bool
+**/
+function analyse_droits_rapide_dist() {
+       return isset($GLOBALS['auteur_session']['statut']);
+}
+
+/**
+ * Vérifier si un exec du privé est crayonnable
+ *
+ * @param string $exec
+ *
+ * @return bool
+ **/
+function test_exec_crayonnable($exec) {
+       if ($exec_autorise = lire_config('crayons/exec_autorise')) {
+               $execs = explode(',', $exec_autorise);
+               foreach ($execs as $key => $value) {
+                       $execs[$key] = trim($value);
+               }
+               if ($exec_autorise == '*' || in_array($exec, $execs)) {
+                       return true;
+               }
+       }
+
+       return false;
+}
+
+/**
+ * Ajouter la gestion des crayons dans l'espace privé
+ *
+ * @pipeline header_prive
+ * @uses Crayons_preparer_page()
+ *
+ * @param string $head
+ *     Contenu du header
+ * @return string
+ *     Contenu du header
+**/
+function Crayons_insert_head($head) {
+       // verifie la presence d'une meta crayons, si c'est vide
+       // on ne cherche meme pas a traiter l'espace prive
+       $config_espace_prive = @unserialize($GLOBALS['meta']['crayons']);
+       if (empty($config_espace_prive)) {
+               return $head;
+       }
+
+       // verifie que l'edition de l'espace prive est autorisee
+       if (isset($config_espace_prive['espaceprive'])
+       and $config_espace_prive['espaceprive'] == 'on') {
+               // determine les pages (exec) crayonnables
+               if (test_exec_crayonnable(_request('exec'))) {
+                       // Calcul des droits
+                       include_spip('inc/crayons');
+                       $head = Crayons_preparer_page($head, '*', wdgcfg(), 'head');
+               }
+       }
+
+       // retourne l'entete modifiee
+       return $head;
+}
+
+/**
+ * Ajouter la gestion des crayons dans l'espace public
+ *
+ * @pipeline affichage_final
+ * @uses analyse_droits_rapide_dist()
+ * @uses Crayons_preparer_page()
+ * @note
+ *     Le pipeline affichage_final est executé à chaque hit sur toute la page
+ *
+ * @param string $page
+ *     Contenu de la page à envoyer au navigateur
+ * @return string
+ *     Contenu de la page à envoyer au navigateur
+**/
+function &Crayons_affichage_final(&$page) {
+
+       // ne pas se fatiguer si le visiteur n'a aucun droit
+       if (!(function_exists('analyse_droits_rapide')?analyse_droits_rapide():analyse_droits_rapide_dist())) {
+               return $page;
+       }
+
+       // sinon regarder rapidement si la page a des classes crayon
+       if (strpos($page, 'crayon')===false) {
+               return $page;
+       }
+
+       // voir un peu plus precisement lesquelles
+       include_spip('inc/crayons');
+       if (!preg_match_all(_PREG_CRAYON, $page, $regs, PREG_SET_ORDER)) {
+               return $page;
+       }
+
+       $wdgcfg = wdgcfg();
+
+       // calculer les droits sur ces crayons
+       include_spip('inc/autoriser');
+       $droits = array();
+       $droits_accordes = 0;
+       foreach ($regs as $reg) {
+               list(,$crayon,$type,$champ,$id) = $reg;
+               if (_DEBUG_CRAYONS) {
+                       spip_log("autoriser('modifier', $type, $id, NULL, array('champ'=>$champ))", 'crayons_distant');
+               }
+               if (autoriser('modifier', $type, $id, null, array('champ'=>$champ))) {
+                       if (!isset($droits['.' . $crayon])) {
+                               $droits['.' . $crayon] = 0;
+                       }
+                       $droits['.' . $crayon]++;
+                       $droits_accordes ++;
+               }
+       }
+
+       // et les signaler dans la page
+       if ($droits_accordes == count($regs)) { // tous les droits
+               $page = Crayons_preparer_page($page, '*', $wdgcfg);
+       } elseif ($droits) { // seulement certains droits, preciser lesquels
+               $page = Crayons_preparer_page($page, join(',', array_keys($droits)), $wdgcfg);
+       }
+
+       return $page;
+}
+
+/**
+ * Ajoute les scripts css et js nécessaires aux crayons dans le code HTML
+ *
+ * @uses crayons_var2js()
+ *
+ * @param string $page
+ *     Code HTML de la page complète ou du header seulement
+ * @param string $droits
+ *     - Liste de css définissant les champs crayonnables
+ *       (séparés par virgule) dont l'édition est autorisée
+ *     - "*" si tous sont autorisés
+ * @param array $wdgcfg
+ *     Description de la configuration des crayons (attribut => valeur)
+ * @param string $mode
+ *     - page : toute la page est présente dans `$page`
+ *     - head : seul le header est présent dans `$page`
+ * @return
+**/
+function &Crayons_preparer_page(&$page, $droits, $wdgcfg = array(), $mode = 'page') {
+       /**
+        * Si pas forcer_lang, on charge le contrôleur dans la langue que l'utilisateur a dans le privé
+        */
+       if (!isset($GLOBALS['forcer_lang']) or !$GLOBALS['forcer_lang'] or ($GLOBALS['forcer_lang'] === 'non')) {
+               lang_select($GLOBALS['auteur_session']['lang']);
+       }
+
+       $jsFile = generer_url_public('crayons.js');
+       if (_DEBUG_CRAYONS) {
+               $jsFile = parametre_url($jsFile, 'debug_crayons', 1, '&');
+       }
+       include_spip('inc/filtres'); // rien que pour direction_css() :(
+       $cssFile = direction_css(find_in_path('crayons.css'));
+
+       $config = crayons_var2js(array(
+               'imgPath' => dirname(find_in_path('images/crayon.png')),
+               'droits' => $droits,
+               'dir_racine' => _DIR_RACINE,
+               'self' => self('&'),
+               'txt' => array(
+                       'error' => _U('crayons:svp_copier_coller'),
+                       'sauvegarder' => $wdgcfg['msgAbandon'] ? _U('crayons:sauvegarder') : ''
+               ),
+               'img' => array(
+                       'searching' => array(
+                               'txt' => _U('crayons:veuillez_patienter')
+                       ),
+                       'crayon' => array(
+                               'txt' => _U('crayons:editer')
+                       ),
+                       'edit' => array(
+                               'txt' => _U('crayons:editer_tout')
+                       ),
+                       'img-changed' => array(
+                               'txt' => _U('crayons:deja_modifie')
+                       )
+               ),
+               'cfg' => $wdgcfg
+       ));
+
+
+       // Est-ce que PortePlume est la ?
+       $meta_crayon = isset($GLOBALS['meta']['crayons']) ? unserialize($GLOBALS['meta']['crayons']): array();
+       $pp = '';
+       if (isset($meta_crayon['barretypo']) && $meta_crayon['barretypo']) {
+               if (function_exists('chercher_filtre')
+               and $f = chercher_filtre('info_plugin')
+               and $f('PORTE_PLUME','est_actif')) {
+                       $pp = <<<EOF
+cQuery(function() {
+       if (typeof onAjaxLoad == 'function') {
+               function barrebouilles_crayons() {
+                       $('.formulaire_crayon textarea.crayon-active')
+                       .barre_outils('edition');
+               }
+               onAjaxLoad(barrebouilles_crayons);
+       }
+});
+EOF;
+               }
+       }
+
+
+       $incCSS = "<link rel=\"stylesheet\" href=\"{$cssFile}\" type=\"text/css\" media=\"all\" />";
+       $incJS = <<<EOH
+<script type="text/javascript">/* <![CDATA[ */
+var configCrayons;
+function startCrayons() {
+       configCrayons = new cQuery.prototype.cfgCrayons({$config});
+       cQuery.fn.crayonsstart();
+{$pp}
+}
+var cr = document.createElement('script');
+cr.type = 'text/javascript'; cr.async = true;
+cr.src = '{$jsFile}\x26callback=startCrayons';
+var s = document.getElementsByTagName('script')[0];
+s.parentNode.insertBefore(cr, s);
+/* ]]> */</script>
+
+EOH;
+
+       if ($mode == 'head') {
+               //js inline avant les css, sinon ca bloque le chargement
+               $page = $page . $incJS . $incCSS;
+               return $page;
+       }
+
+       $pos_head = strpos($page, '</head>');
+       if ($pos_head === false) {
+               return $page;
+       }
+
+       // js inline avant la premiere css, ou sinon avant la fin du head
+       $pos_link = strpos($page, '<link ');
+       if (!$pos_link) {
+               $pos_link = $pos_head;
+       }
+       $page = substr_replace($page, $incJS, $pos_link, 0);
+
+       // css avant la fin du head
+       $pos_head = strpos($page, '</head>');
+               $page = substr_replace($page, $incCSS, $pos_head, 0);
+
+       return $page;
+}
+
+/**
+ * Balise indiquant un champ SQL crayonnable
+ *
+ * @note
+ *   Si cette fonction est absente, `balise_EDIT_dist()` déclarée par SPIP
+ *   ne retourne rien
+ *
+ * @example
+ *     ```
+ *     <div class="#EDIT{texte}">#TEXTE</div>
+ *     <div class="#EDIT{ps}">#PS</div>
+ *     ```
+ *
+ * @param Champ $p
+ *   Pile au niveau de la balise
+ * @return Champ
+ *   Pile complétée par le code à générer
+**/
+function balise_EDIT($p) {
+
+       // le code compile de ce qui se trouve entre les {} de la balise
+       $label = interprete_argument_balise(1, $p);
+
+       // Verification si l'on est dans le cas d'une meta
+       // #EDIT{meta-descriptif_site} ou #EDIT{meta-demo/truc}
+       if (preg_match('/meta-(.*)\'/', $label, $meta)) {
+               $type = 'meta';
+               $label= 'valeur';
+               $primary = $meta[1];
+               $p->code = "classe_boucle_crayon('"
+                       . $type
+                       ."','"
+                       .$label
+                       ."',"
+                       . "str_replace('/', '__', '$primary')" # chaque / doit être remplacé pour CSS.
+                       .").' '";
+               $p->interdire_scripts = false;
+               return $p;
+       }
+
+       $i_boucle = $p->nom_boucle ? $p->nom_boucle : $p->id_boucle;
+       // #EDIT hors boucle? ne rien faire
+       if (!isset($p->boucles[$i_boucle]) or !$type = ($p->boucles[$i_boucle]->type_requete)) {
+               $p->code = "''";
+               $p->interdire_scripts = false;
+               return $p;
+       }
+
+       // crayon sur une base distante 'nua__article-intro-5'
+       if ($distant = $p->boucles[$i_boucle]->sql_serveur) {
+               $type = $distant.'__'.$type;
+       }
+
+       // le compilateur 1.9.2 ne calcule pas primary pour les tables secondaires
+       // il peut aussi arriver une table sans primary (par ex: une vue)
+       if (!($primary = $p->boucles[$i_boucle]->primary)) {
+               include_spip('inc/vieilles_defs'); # 1.9.2 pour trouver_def_table
+               if (function_exists('trouver_def_table')) {
+                       list($nom, $desc) = trouver_def_table(
+                               $p->boucles[$i_boucle]->type_requete,
+                               $p->boucles[$i_boucle]
+                       );
+                       $primary = $desc['key']['PRIMARY KEY'];
+               }
+       }
+       // On rajoute ici un debug dans le cas où aucune clé primaire n'est trouvée.
+       // Cela peut se présenter par exemple si on utilise #EDIT{monchamp} directement
+       // dans une boucle CONDITION sans faire référence au nom de la boucle d'au dessus.
+       if (!$primary) {
+               erreur_squelette(_T('crayons:absence_cle_primaire'), $p);
+       }
+
+       $primary = explode(',', $primary);
+       $id = array();
+       foreach ($primary as $key) {
+               $id[] = champ_sql(trim($key), $p);
+       }
+       $primary = implode(".'-'.", $id);
+
+       $p->code = "classe_boucle_crayon('"
+               . $type
+               ."',"
+               .sinon($label, "''")
+               .','
+               . $primary
+               .").' '";
+       $p->interdire_scripts = false;
+       return $p;
+}
+
+/**
+ * Balise indiquant une configuration crayonnable
+ *
+ * @example
+ *     ```
+ *     <div class="#EDIT_CONFIG{descriptif_site}">#DESCRIPTIF_SITE_SPIP</div>
+ *     <div class="#EDIT_CONFIG{demo/truc}">#CONFIG{demo/truc}</div>
+ *     ```
+ *
+ * @param Champ $p
+ *   Pile au niveau de la balise
+ * @return Champ
+ *   Pile complétée par le code à générer
+**/
+function balise_EDIT_CONFIG_dist($p) {
+
+       // le code compile de ce qui se trouve entre les {} de la balise
+       $config = interprete_argument_balise(1, $p);
+       if (!$config) {
+               return $p;
+       }
+
+       // chaque / du nom de config doit être transformé pour css.
+       // nous utiliserons '__' à la place.
+
+       $type = 'meta';
+       $label= 'valeur';
+
+       $p->code = "classe_boucle_crayon('"
+               . $type
+               . "','"
+               . $label
+               . "',"
+               . "str_replace('/', '__', $config)"
+               . ").' '";
+       $p->interdire_scripts = false;
+       return $p;
+}
+
+/**
+ * Crée le controleur du crayon indiqué par la classe CSS
+ *
+ * @param string $class
+ *   Class CSS de crayon tel que créé par #EDIT
+ * @return string
+ *   HTML du crayon, sinon texte d'erreur
+**/
+function creer_le_crayon($class) {
+       include_spip('inc/crayons');
+       include_spip('action/crayons_html');
+       $a = affiche_controleur($class, array('w' => 485, 'h' => 300, 'wh' => 500));
+       return $a['$erreur'] ? $a['$erreur'] : $a['$html'];
+}
+
+/**
+ * Balise `#CRAYON` affichant un formulaire de crayon
+ *
+ * SI `?edit=1;`
+ *
+ * @example
+ *    ```
+ *    #CRAYON{ps}
+ *    ```
+ *
+ * @param Champ $p
+ *   Pile au niveau de la balise
+ * @return Champ
+ *   Pile complétée par le code à générer
+**/
+function balise_CRAYON($p) {
+       $p = balise_EDIT($p);
+       $p->code = 'creer_le_crayon('.$p->code.')';
+       return $p;
+}
+
+
+/**
+ * Donne la classe CSS crayon
+ *
+ * En fonction :
+ * - du type de la boucle
+ *   (attention aux exceptions pour `#EDIT` dans les boucles HIERARCHIE et SITES)
+ * - du champ demande (vide, + ou se terminant par + : (+)classe type--id)
+ * - de l'id courant
+ *
+ * @param string $type
+ *   Type d'objet, ou "meta" pour un champ de configuration
+ * @param string $champ
+ *   Champ SQL concerné
+ * @param int|string $id
+ *   Identifiant de la ligne sql
+ * @return string
+ *   Classes CSS (à ajouter dans le HTML à destination du javascript de Crayons)
+**/
+function classe_boucle_crayon($type, $champ, $id) {
+       // $type = objet_type($type);
+       $type = $type[strlen($type) - 1] == 's' ?
+               substr($type, 0, -1) :
+               str_replace(
+                       array('hierarchie','syndication'),
+                       array('rubrique','site'),
+                       $type
+               );
+
+       $plus = (substr($champ, -1) == '+' and $champ = substr($champ, 0, -1))
+               ? " $type--$id"
+               : '';
+
+       // test rapide pour verifier que l'id est valide (a-zA-Z0-9)
+       if (false !== strpos($id, ' ')) {
+               spip_log("L'identifiant ($id) ne pourra être géré ($type | $champ)", 'crayons');
+               return 'crayon_id_ingerable';
+       }
+
+       return 'crayon ' . $type . '-' . $champ . '-' . $id . $plus;
+}