From 29cee1399c977def72f1c8e1e13d83a841b75c89 Mon Sep 17 00:00:00 2001
From: Jonas Smedegaard <dr@jones.dk>
Date: Sun, 31 Mar 2024 19:26:24 +0200
Subject: tighten regex; strip special comment marker '%%QUARTO%%'

---
 bin/hedgedoc2quarto | 17 +++++++++++------
 1 file changed, 11 insertions(+), 6 deletions(-)

(limited to 'bin')

diff --git a/bin/hedgedoc2quarto b/bin/hedgedoc2quarto
index 6640b26..c0bde3b 100755
--- a/bin/hedgedoc2quarto
+++ b/bin/hedgedoc2quarto
@@ -36,12 +36,17 @@ die 'Too many arguments: expected INFILE and OUTFILE' if $bogus;
 @ARGV = ($infile) if $infile;
 my $content = do { local $/ = undef; <> };
 
-$content
-	=~ s/^(?'fence'[``~]{3,})\s*\Kmermaid\n(?'type'gantt)\n(?'code'.*?\n)\k'fence'$/
+$content =~ s/^
+		(?'fence'[``~]{3,})\s*
+		\Kmermaid\n
+		(?'type'gantt)\n
+		(?'code'.*?\n)
+		\k'fence'
+	$/
 	"{mermaid}\n\%\%| fig-width: 100\%\n"
 	. &mmd2mmd( $+{type}, $+{code} )
 	. $+{fence}
-	/gsme;
+	/gsmex;
 
 if ($outfile) {
 	open( FH, '>', $outfile ) or die $!;
@@ -53,9 +58,9 @@ else {
 
 sub mmd2mmd ( $type, $code )
 {
-	if ( $type eq 'gantt' ) {
-		$code = "tickInterval 1month\n$code";
-	}
+
+	# strip special comment marker '%%QUARTO%%'
+	$code =~ s/^\s*+\K%%QUARTO%%//gm;
 
 	return "$type\n$code";
 }
-- 
cgit v1.2.3