aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2014-08-23 20:51:18 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2014-08-23 20:52:09 -0700
commit0ef1f787c7a243d6cbc64f60dcb38b218608f2b8 (patch)
tree739884875354768a6623be1798063b3814456299
parent2956ef251c815c332679ff4666031a5b7a65aadc (diff)
downloadpandoc-0ef1f787c7a243d6cbc64f60dcb38b218608f2b8.tar.gz
Docx writer: Bibliography entries get Bibliography style.
Closes #1559.
-rw-r--r--README6
-rw-r--r--data/reference.docxbin8592 -> 8619 bytes
-rw-r--r--src/Text/Pandoc/Writers/Docx.hs8
3 files changed, 9 insertions, 5 deletions
diff --git a/README b/README
index af46d520b..6966f44c0 100644
--- a/README
+++ b/README
@@ -551,9 +551,9 @@ Options affecting specific writers
used. The following styles are used by pandoc: [paragraph]
Normal, Compact, Title, Subtitle, Authors, Date, Abstract, Heading 1,
Heading 2, Heading 3, Heading 4, Heading 5, Block Quote, Definition Term,
- Definition, Body Text, Table Caption, Image Caption; [character] Default
- Paragraph Font, Body Text Char, Verbatim Char, Footnote Ref,
- Link.
+ Definition, Bibliography, Body Text, Table Caption, Image Caption;
+ [character] Default Paragraph Font, Body Text Char, Verbatim Char,
+ Footnote Ref, Link.
`--epub-stylesheet=`*FILE*
: Use the specified CSS file to style the EPUB. If no stylesheet
diff --git a/data/reference.docx b/data/reference.docx
index 08059eb3c..0c717b3b6 100644
--- a/data/reference.docx
+++ b/data/reference.docx
Binary files differ
diff --git a/src/Text/Pandoc/Writers/Docx.hs b/src/Text/Pandoc/Writers/Docx.hs
index fbf38e6f1..b283238da 100644
--- a/src/Text/Pandoc/Writers/Docx.hs
+++ b/src/Text/Pandoc/Writers/Docx.hs
@@ -532,13 +532,17 @@ getUniqueId = liftIO $ (show . (+ 20) . hashUnique) `fmap` newUnique
-- | Convert a Pandoc block element to OpenXML.
blockToOpenXML :: WriterOptions -> Block -> WS [Element]
blockToOpenXML _ Null = return []
+blockToOpenXML opts (Div (_,["references"],_) bs) = do
+ let (hs, bs') = span isHeaderBlock bs
+ header <- blocksToOpenXML opts hs
+ -- We put the Bibliography style on paragraphs after the header
+ rest <- withParaProp (pStyle "Bibliography") $ blocksToOpenXML opts bs'
+ return (header ++ rest)
blockToOpenXML opts (Div _ bs) = blocksToOpenXML opts bs
blockToOpenXML opts (Header lev (ident,_,_) lst) = do
-
paraProps <- withParaProp (pStyle $ "Heading" ++ show lev) $
getParaProps False
contents <- inlinesToOpenXML opts lst
-
usedIdents <- gets stSectionIds
let bookmarkName = if null ident
then uniqueIdent lst usedIdents