+/**
+ * Fonctions utiles pour les wheels SPIP sur les paragraphes
+ *
+ * @SPIP\Textwheel\Wheel\SPIP\Fonctions
+ **/
+
+if (!defined('_ECRIRE_INC_VERSION')) {
+ return;
+}
+
+if (!defined('_BALISES_BLOCS')) {
+ define('_BALISES_BLOCS',
+ 'address|applet|article|aside|blockquote|button|center|d[ltd]|div|fieldset|fig(ure|caption)|footer|form|h[1-6r]|hgroup|head|header|iframe|li|map|marquee|nav|noscript|object|ol|pre|section|t(able|[rdh]|body|foot|extarea)|ul|script|style'
+ );
+}
+
+/**
+ * Callback de detection des liens qui contiennent des blocks :
+ * dans ce cas il faut traiter le <a> comme un quasi block et fermer/ouvrir les <p> autour du <a>
+ *
+ * @param string $t
+ * @return string
+ */
+function detecter_liens_blocs(&$t) {
+
+ // si une balise bloc est dans le liens, on y a aussi ajoute un <p>, il suffit donc de detecter ce dernier
+ if (strpos($t[2], "<p>") !== false) {
+ return "<STOP P>" . $t[1] . "<p>" . $t[2] . "</p>" . $t[3] . "\n<p>";
+ }
+
+ return $t[0];
+}