lib - Unnamed repository; edit this file 'description' to name the repository.

summary refs log tree commit diff

path: root/8af

diff options

Diffstat (limited to '8af')

0 files changed, 0 insertions, 0 deletions

oc 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

(?:

(?'active'active)

(?'done'done)

(?'crit'crit)

(?'milestone'milestone)

)\s*+

,\s*+

)?+

(?:

# optional tertiary item

(?:

(?'taskID'(?&id))\s*+

,\s*+

(?=.*,) # several items must follow

)?+

# optional secondary item

(?:

(?'startDate'(?&date))

after

(?'afterTaskIDs'

(?:\s+(?&id))++

)

)\s*+

,\s*+

)?+

# required main item

(?:

(?'endDate'(?&date))

until

(?'untilTaskIDs'

(?:\s+(?&id))++

)

(?'duration'\d+)

\s*+d

)\s*+

(?(DEFINE)

(?'id'[^\s\d,][^\s,]*+) # assume digit as lead caracter is illegal

(?'date'\d\d\d\d(?:-\d\d(?:-\d\d)?+)?+)

)

$/x

or defined( $+{comment} )

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


context:
space:
mode: