@@ -131,13 +131,22 @@ blockToAsciiDoc _ HorizontalRule =
131blockToAsciiDoc opts (Header level (ident,_,_) inlines) = do
131blockToAsciiDoc opts (Header level (ident,_,_) inlines) = do
132 contents <- inlineListToAsciiDoc opts inlines
132 contents <- inlineListToAsciiDoc opts inlines
133 let len = offset contents
133 let len = offset contents
134− return $ ("[[" <> text ident <> "]]") $$ contents $$
134+ -- ident seem to be empty most of the time and asciidoc will generate them automatically
135+ -- so lets make them not show up when null
136+ let identifier = if (null ident) then empty else ("[[" <> text ident <> "]]")
137+ let setext = writerSetextHeaders opts
141+ identifier $$ contents $$
135− (case level of
142+ (case level of
136 1 -> text $ replicate len '-'
143 1 -> text $ replicate len '-'
137 2 -> text $ replicate len '~'
144 2 -> text $ replicate len '~'
138 3 -> text $ replicate len '^'
145 3 -> text $ replicate len '^'
139 4 -> text $ replicate len '+'
146 4 -> text $ replicate len '+'
140 _ -> empty) <> blankline
147 _ -> empty) <> blankline
149+ identifier $$ text (replicate level '=') <> space <> contents <> blankline)
141blockToAsciiDoc _ (CodeBlock (_,classes,_) str) = return $
150blockToAsciiDoc _ (CodeBlock (_,classes,_) str) = return $
142 flush (attrs <> dashes <> space <> attrs <> cr <> text str <>
151 flush (attrs <> dashes <> space <> attrs <> cr <> text str <>
143 cr <> dashes) <> blankline
152 cr <> dashes) <> blankline