From eea359203ac7f861ac9536b39e639f6c65579501 Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Fri, 29 Dec 2006 08:04:39 +0000
Subject: Reversed changes from r246: + Removed invisible anchors in front of
 header tags in HTML output.   Reason:  no way to prevent duplicate ID
 attributes (which is invalid   HTML), since there might be duplicate header
 titles.  See  
 http://six.pairlist.net/pipermail/markdown-discuss/2005-January/000975.html.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@306 788f1e2b-df1e-0410-8736-df70ead52e1b
---
 src/Text/Pandoc/Writers/HTML.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'src/Text/Pandoc/Writers/HTML.hs')

diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs
index 7d4e8891f..effede04c 100644
--- a/src/Text/Pandoc/Writers/HTML.hs
+++ b/src/Text/Pandoc/Writers/HTML.hs
@@ -228,10 +228,8 @@ blockToHtml options (OrderedList lst) =
 blockToHtml options HorizontalRule = "<hr />\n"
 blockToHtml options (Header level lst) = 
   let contents = inlineListToHtml options lst in
-  let simplify = gsub "<[^>]*>" ""  . gsub " " "_" in
   if ((level > 0) && (level <= 6))
-      then "<a id=\"" ++ simplify contents ++ "\"></a>\n" ++
-           "<h" ++ (show level) ++ ">" ++ contents ++ 
+      then "<h" ++ (show level) ++ ">" ++ contents ++ 
            "</h" ++ (show level) ++ ">\n"
       else "<p>" ++ contents ++ "</p>\n"
 listItemToHtml options list = 
-- 
cgit v1.2.3