|
|
@ -104,4 +104,17 @@ sub pre { |
|
|
|
return join("\n", @lines); |
|
|
|
return join("\n", @lines); |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
sub codeblock { |
|
|
|
|
|
|
|
my ($self, $attrs, $content) = @_; |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
my $out; |
|
|
|
|
|
|
|
$out = "```"; |
|
|
|
|
|
|
|
$out .= $attrs->{syntax} if $attrs->{syntax}; |
|
|
|
|
|
|
|
$out .= "\n"; |
|
|
|
|
|
|
|
$out .= $content . "\n"; |
|
|
|
|
|
|
|
$out .= "```\n"; |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
return $out; |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
1; |
|
|
|
1; |
|
|
|