|
|
|
@ -91,4 +91,17 @@ sub span {
|
|
|
|
|
return $content; |
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
sub sup { |
|
|
|
|
my ($self, $attrs, $content) = @_; |
|
|
|
|
|
|
|
|
|
return "<sup>" . $self->treewalk($content) . "</sup>"; |
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
sub blockquote { |
|
|
|
|
my ($self, $attrs, $content) = @_; |
|
|
|
|
|
|
|
|
|
my @out = map { "> $_\n" } split /\r?\n/, $content; |
|
|
|
|
return join("\n", @out); |
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
1; |
|
|
|
|