From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 15 May 2021 21:51:24 +0000 (+0200)
Subject: widget/reply: formatting syntax for unordered lists
X-Git-Tag: v5.3~2
X-Git-Url: http://git.shiar.nl/minimedit.git/commitdiff_plain/5aa7946eabd147041a42f3347f447eb53ee0cc47?hp=52aab71e2268171618efe0f8f8e683b9bc5406f6

widget/reply: formatting syntax for unordered lists

More complicated block formatting replacing paragraphs by list items.
Keep to consecutive regular expressions and html herding while possible
instead of complicated code nesting or parsers.
---

diff --git a/upload.inc.php b/upload.inc.php
index 4f5c5fe..b4a056d 100644
--- a/upload.inc.php
+++ b/upload.inc.php
@@ -57,12 +57,13 @@ function messagehtml($input)
 		'{<([^>\s|]+)[\s|]([^>]+)>}'   => '<a href="$1">$2</a>', # hyperlink
 		"/\r\n?/" => "\n",        # unix newlines
 		"/  +\n/" => "<br />",    # trailing spaces for hard line break
-		"/\n/"    => "</p>\n<p>", # newlines start paragraphs
+		"/^[-*] (.*)$\n?/m"            => '<li>$1</li>',         # list item
+		"/^(.+)$\n?/m"                 => "<p>$1</p>\n",         # paragraph
+		"{^<p>(<li>.*</li>)(?:</p>\n)?}m" => "<ul>$1</ul>\n",    # list container
 		'/_(?<!\w_)(.+?)_(?!\w)/'      => '<em>$1</em>',         # italic
 		'/\*(?<!\w\*)(.+?)\*(?!\w)/'   => '<strong>$1</strong>', # bold
 		'/~(?<!\w~)(.+?)~(?!\w)/'      => '<s>$1</s>',           # stricken
 		'/`(?<!\w`)(.+?)`(?!\w)/'      => '<code>$1</code>',     # monospace
 	];
-	$html = preg_replace(array_keys($markup), array_values($markup), htmlspecialchars($input));
-	return "<p>$html</p>";
+	return preg_replace(array_keys($markup), array_values($markup), htmlspecialchars($input));
 }