parent
e6a536befc
commit
56dddcc3f5
2 changed files with 11 additions and 1 deletions
|
@ -869,7 +869,7 @@ latexEnd envName = try $
|
|||
--
|
||||
noteBlock :: PandocMonad m => OrgParser m (F Blocks)
|
||||
noteBlock = try $ do
|
||||
ref <- noteMarker <* skipSpaces
|
||||
ref <- noteMarker <* skipSpaces <* updateLastPreCharPos
|
||||
content <- mconcat <$> blocksTillHeaderOrNote
|
||||
addToNotesTable (ref, content)
|
||||
return mempty
|
||||
|
|
|
@ -1028,6 +1028,16 @@ tests =
|
|||
, note $ para ("Second" <> space <> "note.")
|
||||
])
|
||||
|
||||
, "Footnote that starts with emphasized text" =:
|
||||
unlines [ "text[fn:1]"
|
||||
, ""
|
||||
, "[fn:1] /emphasized/"
|
||||
] =?>
|
||||
para (mconcat
|
||||
[ "text"
|
||||
, note . para $ emph "emphasized"
|
||||
])
|
||||
|
||||
, "Footnote followed by header" =:
|
||||
unlines [ "Another note[fn:yay]"
|
||||
, ""
|
||||
|
|
Loading…
Reference in a new issue