|
|
@ -236,6 +236,8 @@ sub parse { |
|
|
|
my $level = length($+{line}); |
|
|
|
my $level = length($+{line}); |
|
|
|
$level = 7 - $level; # invert |
|
|
|
$level = 7 - $level; # invert |
|
|
|
push @tree, ["h$level" => {}, $+{header}]; |
|
|
|
push @tree, ["h$level" => {}, $+{header}]; |
|
|
|
|
|
|
|
} elsif ($text =~ m/\G$rx->{hrule}/cgi) { |
|
|
|
|
|
|
|
push @tree, [hr => {}]; |
|
|
|
} elsif ($text =~ m/\G$rx->{codeblock}/cgi) { |
|
|
|
} elsif ($text =~ m/\G$rx->{codeblock}/cgi) { |
|
|
|
my $attrs = {}; |
|
|
|
my $attrs = {}; |
|
|
|
$attrs->{type} = $+{tag}; |
|
|
|
$attrs->{type} = $+{tag}; |
|
|
|