From 02c83c9638a4701bf223eb4cbf57cfa2587a5a0a Mon Sep 17 00:00:00 2001
From: Jonas Smedegaard <dr@jones.dk>
Date: Fri, 3 May 2024 16:10:54 +0200
Subject: handle dot graphs
---
bin/hedgedoc2quarto | 8 ++++++++
1 file changed, 8 insertions(+)
diff --git a/bin/hedgedoc2quarto b/bin/hedgedoc2quarto
index c81ddd5..5e2eb70 100755
--- a/bin/hedgedoc2quarto
+++ b/bin/hedgedoc2quarto
@@ -37,6 +37,14 @@ die 'Too many arguments: expected INFILE and OUTFILE' if $bogus;
@ARGV = ($infile) if $infile;
my $content = do { local $/ = undef; <> };
+# TODO: integrate with subroutine handler below
+$content =~ s/^
+ (?'fence'[``~]{3,})\s*
+ \Kgraphviz\n
+ (?'code'.*?\n)
+ \k'fence'
+ $/{dot}\n\/\/| fig-width: 100\%\n$+{code}$+{fence}/gsmx;
+
$content =~ s/^
(?'fence'[``~]{3,})\s*
\Kmermaid\n
--
cgit v1.2.3