From 552f52cac5e78ecb7d39ead7c7aed9fe0c2ee3d6 Mon Sep 17 00:00:00 2001
From: Zubrikhin Alexey <zubrihin@v-lazer.com>
Date: Fri, 26 Jun 2015 14:12:46 +1000
Subject: [PATCH] * Text::Dokuwiki::Render::Markdown : 'named' anchor

---
 lib/Text/Dokuwiki/Render/Markdown.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lib/Text/Dokuwiki/Render/Markdown.pm b/lib/Text/Dokuwiki/Render/Markdown.pm
index eb510ce..952554b 100644
--- 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 {