@@ -353,6 +353,14 @@ inlineToParElems (Code _ str) = do
353353 inlineToParElems $ Str str
354354inlineToParElems (Math mathtype str) =
355355 return [MathElem mathtype (TeXString str)]
356+inlineToParElems (Note blks) = do
357+ notes <- gets stNoteIds
358+ let maxNoteId = case M.keys notes of
359+ [] -> 0
360+ lst -> maximum lst
361+ curNoteId = maxNoteId + 1
362+ modify $ \st -> st { stNoteIds = M.insert curNoteId blks notes }
363+ inlineToParElems $ Superscript [Str $ show curNoteId]
356364inlineToParElems (Span _ ils) = concatMapM inlineToParElems ils
357365inlineToParElems (RawInline _ _) = return []
358366inlineToParElems _ = return []