Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Biblio: Make sure mvPunc and deNote run on metadata too.

Browse source 
This fixed a bug with notes on titles using footnote styles.
This commit is contained in:
John MacFarlane 2013-01-08 17:23:56 -08:00
parent d1ebde08a9
commit 7a40fa8c08
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/Text/Pandoc/Biblio.hs
View file

@ -53,9 +53,8 @@ processBiblio (Just style) r p =
map (map toCslCite) grps)
cits_map = M.fromList $ zip grps (citations result)
biblioList = map (renderPandoc' style) (bibliography result)
Pandoc m b = bottomUp (processCite style cits_map) p'
b' = bottomUp mvPunct $ deNote b
in Pandoc m $ b' ++ biblioList
Pandoc m b = bottomUp mvPunct . deNote . bottomUp (processCite style cits_map) $ p'
in Pandoc m $ b ++ biblioList
-- | Substitute 'Cite' elements with formatted citations.
processCite :: Style -> M.Map [Citation] [FormattedOutput] -> Inline -> Inline
@ -89,7 +88,7 @@ sanitize :: [Inline] -> [Inline]
sanitize xs | endWithPunct xs = toCapital xs
| otherwise = toCapital (xs ++ [Str "."])
deNote :: [Block] -> [Block]
deNote :: Pandoc -> Pandoc
deNote = topDown go
where go (Note [Para xs]) = Note $ bottomUp go' [Para $ sanitize xs]
go (Note xs) = Note $ bottomUp go' xs