import Text.Pandoc
import Text.Pandoc.JSON

{- 
 - Écrit par Hédy GIRAUDEAU
 - 27/07/17
-}


{- Convertit une liste de Inline (sorte de span, contie du formatage légé de
 - texte) vers  une chaine de caractère normal                   -}

toString :: [Inline] -> String
toString [] = ""
toString inls@((Str f):tl) = f ++ (toString tl)
toString inls@((Space):tl) = " " ++ (toString tl)
toString inls@((Emph inls2):tl) = (toString inls2) ++ (toString tl)
toString inls@((SmallCaps inls2):tl) = (toString inls2) ++ (toString tl)
toString inls@((Strong inls2):tl) = (toString inls2) ++ (toString tl)
toString (_:tl) = (toString tl)


transformBlock :: [Block] -> [Block]
transformBlock ( hdF@(Header 1 _ inlines) : _ ) = [(Plain [(Str (toString inlines))])]

transformBlock x = x


bar :: Pandoc -> Pandoc
bar x = bottomUp transformBlock x

main :: IO()
main = toJSONFilter bar


-- vim:set et: