From c544f20d6fc2771a9a7bb4fe38e4cb9fe18e14d2 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Thu, 6 Sep 2012 09:25:52 -0700
Subject: Made --id-prefix work in DocBook as well as HTML.

Closes #607.
---
 src/Text/Pandoc/Writers/Docbook.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

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')
 
-- 
cgit v1.2.3