* ::Markdown->span

lib/Text/Dokuwiki/Render/Markdown.pm

@@ -73,4 +73,25 @@ sub img {
   return sprintf("![%s](%s%s)", $alt, $attrs->{src}, $title);
 }
 
+use Data::Dumper;
+
+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;
+}
+
 1;