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

10 years ago · 552f52cac5
1 changed files with 4 additions and 1 deletions
--- a/lib/Text/Dokuwiki/Render/Markdown.pm
+++ b/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 {