6 private static $patternsWiki = array();
7 private static $replacementHTML = array();
8 private static $replacementText = array();
10 private static $title_index = -1;
11 private static $info = array();
13 public static function Markup($pattern, $replacement, $replacementTxt, $info = null
)
15 $id = count(MiniWiki
::$patternsWiki);
16 MiniWiki
::$patternsWiki[$id] = $pattern;
17 MiniWiki
::$replacementHTML[$id] = $replacement;
18 MiniWiki
::$replacementText[$id] = $replacementTxt;
20 MiniWiki
::$info[$id] = $info;
25 public static function init()
27 if (isset(MiniWiki
::$patternsWiki[0])) {
30 MiniWiki
::Markup("/(\r\n|\r([^\n]))/", "\n$2", "\n$2");
32 // retours à la ligne avec \\
33 MiniWiki
::Markup("/\\\\(?".">(\\\\*))\n/e", "str_repeat('<br />\n',mb_strlen('$1'))", "str_repeat('\n',mb_strlen('$1'))", "ligne1\\\\\nligne2");
36 MiniWiki
::Markup("/((^|\n)\|\|(([^\n]*(\n|$))(\|\|[^\n]*(\n|$))*))/se",
37 "'</p><table class=\"tinybicol\">'
38 . str_replace(\"\n\", '', str_replace('||', '</td><td>', preg_replace(\"/\|\|($|\\n)/\", '</td></tr>\n', preg_replace(\"/(^|\\n)\|\|/\", '\n<tr><td>', '$1'))))
40 "str_replace('||', '|', '$1')",
41 "||ligne1 colonne1||ligne1 colonne2||\n||ligne2 colonne1||ligne2 colonne2||");
44 MiniWiki
::Markup("/(^|\n)\*(([^\n]*(\n|$))(\*[^\n]*(\n|$))*)/se",
45 "'</p>\n<ul><li>'.str_replace(\"\\n*\",'</li><li>','$2').'</li></ul>\n<p>'",
46 "'$1 -' . str_replace(\"\\n*\", \"\\n -\", '$2')",
47 "* element1\n* element2\n* element3");
49 MiniWiki
::Markup("/(^|\n)#(([^\n]*(\n|$))(#[^\n]*(\n|$))*)/se", "'</p>\n<ol><li>'.str_replace(\"\\n#\",'</li><li>','$2').'</li></ol>\n<p>'", "'$0'", "# element1\n# element2\n# element3");
51 // bold, italic and others
53 MiniWiki
::Markup("/'''(.*?)'''/",'<strong>$1</strong>','*$1*', "'''gras'''");
55 MiniWiki
::Markup("/''(.*?)''/",'<em>$1</em>','/$1/', "''italique''");
57 MiniWiki
::Markup("/'\\+(.*?)\\+'/",'<big>$1</big>','*$1*', "'+grand+'");
59 MiniWiki
::Markup("/'\\-(.*?)\\-'/",'<small>$1</small>','$1', "'-petit-'");
61 MiniWiki
::Markup("/'\\^(.*?)\\^'/",'<sup>$1</sup>','$1', "'^exposant^'");
63 MiniWiki
::Markup("/'_(.*?)_'/",'<sub>$1</sub>','$1', "'_indice_'");
65 MiniWiki
::Markup("/\\{\\+(.*?)\\+\\}/",'<ins>$1</ins>','_$1_', "{+insertion+}");
67 MiniWiki
::Markup("/\\{-(.*?)-\\}/",'<del>$1</del>','-$1-', "{-suppression-}");
68 // {color| colored text |}
69 MiniWiki
::Markup("/%([a-z]+|\#[0-9a-f]{3,6})%(.*?)%%/i", "<span style='color: $1;'>$2</span>", "$2",
70 "%red% texte en rouge %%\\\\\n%#ff0% texte en jaune %%\\\\\n%#0000ff% texte en bleu %%");
71 // [+ big +] [++ bigger ++] [+++ even bigger +++] ...
72 MiniWiki
::Markup("/\\[(([-+])+)(.*?)\\1\\]/e","'<span style=\'font-size:'.(round(pow(6/5,$2mb_strlen('$1'))*100,0)).'%\'>$3</span>'", "'$3'", "[+ grand +]\n\n[++ plus grand ++]\n\n[+++ encore plus grand +++]");
75 MiniWiki
::Markup("/(\n|^)--(--+| \n)/s", '$1<hr/>', '$1-- '."\n", "----\n");
77 MiniWiki
::$title_index = MiniWiki
::Markup('/(\n|^)(!+)([^\n]*)/se',
78 "'$1<h'.mb_strlen('$2').'>$3</h'.mb_strlen('$2').'>'",
79 "'$1$3'", "!titre1\n\n!!titre2\n\n!!!titre3");
82 MiniWiki
::Markup('/((?:https?|ftp):\/\/(?:[\.\,\;\!\:]*[\w@~%$£µ&i#\-+=_\/\?])*)/ui',
83 '<a href="\\0">\\0</a>', '<\\0>');
84 MiniWiki
::Markup('/(\s|^|\[\[)www\.((?:[\.\,\;\!\:]*[\w@~%$£µ&i#\-+=_\/\?])*)/iu',
85 '\\1<a href="http://www.\\2">www.\\2</a>', '\\1<http://www.\\2>');
86 MiniWiki
::Markup('/(?:mailto:)?([a-z0-9.\-+_]+@([\-.+_]?[a-z0-9])+)/i', '<a href="mailto:\\0">\\0</a>', '<\\0>');
87 MiniWiki
::Markup('/\[\[\s*<(?:a href=")?([^">]*?)(?:">.*?<\/a)?>\s*\|([^\]]+)\]\]/i',
88 '<a href="\\1">\\2</a>', '\\2 <\\1>',
89 "[[http://www.example.com|Mon site web]]\n\nhttp://www.example.com\n\ntest@example.com");
91 // paragraphs and empty lines
92 MiniWiki
::Markup("/\n\n/", '</p><p>', "\n\n", "paragraphe1\n\nparagraphe2");
93 MiniWiki
::Markup("/\n/", ' ', "\n");
94 MiniWiki
::Markup("/^.*<\/p>.*<p>.*$/s", "<p>$0</p>", "$0");
96 // french typo rules, unbreakable spaces
97 MiniWiki
::Markup("/ +([!?:;])/", " $1", "$0");
100 public static function WikiToHTML($wiki, $title = false
)
103 $oldrule12 = MiniWiki
::$replacementHTML[MiniWiki
::$title_index];
104 MiniWiki
::$replacementHTML[MiniWiki
::$title_index] = "'$0'";
106 $html = preg_replace(MiniWiki
::$patternsWiki,
107 MiniWiki
::$replacementHTML,
108 htmlentities(trim($wiki), ENT_COMPAT
, 'UTF-8'));
110 MiniWiki
::$replacementHTML[MiniWiki
::$title_index] = $oldrule12;
115 private static function justify($text, $n)
117 $arr = explode("\n", wordwrap($text, $n));
118 $arr = array_map('trim', $arr);
120 foreach ($arr as $key => $line) {
121 $nxl = isset($arr[$key+
1]) ?
trim($arr[$key+
1]) : '';
122 $nxl_split = preg_split('! +!u', $nxl);
123 $nxw_len = count($nxl_split) ?
mb_strlen($nxl_split[0]) : 0;
126 if (mb_strlen($line)+
1+
$nxw_len < $n) {
131 if (preg_match('![.:;]$!u',$line)) {
136 $tmp = preg_split('! +!u', trim($line));
137 $words = count($tmp);
143 $len = array_sum(array_map('mb_strlen', $tmp));
145 $sw = floatval($empty) / floatval($words-1);
149 foreach ($tmp as $word) {
151 $cur +
= $sw +
strlen($word); // Use strlen here instead of mb_strlen because it is used by str_pad
152 // which is not multibyte compatible
153 $l = str_pad($l, intval($cur +
0.5));
155 $res .= trim($l)."\n";
161 public static function WikiToText($wiki, $just=false
, $indent=0, $width=68, $title=false
)
164 $oldrule12 = MiniWiki
::$replacementHTML[MiniWiki
::$title_index];
165 MiniWiki
::$replacementHTML[MiniWiki
::$title_index] = "'$0'";
167 //$text = trim($wiki);
168 //foreach (MiniWiki::$patternsWiki as $key=>$pattern) {
169 // echo $key . " - " . $pattern . "\n";
170 // $text = preg_replace($pattern, MiniWiki::$replacementText[$key], $text);
172 $text = preg_replace(MiniWiki
::$patternsWiki, MiniWiki
::$replacementText, trim($wiki));
174 MiniWiki
::$replacementHTML[MiniWiki
::$title_index] = $oldrule12;
176 $text = $just ? MiniWiki
::justify($text, $width - $indent) : wordwrap($text, $width - $indent);
178 $ind = str_pad('',$indent);
179 $text = $ind.str_replace("\n","\n$ind",$text);
184 static public function help($with_title = false
)
187 $info12 = MiniWiki
::$info[MiniWiki
::$title_index];
188 unset(MiniWiki
::$info[MiniWiki
::$title_index]);
192 foreach (MiniWiki
::$info as $value) {
193 $res[$value] = MiniWiki
::wikiToHtml($value, true
);
197 MiniWiki
::$info[MiniWiki
::$title_index] = $info12;
205 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8: