From 6f5a6cd7353b8ff8243c86df75432780ba643944 Mon Sep 17 00:00:00 2001
From: ache <ache@ache.one>
Date: Tue, 6 Feb 2018 05:33:32 +0100
Subject: no pandoc dependencies

---
 src/introFilter.hs | 51 ---------------------------------------------------
 1 file changed, 51 deletions(-)
 delete mode 100644 src/introFilter.hs

(limited to 'src/introFilter.hs')

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:
-- 
cgit v1.2.3-70-g09d2