diff options
author | John MacFarlane <jgm@berkeley.edu> | 2012-09-06 09:25:52 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2012-09-06 09:25:52 -0700 |
commit | c544f20d6fc2771a9a7bb4fe38e4cb9fe18e14d2 (patch) | |
tree | acd7e6cf4120705e7c44b00616f3b3a6317285e4 /src/Text/Pandoc | |
parent | fbab8e528646bcf9e2cd62bc06f24c577994f430 (diff) | |
download | pandoc-c544f20d6fc2771a9a7bb4fe38e4cb9fe18e14d2.tar.gz |
Made --id-prefix work in DocBook as well as HTML.
Closes #607.
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r-- | src/Text/Pandoc/Writers/Docbook.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Docbook.hs b/src/Text/Pandoc/Writers/Docbook.hs index e696fc63e..a38f57074 100644 --- a/src/Text/Pandoc/Writers/Docbook.hs +++ b/src/Text/Pandoc/Writers/Docbook.hs @@ -103,7 +103,7 @@ elementToDocbook opts lvl (Sec _ _num id' title elements) = n | n == 0 -> "chapter" | n >= 1 && n <= 5 -> "sect" ++ show n | otherwise -> "simplesect" - in inTags True tag [("id",id')] $ + in inTags True tag [("id", writerIdentifierPrefix opts ++ id')] $ inTagsSimple "title" (inlinesToDocbook opts title) $$ vcat (map (elementToDocbook opts (lvl + 1)) elements') |