From 6f5a6cd7353b8ff8243c86df75432780ba643944 Mon Sep 17 00:00:00 2001 From: ache Date: Tue, 6 Feb 2018 05:33:32 +0100 Subject: no pandoc dependencies --- src/titleFilter.hs | 36 ------------------------------------ 1 file changed, 36 deletions(-) delete mode 100644 src/titleFilter.hs (limited to 'src/titleFilter.hs') diff --git a/src/titleFilter.hs b/src/titleFilter.hs deleted file mode 100644 index c215253..0000000 --- a/src/titleFilter.hs +++ /dev/null @@ -1,36 +0,0 @@ -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: -- cgit v1.2.3-54-g00ecf