diff options
| author | Albert Krewinkel <albert@zeitkraut.de> | 2022-06-10 11:29:00 +0200 |
|---|---|---|
| committer | Albert Krewinkel <albert@zeitkraut.de> | 2022-06-10 11:29:00 +0200 |
| commit | 2200b9c8ffd44cb474aa804333721ce16fd09776 (patch) | |
| tree | 0cc62450c1a6968bca1b68b58a34b96e9ba84c3c /src | |
| parent | 7e6ccda6d99c4bc11e1847a669f2fd8c76816a66 (diff) | |
TikiWiki: support underlined text
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/TikiWiki.hs | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/src/Text/Pandoc/Readers/TikiWiki.hs b/src/Text/Pandoc/Readers/TikiWiki.hs index 65e0f5d45..2275646b9 100644 --- a/src/Text/Pandoc/Readers/TikiWiki.hs +++ b/src/Text/Pandoc/Readers/TikiWiki.hs @@ -523,14 +523,9 @@ colored = try $ do string "~~" return $ B.str $ " NOT SUPPORTED: ~~ (colored) BEGIN: ~~" <> inner <> "~~ :END " --- UNSUPPORTED, as there doesn't seem to be any facility in calibre --- for this +-- ===underlined=== underlined :: PandocMonad m => TikiWikiParser m B.Inlines -underlined = try $ do - string "===" - inner <- fmap T.pack $ many1 $ noneOf "=\n" - string "===" - return $ B.str $ " NOT SUPPORTED: ==== (underlined) BEGIN: ===" <> inner <> "=== :END " +underlined = try $ B.underline <$> enclosed (string "===") nestedInlines -- UNSUPPORTED, as there doesn't seem to be any facility in calibre -- for this |