3 * @copyright Copyright (C) 2020, Friendica
5 * @license GNU AGPL version 3 or any later version
7 * This program is free software: you can redistribute it and/or modify
8 * it under the terms of the GNU Affero General Public License as
9 * published by the Free Software Foundation, either version 3 of the
10 * License, or (at your option) any later version.
12 * This program is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 * GNU Affero General Public License for more details.
17 * You should have received a copy of the GNU Affero General Public License
18 * along with this program. If not, see <https://www.gnu.org/licenses/>.
22 namespace Friendica\Module\Debug;
24 use Friendica\BaseModule;
25 use Friendica\Content\Text;
26 use Friendica\Core\Renderer;
28 use Friendica\Model\Item;
29 use Friendica\Model\Tag;
30 use Friendica\Util\XML;
33 * Translates input text into different formats (HTML, BBCode, Markdown)
35 class Babel extends BaseModule
37 public static function content(array $parameters = [])
39 function visible_whitespace($s)
41 return '<pre>' . htmlspecialchars($s) . '</pre>';
45 if (!empty($_REQUEST['text'])) {
46 switch (($_REQUEST['type'] ?? '') ?: 'bbcode') {
48 $bbcode = trim($_REQUEST['text']);
50 'title' => DI::l10n()->t('Source input'),
51 'content' => visible_whitespace($bbcode)
54 $plain = Text\BBCode::toPlaintext($bbcode, false);
56 'title' => DI::l10n()->t('BBCode::toPlaintext'),
57 'content' => visible_whitespace($plain)
60 $html = Text\BBCode::convert($bbcode);
62 'title' => DI::l10n()->t('BBCode::convert (raw HTML)'),
63 'content' => visible_whitespace($html)
67 'title' => DI::l10n()->t('BBCode::convert'),
71 $bbcode2 = Text\HTML::toBBCode($html);
73 'title' => DI::l10n()->t('BBCode::convert => HTML::toBBCode'),
74 'content' => visible_whitespace($bbcode2)
77 $markdown = Text\BBCode::toMarkdown($bbcode);
79 'title' => DI::l10n()->t('BBCode::toMarkdown'),
80 'content' => visible_whitespace($markdown)
83 $html2 = Text\Markdown::convert($markdown);
85 'title' => DI::l10n()->t('BBCode::toMarkdown => Markdown::convert (raw HTML)'),
86 'content' => visible_whitespace($html2)
89 'title' => DI::l10n()->t('BBCode::toMarkdown => Markdown::convert'),
93 $bbcode3 = Text\Markdown::toBBCode($markdown);
95 'title' => DI::l10n()->t('BBCode::toMarkdown => Markdown::toBBCode'),
96 'content' => visible_whitespace($bbcode3)
99 $bbcode4 = Text\HTML::toBBCode($html2);
101 'title' => DI::l10n()->t('BBCode::toMarkdown => Markdown::convert => HTML::toBBCode'),
102 'content' => visible_whitespace($bbcode4)
105 $item = ['body' => $bbcode];
107 $tags = Text\BBCode::getTags($bbcode);
109 Item::setHashtags($item);
111 'title' => DI::l10n()->t('Item Body'),
112 'content' => visible_whitespace($item['body'])
115 'title' => DI::l10n()->t('Item Tags'),
116 'content' => visible_whitespace(var_export($tags, true)),
120 $diaspora = trim($_REQUEST['text']);
122 'title' => DI::l10n()->t('Source input (Diaspora format)'),
123 'content' => visible_whitespace($diaspora),
126 $markdown = XML::unescape($diaspora);
128 if (!isset($markdown)) {
129 $markdown = trim($_REQUEST['text']);
133 'title' => DI::l10n()->t('Source input (Markdown)'),
134 'content' => visible_whitespace($markdown),
137 $html = Text\Markdown::convert($markdown);
139 'title' => DI::l10n()->t('Markdown::convert (raw HTML)'),
140 'content' => visible_whitespace($html),
144 'title' => DI::l10n()->t('Markdown::convert'),
148 $bbcode = Text\Markdown::toBBCode($markdown);
150 'title' => DI::l10n()->t('Markdown::toBBCode'),
151 'content' => visible_whitespace($bbcode),
155 $html = trim($_REQUEST['text']);
157 'title' => DI::l10n()->t('Raw HTML input'),
158 'content' => visible_whitespace($html),
162 'title' => DI::l10n()->t('HTML Input'),
166 $bbcode = Text\HTML::toBBCode($html);
168 'title' => DI::l10n()->t('HTML::toBBCode'),
169 'content' => visible_whitespace($bbcode)
172 $html2 = Text\BBCode::convert($bbcode);
174 'title' => DI::l10n()->t('HTML::toBBCode => BBCode::convert'),
179 'title' => DI::l10n()->t('HTML::toBBCode => BBCode::convert (raw HTML)'),
180 'content' => htmlspecialchars($html2)
183 $bbcode2plain = Text\BBCode::toPlaintext($bbcode);
185 'title' => DI::l10n()->t('HTML::toBBCode => BBCode::toPlaintext'),
186 'content' => visible_whitespace($bbcode2plain),
189 $markdown = Text\HTML::toMarkdown($html);
191 'title' => DI::l10n()->t('HTML::toMarkdown'),
192 'content' => visible_whitespace($markdown)
195 $text = Text\HTML::toPlaintext($html, 0);
197 'title' => DI::l10n()->t('HTML::toPlaintext'),
198 'content' => visible_whitespace($text),
201 $text = Text\HTML::toPlaintext($html, 0, true);
203 'title' => DI::l10n()->t('HTML::toPlaintext (compact)'),
204 'content' => visible_whitespace($text),
209 $tpl = Renderer::getMarkupTemplate('babel.tpl');
210 $o = Renderer::replaceMacros($tpl, [
211 '$text' => ['text', DI::l10n()->t('Source text'), $_REQUEST['text'] ?? '', ''],
212 '$type_bbcode' => ['type', DI::l10n()->t('BBCode'), 'bbcode', '', (($_REQUEST['type'] ?? '') ?: 'bbcode') == 'bbcode'],
213 '$type_diaspora' => ['type', DI::l10n()->t('Diaspora'), 'diaspora', '', (($_REQUEST['type'] ?? '') ?: 'bbcode') == 'diaspora'],
214 '$type_markdown' => ['type', DI::l10n()->t('Markdown'), 'markdown', '', (($_REQUEST['type'] ?? '') ?: 'bbcode') == 'markdown'],
215 '$type_html' => ['type', DI::l10n()->t('HTML'), 'html', '', (($_REQUEST['type'] ?? '') ?: 'bbcode') == 'html'],
216 '$results' => $results