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