]> git.mxchange.org Git - friendica.git/blob - src/Content/Text/Markdown.php
Only escape leading hash marks in Markdown::toBBCode
[friendica.git] / src / Content / Text / Markdown.php
1 <?php
2
3 /**
4  * @file src/Content/Text/Markdown.php
5  */
6
7 namespace Friendica\Content\Text;
8
9 use Friendica\BaseObject;
10 use Friendica\Model\Contact;
11 use Michelf\MarkdownExtra;
12
13 /**
14  * Friendica-specific usage of Markdown
15  *
16  * @author Hypolite Petovan <hypolite@mrpetovan.com>
17  */
18 class Markdown extends BaseObject
19 {
20         /**
21          * Converts a Markdown string into HTML. The hardwrap parameter maximizes
22          * compatibility with Diaspora in spite of the Markdown standard.
23          *
24          * @brief Converts a Markdown string into HTML
25          * @param string $text
26          * @param bool   $hardwrap
27          * @return string
28          * @throws \Exception
29          */
30         public static function convert($text, $hardwrap = true) {
31                 $stamp1 = microtime(true);
32
33                 $MarkdownParser = new MarkdownExtra();
34                 $MarkdownParser->hard_wrap = $hardwrap;
35                 $MarkdownParser->code_class_prefix = 'language-';
36                 $html = $MarkdownParser->transform($text);
37
38                 self::getApp()->saveTimestamp($stamp1, "parser");
39
40                 return $html;
41         }
42
43         /**
44          * @brief Callback function to replace a Diaspora style mention in a mention for Friendica
45          *
46          * @param array $match Matching values for the callback
47          *                     [1] = mention type (@ or !)
48          *                     [2] = name (optional)
49          *                     [3] = address
50          * @return string Replaced mention
51          * @throws \Friendica\Network\HTTPException\InternalServerErrorException
52          * @throws \ImagickException
53          */
54         private static function diasporaMention2BBCodeCallback($match)
55         {
56                 if ($match[3] == '') {
57                         return;
58                 }
59
60                 $data = Contact::getDetailsByAddr($match[3]);
61
62                 if (empty($data)) {
63                         return;
64                 }
65
66                 $name = $match[2];
67
68                 if ($name == '') {
69                         $name = $data['name'];
70                 }
71
72                 return $match[1] . '[url=' . $data['url'] . ']' . $name . '[/url]';
73         }
74
75         /*
76          * we don't want to support a bbcode specific markdown interpreter
77          * and the markdown library we have is pretty good, but provides HTML output.
78          * So we'll use that to convert to HTML, then convert the HTML back to bbcode,
79          * and then clean up a few Diaspora specific constructs.
80          */
81         public static function toBBCode($s)
82         {
83                 $s = html_entity_decode($s, ENT_COMPAT, 'UTF-8');
84
85                 // Replace lonely stars in lines not starting with it with literal stars
86                 $s = preg_replace('/^([^\*]+)\*([^\*]*)$/im', '$1\*$2', $s);
87
88                 // The parser cannot handle paragraphs correctly
89                 $s = str_replace(['</p>', '<p>', '<p dir="ltr">'], ['<br>', '<br>', '<br>'], $s);
90
91                 // Escaping hashtags that could be titles
92                 $s = preg_replace('/^\#([^\s\#])/im', '\#$1', $s);
93
94                 $s = self::convert($s);
95
96                 $regexp = "/([@!])\{(?:([^\}]+?); ?)?([^\} ]+)\}/";
97                 $s = preg_replace_callback($regexp, ['self', 'diasporaMention2BBCodeCallback'], $s);
98
99                 $s = HTML::toBBCode($s);
100
101                 // protect the recycle symbol from turning into a tag, but without unescaping angles and naked ampersands
102                 $s = str_replace('&#x2672;', html_entity_decode('&#x2672;', ENT_QUOTES, 'UTF-8'), $s);
103
104                 // Convert everything that looks like a link to a link
105                 $s = preg_replace('/([^\]=]|^)(https?\:\/\/)([a-zA-Z0-9:\/\-?&;.=_~#%$!+,@]+(?<!,))/ism', '$1[url=$2$3]$2$3[/url]', $s);
106
107                 //$s = preg_replace("/([^\]\=]|^)(https?\:\/\/)(vimeo|youtu|www\.youtube|soundcloud)([a-zA-Z0-9\:\/\-\?\&\;\.\=\_\~\#\%\$\!\+\,]+)/ism", '$1[url=$2$3$4]$2$3$4[/url]',$s);
108                 $s = BBCode::pregReplaceInTag('/\[url\=?(.*?)\]https?:\/\/www.youtube.com\/watch\?v\=(.*?)\[\/url\]/ism', '[youtube]$2[/youtube]', 'url', $s);
109                 $s = BBCode::pregReplaceInTag('/\[url\=https?:\/\/www.youtube.com\/watch\?v\=(.*?)\].*?\[\/url\]/ism'   , '[youtube]$1[/youtube]', 'url', $s);
110                 $s = BBCode::pregReplaceInTag('/\[url\=?(.*?)\]https?:\/\/vimeo.com\/([0-9]+)(.*?)\[\/url\]/ism'        , '[vimeo]$2[/vimeo]'    , 'url', $s);
111                 $s = BBCode::pregReplaceInTag('/\[url\=https?:\/\/vimeo.com\/([0-9]+)\](.*?)\[\/url\]/ism'              , '[vimeo]$1[/vimeo]'    , 'url', $s);
112
113                 // remove duplicate adjacent code tags
114                 $s = preg_replace('/(\[code\])+(.*?)(\[\/code\])+/ism', '[code]$2[/code]', $s);
115
116                 // Don't show link to full picture (until it is fixed)
117                 $s = BBCode::scaleExternalImages($s, false);
118
119                 return $s;
120         }
121 }