@@ -57,7 +57,7 @@ import Text.Pandoc.Logging
5757import Text.Pandoc.Options
5858import Text.Pandoc.Parsing
5959import Text.Pandoc.Readers.HTML (htmlTag)
60−import Text.Pandoc.Shared (crFilter)
60+import Text.Pandoc.Shared (crFilter, underlineSpan)
6161
6262-- | Read Muse from an input string and return a Pandoc document.
6363readMuse :: PandocMonad m
@@ -577,6 +577,7 @@ inlineList = [ endline
577577 , strongTag
578578 , emph
579579 , emphTag
580+ , underlined
580581 , superscriptTag
581582 , subscriptTag
582583 , strikeoutTag
@@ -666,6 +667,11 @@ strong = fmap B.strong <$> emphasisBetween (string "**")
666667emph :: PandocMonad m => MuseParser m (F Inlines)
667668emph = fmap B.emph <$> emphasisBetween (char '*')
668669
670+underlined :: PandocMonad m => MuseParser m (F Inlines)
671+underlined = do
672+ guardDisabled Ext_amuse -- Supported only by Emacs Muse
673+ fmap underlineSpan <$> emphasisBetween (char '_')
674+
669675emphTag :: PandocMonad m => MuseParser m (F Inlines)
670676emphTag = inlineTag B.emph "em"
671677