diff options
Diffstat (limited to 'src/Text/Pandoc/Writers/Textile.hs')
-rw-r--r-- | src/Text/Pandoc/Writers/Textile.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Writers/Textile.hs b/src/Text/Pandoc/Writers/Textile.hs index e68303cfe..61ddb7497 100644 --- a/src/Text/Pandoc/Writers/Textile.hs +++ b/src/Text/Pandoc/Writers/Textile.hs @@ -386,6 +386,12 @@ inlineToTextile opts (Emph lst) = do then "<em>" <> contents <> "</em>" else "_" <> contents <> "_" +inlineToTextile opts (Underline lst) = do + contents <- inlineListToTextile opts lst + return $ if '+' `elemText` contents + then "<u>" <> contents <> "</u>" + else "+" <> contents <> "+" + inlineToTextile opts (Strong lst) = do contents <- inlineListToTextile opts lst return $ if '*' `elemText` contents |