* Text::Dokuwiki::Render::Markdown : 'named' anchor

lib/Text/Dokuwiki/Render/Markdown.pm

@@ -59,7 +59,10 @@ sub li {
 sub a {
   my ($self, $attrs, $content) = @_;
 
-  return sprintf("[%s](%s)", $self->treewalk($content), $attrs->{href});
+  return qq[<a name="$attrs->{name}"></a> ] . $content
+    if ($attrs->{name});
+
+  return sprintf("[%s](%s)", $content, $attrs->{href});
 }
 
 sub p {