@@ -36,8 +36,7 @@ TODO:
3636- Org tables
3737- table.el tables
3838- Images with attributes (floating and width)
39−- Citations and <biblio>
40−- <play> environment
39+- <cite> tag
4140-}
4241module Text.Pandoc.Readers.Muse (readMuse) where
4342
@@ -322,6 +321,8 @@ blockElements = do
322321 , rightTag
323322 , quoteTag
324323 , divTag
324+ , biblioTag
325+ , playTag
325326 , verseTag
326327 , lineBlock
327328 , table
@@ -413,6 +414,18 @@ divTag = do
413414 (attrs, content) <- parseHtmlContent "div"
414415 return $ B.divWith attrs <$> content
415416
417+-- <biblio> tag is supported by Amusewiki only
418+biblioTag :: PandocMonad m => MuseParser m (F Blocks)
419+biblioTag = do
420+ guardEnabled Ext_amuse
421+ fmap (B.divWith ("", ["biblio"], [])) . snd <$> parseHtmlContent "biblio"
422+
423+-- <play> tag is supported by Amusewiki only
424+playTag :: PandocMonad m => MuseParser m (F Blocks)
425+playTag = do
426+ guardEnabled Ext_amuse
427+ fmap (B.divWith ("", ["play"], [])) . snd <$> parseHtmlContent "play"
428+
416429verseLine :: PandocMonad m => MuseParser m (F Inlines)
417430verseLine = do
418431 indent <- (B.str <$> many1 (char ' ' >> pure '\160')) <|> pure mempty