Release plat/al core v1.1.13
[platal.git] / classes / miniwiki.php
CommitLineData
f18f4920 1<?php
2
3class MiniWiki
4{
5
6 private static $patternsWiki = array();
7 private static $replacementHTML = array();
8 private static $replacementText = array();
9
47ea918c 10 private static $title_index = -1;
72b2f8bb 11 private static $info = array();
12
47ea918c 13 public static function Markup($pattern, $replacement, $replacementTxt, $info = null)
72b2f8bb 14 {
47ea918c 15 $id = count(MiniWiki::$patternsWiki);
5d1fffc0 16 MiniWiki::$patternsWiki[$id] = $pattern;
17 MiniWiki::$replacementHTML[$id] = $replacement;
18 MiniWiki::$replacementText[$id] = $replacementTxt;
72b2f8bb 19 if ($info) {
20 MiniWiki::$info[$id] = $info;
21 }
47ea918c 22 return $id;
f18f4920 23 }
eaf30d86 24
72b2f8bb 25 public static function init()
26 {
f18f4920 27 if (isset(MiniWiki::$patternsWiki[0])) {
28 return;
29 }
47ea918c 30 MiniWiki::Markup("/(\r\n|\r([^\n]))/", "\n$2", "\n$2");
eaf30d86 31
f18f4920 32 // retours à la ligne avec \\
dcdcd18a 33 MiniWiki::Markup("/\\\\(?".">(\\\\*))\n/e", "str_repeat('<br />\n',mb_strlen('$1'))", "str_repeat('\n',mb_strlen('$1'))", "ligne1\\\\\nligne2");
eaf30d86 34
51e3a458
SJ
35 // || Tables
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'))))
39 . '</table><p>'",
40 "str_replace('||', '|', '$1')",
41 "||ligne1 colonne1||ligne1 colonne2||\n||ligne2 colonne1||ligne2 colonne2||");
42
eaf30d86 43 // * unordered list
cac862a1 44 MiniWiki::Markup("/(^|\n)\*(([^\n]*(\n|$))(\*[^\n]*(\n|$))*)/se",
571e48ac 45 "'</p>\n<ul><li>'.str_replace(\"\\n*\",'</li><li>','$2').'</li></ul>\n<p>'",
2d7e0ded 46 "'$1 -' . str_replace(\"\\n*\", \"\\n -\", '$2')",
eaf30d86 47 "* element1\n* element2\n* element3");
571e48ac
CM
48 // # ordered list
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");
eaf30d86 50
f18f4920 51 // bold, italic and others
52 // ''' bold '''
47ea918c 53 MiniWiki::Markup("/'''(.*?)'''/",'<strong>$1</strong>','*$1*', "'''gras'''");
f18f4920 54 // '' italic ''
47ea918c 55 MiniWiki::Markup("/''(.*?)''/",'<em>$1</em>','/$1/', "''italique''");
f18f4920 56 // '+ big +'
47ea918c 57 MiniWiki::Markup("/'\\+(.*?)\\+'/",'<big>$1</big>','*$1*', "'+grand+'");
f18f4920 58 // '- small -'
47ea918c 59 MiniWiki::Markup("/'\\-(.*?)\\-'/",'<small>$1</small>','$1', "'-petit-'");
f18f4920 60 // '^superscript^'
47ea918c 61 MiniWiki::Markup("/'\\^(.*?)\\^'/",'<sup>$1</sup>','$1', "'^exposant^'");
f18f4920 62 // '_subscript_'
47ea918c 63 MiniWiki::Markup("/'_(.*?)_'/",'<sub>$1</sub>','$1', "'_indice_'");
f18f4920 64 // {+ underline +}
47ea918c 65 MiniWiki::Markup("/\\{\\+(.*?)\\+\\}/",'<ins>$1</ins>','_$1_', "{+insertion+}");
f18f4920 66 // {- strikeout -}
47ea918c 67 MiniWiki::Markup("/\\{-(.*?)-\\}/",'<del>$1</del>','-$1-', "{-suppression-}");
68 // {color| colored text |}
80714a6a 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 %%");
f18f4920 71 // [+ big +] [++ bigger ++] [+++ even bigger +++] ...
dcdcd18a 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 +++]");
eaf30d86 73
f18f4920 74 // ----- <hr/>
47ea918c 75 MiniWiki::Markup("/(\n|^)--(--+| \n)/s", '$1<hr/>', '$1-- '."\n", "----\n");
f18f4920 76 // titles
2d7e0ded 77 MiniWiki::$title_index = MiniWiki::Markup('/(\n|^)(!+)([^\n]*)/se',
78 "'$1<h'.mb_strlen('$2').'>$3</h'.mb_strlen('$2').'>'",
47ea918c 79 "'$1$3'", "!titre1\n\n!!titre2\n\n!!!titre3");
eaf30d86 80
f18f4920 81 // links
2d7e0ded 82 MiniWiki::Markup('/((?:https?|ftp):\/\/(?:[\.\,\;\!\:]*[\w@~%$£µ&i#\-+=_\/\?])*)/ui',
83 '<a href="\\0">\\0</a>', '<\\0>');
67b54ea2 84 MiniWiki::Markup('/(\s|^|\[\[)www\.((?:[\.\,\;\!\:]*[\w@~%$£µ&i#\-+=_\/\?])*)/iu',
2d7e0ded 85 '\\1<a href="http://www.\\2">www.\\2</a>', '\\1<http://www.\\2>');
9cd89110 86 MiniWiki::Markup('/(?:mailto:)?([a-z0-9.\-+_]+@([\-.+_]?[a-z0-9])+)/i', '<a href="mailto:\\0">\\0</a>', '<\\0>');
67b54ea2 87 MiniWiki::Markup('/\[\[\s*<(?:a href=")?([^">]*?)(?:">.*?<\/a)?>\s*\|([^\]]+)\]\]/i',
2d7e0ded 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");
eaf30d86 90
f18f4920 91 // paragraphs and empty lines
47ea918c 92 MiniWiki::Markup("/\n\n/", '</p><p>', "\n\n", "paragraphe1\n\nparagraphe2");
93 MiniWiki::Markup("/\n/", ' ', "\n");
cac862a1 94 MiniWiki::Markup("/^.*<\/p>.*<p>.*$/s", "<p>$0</p>", "$0");
970dced9
FB
95
96 // french typo rules, unbreakable spaces
97 MiniWiki::Markup("/ +([!?:;])/", "&nbsp;$1", "$0");
f18f4920 98 }
99
72b2f8bb 100 public static function WikiToHTML($wiki, $title = false)
101 {
02fdd1c8 102 if (!$title) {
47ea918c 103 $oldrule12 = MiniWiki::$replacementHTML[MiniWiki::$title_index];
104 MiniWiki::$replacementHTML[MiniWiki::$title_index] = "'$0'";
5d1fffc0 105 }
61664f8b 106 $html = preg_replace(MiniWiki::$patternsWiki,
107 MiniWiki::$replacementHTML,
108 htmlentities(trim($wiki), ENT_COMPAT, 'UTF-8'));
02fdd1c8 109 if (!$title) {
47ea918c 110 MiniWiki::$replacementHTML[MiniWiki::$title_index] = $oldrule12;
5d1fffc0 111 }
112 return $html;
f18f4920 113 }
eaf30d86 114
dcdcd18a 115 private static function justify($text, $n)
02fdd1c8 116 {
dcdcd18a 117 $arr = explode("\n", wordwrap($text, $n));
118 $arr = array_map('trim', $arr);
02fdd1c8 119 $res = '';
120 foreach ($arr as $key => $line) {
121 $nxl = isset($arr[$key+1]) ? trim($arr[$key+1]) : '';
dcdcd18a 122 $nxl_split = preg_split('! +!u', $nxl);
123 $nxw_len = count($nxl_split) ? mb_strlen($nxl_split[0]) : 0;
02fdd1c8 124 $line = trim($line);
eaf30d86 125
dcdcd18a 126 if (mb_strlen($line)+1+$nxw_len < $n) {
02fdd1c8 127 $res .= "$line\n";
128 continue;
129 }
eaf30d86 130
dcdcd18a 131 if (preg_match('![.:;]$!u',$line)) {
02fdd1c8 132 $res .= "$line\n";
133 continue;
134 }
eaf30d86 135
dcdcd18a 136 $tmp = preg_split('! +!u', trim($line));
02fdd1c8 137 $words = count($tmp);
138 if ($words <= 1) {
139 $res .= "$line\n";
140 continue;
141 }
eaf30d86 142
dcdcd18a 143 $len = array_sum(array_map('mb_strlen', $tmp));
02fdd1c8 144 $empty = $n - $len;
145 $sw = floatval($empty) / floatval($words-1);
eaf30d86 146
02fdd1c8 147 $cur = 0;
148 $l = '';
149 foreach ($tmp as $word) {
150 $l .= $word;
dcdcd18a 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));
02fdd1c8 154 }
155 $res .= trim($l)."\n";
156 }
157 return trim($res);
158 }
eaf30d86 159
02fdd1c8 160
72b2f8bb 161 public static function WikiToText($wiki, $just=false, $indent=0, $width=68, $title=false)
162 {
02fdd1c8 163 if (!$title) {
47ea918c 164 $oldrule12 = MiniWiki::$replacementHTML[MiniWiki::$title_index];
165 MiniWiki::$replacementHTML[MiniWiki::$title_index] = "'$0'";
02fdd1c8 166 }
7373df1e 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);
171 //}
02fdd1c8 172 $text = preg_replace(MiniWiki::$patternsWiki, MiniWiki::$replacementText, trim($wiki));
173 if (!$title) {
47ea918c 174 MiniWiki::$replacementHTML[MiniWiki::$title_index] = $oldrule12;
02fdd1c8 175 }
dcdcd18a 176 $text = $just ? MiniWiki::justify($text, $width - $indent) : wordwrap($text, $width - $indent);
02fdd1c8 177 if($indent) {
178 $ind = str_pad('',$indent);
179 $text = $ind.str_replace("\n","\n$ind",$text);
180 }
181 return $text;
182 }
72b2f8bb 183
184 static public function help($with_title = false)
185 {
186 if (!$with_title) {
47ea918c 187 $info12 = MiniWiki::$info[MiniWiki::$title_index];
188 unset(MiniWiki::$info[MiniWiki::$title_index]);
72b2f8bb 189 }
190
fdbeba4f 191 $res = array();
72b2f8bb 192 foreach (MiniWiki::$info as $value) {
fdbeba4f 193 $res[$value] = MiniWiki::wikiToHtml($value, true);
72b2f8bb 194 }
72b2f8bb 195
196 if (!$with_title) {
47ea918c 197 MiniWiki::$info[MiniWiki::$title_index] = $info12;
72b2f8bb 198 }
199 return $res;
200 }
201}
f18f4920 202
203MiniWiki::init();
5b21237d 204
fa7ffd66 205// vim:set et sw=4 sts=4 sws=4 foldmethod=marker fenc=utf-8:
f18f4920 206?>