diff options
Diffstat (limited to 'src/introFilter.hs')
| -rw-r--r-- | src/introFilter.hs | 51 |
1 files changed, 0 insertions, 51 deletions
diff --git a/src/introFilter.hs b/src/introFilter.hs deleted file mode 100644 index 93603c0..0000000 --- a/src/introFilter.hs +++ /dev/null @@ -1,51 +0,0 @@ -import Text.Pandoc -import Text.Pandoc.JSON -import Control.Monad.State -import Id - - -{- - - Écrit par Hédy GIRAUDEAU - - 27/07/17 --} -firstPara :: [Block] -> [Block] -firstPara [] = [] -firstPara (p@(Para x):blocks) = [(Para x)] -firstPara (x:blocks) = (firstPara blocks) - -setMignature (id, classes, mapsAttrib) = (id, "miniature":classes, mapsAttrib) - - -purgePara (Para (Image x y (trgt,title):_)) = (Para [(Image (setMignature x) y ("article/" ++ trgt, title))]) -purgePara (Para (x:t)) = purgePara (Para t) -purgePara (Para []) = (Para []) - -transformBlock cnt ( hdF@(Header 1 _ inlines) : paraF@(Para inlinesP) : blocks ) = - return (( (RawBlock (Format "html") - ( start_header ) - ) : hdF : - (RawBlock (Format "html") - ( end_header ) - ) : purgePara(paraF) : firstPara(blocks) - ) ++ [ (RawBlock (Format "html") - (end_article) ) - ]) - where start_header = "<header>" - end_header = "</header><section class=\"entry-content clearfix\" >" - end_intro = "" - end_article = "</section>" - - - -transformBlock _ x = return x - - -bar :: Pandoc -> IO Pandoc -bar x = do cnt <- newId - bottomUpM (transformBlock cnt) x - -main :: IO() -main = toJSONFilter bar - - --- vim:set et: |