[Docx Writer] Add bookmarks to code blocks
commitd3c8acd07b713a6fc9c8e1016c8e18d151343b9b
authorNikolay Yakimov <root@livid.pp.ru>
dateWed 7 Nov 2018, 23:17 (8 years ago)
parent06e207c
src/Text/Pandoc/Writers/Docx.hs+2−2
@@ -934,10 +934,10 @@ blockToOpenXML' opts (BlockQuote blocks) = do
934934 p <- withParaPropM (pStyleM "Block Text") $ blocksToOpenXML opts blocks
935935 setFirstPara
936936 return p
937−blockToOpenXML' opts (CodeBlock attrs str) = do
937+blockToOpenXML' opts (CodeBlock attrs@(ident, _, _) str) = do
938938 p <- withParaProp (pCustomStyle "SourceCode") (blockToOpenXML opts $ Para [Code attrs str])
939939 setFirstPara
940− return p
940+ wrapBookmark ident p
941941blockToOpenXML' _ HorizontalRule = do
942942 setFirstPara
943943 return [