Close #652
[platal.git] / classes / miniwiki.php
1 <?php
2
3 class MiniWiki
4 {
5
6 private static $patternsWiki = array();
7 private static $replacementHTML = array();
8 private static $replacementText = array();
9
10 private static $info = array();
11
12 public static function Markup($id, $pattern, $replacement, $replacementTxt, $info = null)
13 {
14 MiniWiki::$patternsWiki[$id] = $pattern;
15 MiniWiki::$replacementHTML[$id] = $replacement;
16 MiniWiki::$replacementText[$id] = $replacementTxt;
17 if ($info) {
18 MiniWiki::$info[$id] = $info;
19 }
20 }
21
22 public static function init()
23 {
24 if (isset(MiniWiki::$patternsWiki[0])) {
25 return;
26 }
27 MiniWiki::Markup(0, "/(\r\n|\r([^\n]))/", "\n$2", "\n$2");
28
29 // retours à la ligne avec \\
30 MiniWiki::Markup(1, "/\\\\(?".">(\\\\*))\n/e", "str_repeat('<br />\n',strlen('$1'))", "str_repeat('\n',strlen('$1'))", "ligne1\\\\\nligne2");
31
32 // bold, italic and others
33 // ''' bold '''
34 MiniWiki::Markup(2, "/'''(.*?)'''/",'<strong>$1</strong>','*$1*', "'''gras'''");
35 // '' italic ''
36 MiniWiki::Markup(3, "/''(.*?)''/",'<em>$1</em>','/$1/', "''italique''");
37 // '+ big +'
38 MiniWiki::Markup(4, "/'\\+(.*?)\\+'/",'<big>$1</big>','*$1*', "'+grand+'");
39 // '- small -'
40 MiniWiki::Markup(5, "/'\\-(.*?)\\-'/",'<small>$1</small>','$1', "'-petit-'");
41 // '^superscript^'
42 MiniWiki::Markup(6, "/'\\^(.*?)\\^'/",'<sup>$1</sup>','$1', "'^exposant^'");
43 // '_subscript_'
44 MiniWiki::Markup(7, "/'_(.*?)_'/",'<sub>$1</sub>','$1', "'_indice_'");
45 // {+ underline +}
46 MiniWiki::Markup(8, "/\\{\\+(.*?)\\+\\}/",'<ins>$1</ins>','_$1_', "{+insertion+}");
47 // {- strikeout -}
48 MiniWiki::Markup(9, "/\\{-(.*?)-\\}/",'<del>$1</del>','-$1-', "{-suppression-}");
49 // [+ big +] [++ bigger ++] [+++ even bigger +++] ...
50 MiniWiki::Markup(10, "/\\[(([-+])+)(.*?)\\1\\]/e","'<span style=\'font-size:'.(round(pow(6/5,$2strlen('$1'))*100,0)).'%\'>$3</span>'", "'$3'", "[+ grand +]\n\n[++ plus grand ++]\n\n[+++ encore plus grand +++]");
51
52 // ----- <hr/>
53 MiniWiki::Markup(11, "/(\n|^)--(--+| \n)/s", '$1<hr/>', '$1-- '."\n", "----\n");
54 // titles
55 MiniWiki::Markup(12, '/(\n|^)(!+)([^\n]*)/se', "'$1<h'.strlen('$2').'>$3</h'.strlen('$2').'>'", "'$1$3'",
56 "!titre1\n\n!!titre2\n\n!!!titre3");
57
58 // * unordered list
59 MiniWiki::Markup(13, "/(^|\n)\*(([^\n]*(\n|$))(\*[^\n]*(\n|$))*)/se", "'<ul><li>'.str_replace(\"\\n*\",'</li><li>','$2').'</li></ul>'", "$0", "* element1\n* element2\n* element3");
60 // # unordered list
61 MiniWiki::Markup(14, "/(^|\n)#(([^\n]*(\n|$))(#[^\n]*(\n|$))*)/se", "'<ol><li>'.str_replace(\"\\n#\",'</li><li>','$2').'</li></ol>'", "$0", "# element1\n# element2\n# element3");
62
63 // links
64 MiniWiki::Markup(15, '/((?:https?|ftp):\/\/(?:\.*,*[\w@~%$£µ&i#\-+=_\/\?;])*)/ui', '<a href="\\0">\\0</a>', '[\\0]');
65 MiniWiki::Markup(16, '/(\s|^|\\[\\[)www\.((?:\.*,*[\w@~%$£µ&i#\-+=_\/\?;])*)/iu', '\\1<a href="http://www.\\2">www.\\2</a>', '[http://www.\\2]');
66 MiniWiki::Markup(17, '/(?:mailto:)?([a-z0-9.\-+_]+@([\-.+_]?[a-z0-9])+)/i', '<a href="mailto:\\0">\\0</a>', '[mailto:\\0]');
67 MiniWiki::Markup(18, '/\\[\\[\\s*<a href="([^>]*)">.*<\/a>\\s*\|([^\\]]+)\\]\\]/i', '<a href="\\1">\\2</a>', '\\2 [\\1]', "[[http://www.example.com|Mon site web]]\n\nhttp://www.example.com\n\ntest@example.com");
68
69 // paragraphs and empty lines
70 MiniWiki::Markup(19, "/\n\n/", '</p><p>', "\n\n", "paragraphe1\n\nparagraphe2");
71 MiniWiki::Markup(20, "/\n/", ' ', "\n");
72 MiniWiki::Markup(21, "/^.*<\/p><p>.*$/s", "<p>$0</p>", "$0");
73 }
74
75 public static function WikiToHTML($wiki, $title = false)
76 {
77 if (!$title) {
78 $oldrule12 = MiniWiki::$replacementHTML[12];
79 MiniWiki::$replacementHTML[12] = "'$0'";
80 }
81 $html = preg_replace(MiniWiki::$patternsWiki,
82 MiniWiki::$replacementHTML,
83 htmlentities(trim($wiki), ENT_COMPAT, 'UTF-8'));
84 if (!$title) {
85 MiniWiki::$replacementHTML[12] = $oldrule12;
86 }
87 return $html;
88 }
89
90 private static function justify($text,$n)
91 {
92 $arr = explode("\n",wordwrap($text,$n));
93 $arr = array_map('trim',$arr);
94 $res = '';
95 foreach ($arr as $key => $line) {
96 $nxl = isset($arr[$key+1]) ? trim($arr[$key+1]) : '';
97 $nxl_split = preg_split('! +!',$nxl);
98 $nxw_len = count($nxl_split) ? strlen($nxl_split[0]) : 0;
99 $line = trim($line);
100
101 if (strlen($line)+1+$nxw_len < $n) {
102 $res .= "$line\n";
103 continue;
104 }
105
106 if (preg_match('![.:;]$!',$line)) {
107 $res .= "$line\n";
108 continue;
109 }
110
111 $tmp = preg_split('! +!',trim($line));
112 $words = count($tmp);
113 if ($words <= 1) {
114 $res .= "$line\n";
115 continue;
116 }
117
118 $len = array_sum(array_map('strlen',$tmp));
119 $empty = $n - $len;
120 $sw = floatval($empty) / floatval($words-1);
121
122 $cur = 0;
123 $l = '';
124 foreach ($tmp as $word) {
125 $l .= $word;
126 $cur += $sw + strlen($word);
127 $l = str_pad($l,intval($cur+0.5));
128 }
129 $res .= trim($l)."\n";
130 }
131 return trim($res);
132 }
133
134
135 public static function WikiToText($wiki, $just=false, $indent=0, $width=68, $title=false)
136 {
137 if (!$title) {
138 $oldrule12 = MiniWiki::$replacementHTML[12];
139 MiniWiki::$replacementHTML[12] = "'$0'";
140 }
141 $text = preg_replace(MiniWiki::$patternsWiki, MiniWiki::$replacementText, trim($wiki));
142 if (!$title) {
143 MiniWiki::$replacementHTML[12] = $oldrule12;
144 }
145 $text = $just ? MiniWiki::justify($text,$width-$indent) : wordwrap($text,$width-$indent);
146 if($indent) {
147 $ind = str_pad('',$indent);
148 $text = $ind.str_replace("\n","\n$ind",$text);
149 }
150 return $text;
151 }
152
153 static public function help($with_title = false)
154 {
155 if (!$with_title) {
156 $info12 = MiniWiki::$info[12];
157 unset(MiniWiki::$info[12]);
158 }
159
160 $res = array();
161 foreach (MiniWiki::$info as $value) {
162 $res[$value] = MiniWiki::wikiToHtml($value, true);
163 }
164
165 if (!$with_title) {
166 MiniWiki::$info[12] = $info12;
167 }
168 return $res;
169 }
170 }
171
172 MiniWiki::init();
173
174 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
175 ?>