diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-03-10 07:27:24 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-03-10 07:27:41 +0300 |
| commit | 9bcd0908482f26e3630a02e3ad3596a2f67fcab9 (patch) | |
| tree | d2e16433a79f87b6873c8c76c5541a3ac8976da7 /src | |
| parent | 0bdabfb09abe96781d72b038c2c40f69901bf0b8 (diff) | |
| download | pandoc-9bcd0908482f26e3630a02e3ad3596a2f67fcab9.tar.gz | |
Muse reader: parse <class> tag
<class> tag is supported by Emacs Muse
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/Muse.hs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Readers/Muse.hs b/src/Text/Pandoc/Readers/Muse.hs index 4c398080c..3e642b386 100644 --- a/src/Text/Pandoc/Readers/Muse.hs +++ b/src/Text/Pandoc/Readers/Muse.hs @@ -756,6 +756,7 @@ inlineList = [ whitespace , subscriptTag , strikeoutTag , verbatimTag + , classTag , nbsp , link , code @@ -858,6 +859,13 @@ strikeoutTag = inlineTag B.strikeout "del" verbatimTag :: PandocMonad m => MuseParser m (F Inlines) verbatimTag = return . B.text . snd <$> htmlElement "verbatim" +classTag :: PandocMonad m => MuseParser m (F Inlines) +classTag = do + (TagOpen _ attrs, _) <- htmlTag (~== TagOpen "class" []) + res <- manyTill inline (void $ htmlTag (~== TagClose "class")) + let classes = maybe [] words $ lookup "name" attrs + return $ B.spanWith ("", classes, []) <$> mconcat res + nbsp :: PandocMonad m => MuseParser m (F Inlines) nbsp = try $ do string "~~" |