|
|
|
@ -89,25 +89,6 @@ sub img {
|
|
|
|
|
return sprintf("![%s](%s%s)", $alt, $attrs->{src}, $title); |
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
sub span { |
|
|
|
|
my ($self, $attrs, $content) = @_; |
|
|
|
|
|
|
|
|
|
return sprintf "``%s``", $content |
|
|
|
|
if ($attrs->{'font-family'} and $attrs->{'font-family'} eq 'monospace'); |
|
|
|
|
|
|
|
|
|
$content = $self->treewalk($content); |
|
|
|
|
return sprintf "__%s__", $content |
|
|
|
|
if ($attrs->{'text-decoration'} and $attrs->{'text-decoration'} eq 'underline'); |
|
|
|
|
|
|
|
|
|
return sprintf "**%s**", $content |
|
|
|
|
if ($attrs->{'font-weight'} and $attrs->{'font-weight'} eq 'bold'); |
|
|
|
|
|
|
|
|
|
return sprintf "//%s//", $content |
|
|
|
|
if ($attrs->{'font-family'} and $attrs->{'font-family'} eq 'italic'); |
|
|
|
|
|
|
|
|
|
return $content; |
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
sub blockquote { |
|
|
|
|
my ($self, $attrs, $content) = @_; |
|
|
|
|
|
|
|
|
|