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