From a0e99d55c598eb0f1a8491d828909beb5f053867 Mon Sep 17 00:00:00 2001
From: Johannes Schindelin <johannes.schindelin@gmx.de>
Date: Mon, 22 Feb 2010 14:44:14 +0100
Subject: [PATCH] move-wiki: do not touch body of {{{ }}} blocks

Signed-off-by: Johannes Schindelin <johannes.schindelin@gmx.de>
---
 bin/move-wiki.sh | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/bin/move-wiki.sh b/bin/move-wiki.sh
index 4dcef5c3..38614bab 100755
--- a/bin/move-wiki.sh
+++ b/bin/move-wiki.sh
@@ -17,9 +17,16 @@ NAMESPACE=MSysGit
 
 transform () {
 	perl -e 'while (<>) {
+		if ($_ eq "{{{\n") {
+			print "<code>\n";
+			while (<>) {
+				last if ($_ eq "}}}\n");
+				print $_;
+			}
+			print "</code>\n";
+			next;
+		}
 		s/^#.*/<!-- $& -->/;
-		s/{{{/<code>/g;
-		s/}}}/<\/code>/g;
 		s/`(.*?)`/<code>$1<\/code>/g;
 		s/(?<=\s)!([A-Z])/$1/g;
 		s/(?<!\[)\[(?![a-z]*:)([^\] ]+) +([^\]]+)\]/[[MSysGit:$1|$2]]/g;
-- 
2.11.4.GIT