diff options
| author | Vaibhav Sagar <vaibhavsagar@gmail.com> | 2020-04-28 22:53:06 +0800 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-04-28 07:53:06 -0700 |
| commit | 9c2b659eeb196145f62d8eae0072c279a7c2d751 (patch) | |
| tree | f3c97feb0f1d063e2a7c65904c9fbe1591104a05 /src/Text/Pandoc/Writers/CommonMark.hs | |
| parent | 8d09a92d979126a53ec72ec73294ad04f811e9a7 (diff) | |
| download | pandoc-9c2b659eeb196145f62d8eae0072c279a7c2d751.tar.gz | |
Support new Underline element in readers and writers (#6277)
Deprecate `underlineSpan` in Shared in favor of `Text.Pandoc.Builder.underline`.
Diffstat (limited to 'src/Text/Pandoc/Writers/CommonMark.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/CommonMark.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Writers/CommonMark.hs b/src/Text/Pandoc/Writers/CommonMark.hs index bab74c77c..ca6a4e334 100644 --- a/src/Text/Pandoc/Writers/CommonMark.hs +++ b/src/Text/Pandoc/Writers/CommonMark.hs @@ -237,6 +237,11 @@ inlineToNodes opts SoftBreak | writerWrapText opts == WrapNone = (node (TEXT " ") [] :) | otherwise = (node SOFTBREAK [] :) inlineToNodes opts (Emph xs) = (node EMPH (inlinesToNodes opts xs) :) +inlineToNodes opts (Underline xs) + | isEnabled Ext_raw_html opts = + ((node (HTML_INLINE (T.pack "<u>")) [] : inlinesToNodes opts xs ++ + [node (HTML_INLINE (T.pack "</u>")) []]) ++ ) + | otherwise = (node EMPH (inlinesToNodes opts xs) :) inlineToNodes opts (Strong xs) = (node STRONG (inlinesToNodes opts xs) :) inlineToNodes opts (Strikeout xs) | isEnabled Ext_strikeout opts = (node (CUSTOM_INLINE "~~" "~~") (inlinesToNodes opts xs) :) |