@@ -382,6 +382,9 @@ inlineToParElems (Note blks) = do
382 modify $ \st -> st { stNoteIds = M.insert curNoteId blks notes }
382 modify $ \st -> st { stNoteIds = M.insert curNoteId blks notes }
383 local (\env -> env{envRunProps = (envRunProps env){rLink = Just $ InternalTarget endNotesSlideId}}) $
383 local (\env -> env{envRunProps = (envRunProps env){rLink = Just $ InternalTarget endNotesSlideId}}) $
384 inlineToParElems $ Superscript [Str $ show curNoteId]
384 inlineToParElems $ Superscript [Str $ show curNoteId]
385+inlineToParElems (Span (_, ["underline"], _) ils) =
386+ local (\r -> r{envRunProps = (envRunProps r){rPropUnderline=True}}) $
387+ inlinesToParElems ils
385inlineToParElems (Span _ ils) = inlinesToParElems ils
388inlineToParElems (Span _ ils) = inlinesToParElems ils
386inlineToParElems (Quoted quoteType ils) =
389inlineToParElems (Quoted quoteType ils) =
387 inlinesToParElems $ [Str open] ++ ils ++ [Str close]
390 inlinesToParElems $ [Str open] ++ ils ++ [Str close]