play - website: curious and playful approach to studying at RUC

Age	Commit message (Collapse)	Author
2024-02-02	add spring 2024 project drafts	Jonas Smedegaard

class="hl">

hedgedoc2quarto - convert HedgeDoc content to Quarto

=head1 VERSION

Version 0.0.1

=head1 SYNOPSIS

hedgedoc2quarto INFILE OUTFILE

hedgedoc2quarto < INFILE > OUTFILE

=head1 DESCRIPTION

B<hedgedoc2quarto> reformats text content

from HedgeDoc- to Quarto-flavored Markdown,

and adapts embedded diagram code.

Both HedgeDoc and Quarto uses Markdown,

but different flavors,

and whereas both handle (different subsets of) Mermaid diagrams,

Quarto also (through plugins) handles PlantUML diagrams.

=cut

# slurp INFILE if passed as first argument, or else STDIN

my ( $infile, $outfile, $bogus ) = @ARGV;

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'

# FIXME: implement option to choose output diagram language

# "{mermaid}\n\%\%| fig-width: 100\%\n"

# . &mmd2mmd( $+{type}, $+{code} )

"{.plantuml}\n\%\%| fig-width: 100\%\n"

. &mmd2puml( $+{type}, $+{code} )

. $+{fence}

/gsmex;

if ($outfile) {

open( FH, '>', $outfile ) or die $!;

print FH $content;

}

else {

print $content;

}

sub mmd2mmd ( $type, $code )

{

# strip special comment marker '%%QUARTO%%'

$code =~ s/^\s*+\K%%QUARTO%%//gm;

return "$type\n$code";

}

sub mmd2puml ( $type, $code )

{

my @newcode;

# strip special comment marker '%%QUARTO%%'

$code =~ s/^\s*+\K%%QUARTO%%//gm;

open my $fh, '<', \$code or die $!;

while (<$fh>) {

/^\s*+$/

and push @newcode, ''

and next;

/^(\s*+)%%PLANTUML%%\K.*/

and push @newcode, "$1$&"

and next;

# convert comments markers

/^(\s*+)(?:[%]{2,}(?'comment'\s*+))?+\K.*/;

my $indent = defined( $+{comment} ) ? "$1'$2" : $1;

$_ = $&;

/^title\s/i

and push @newcode, "${indent}$_"

and next;

/^excludes\s+weekends\b/i

and push @newcode, "${indent}saturday are closed"

and push @newcode, "${indent}sunday are closed"

and next;

and push @newcode, "${indent}weeks start on $&"

and next;

/^(?:date|axis)Format\s/i

and push @newcode, "${indent}'UNSUPPORTED: $_"

and next;

/^todayMarker\s+(off|on)\b/i

and push @newcode, "${indent}'UNSUPPORTED' $_"

and next;

/^section\s+\K\S+(?:\s+\S+)*/i

and push @newcode, "${indent}-- $& --"

and next;

)

{

push @newcode, "${indent}projectscale daily"

and next

if $+{tickAmount} eq 1

and $+{tickUnit} eq 'day';

push @newcode, "${indent}projectscale weekly" and next

if $+{tickAmount} eq 1 and $+{tickUnit} eq 'week'

or $+{tickAmount} eq 7 and $+{tickUnit} eq 'day';

push @newcode, "${indent}projectscale monthly"

and next

if $+{tickAmount} eq 1

and $+{tickUnit} eq 'month';

push @newcode, "${indent}projectscale quarterly"

and next

if $+{tickAmount} eq 3

and $+{tickUnit} eq 'month';

push @newcode, "${indent}projectscale yearly"

and next

if $+{tickAmount} eq 12

and $+{tickUnit} eq 'month';

push @newcode, "${indent}'UNSUPPORTED' $&"

and next;

}

(?'title'[^:\n]+)

\s*+:\s*+

# optional tags

(?: