Gestion du titre dynamique

1 files changed, 36 insertions, 0 deletions

diff --git a/src/titleFilter.hs b/src/titleFilter.hs
new file mode 100644
index 0000000..c215253
--- /dev/null
+++ b/src/titleFilter.hs
@@ -0,0 +1,36 @@
+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: