tools: rename pandoc filters

Shake.hs

@@ -76,8 +76,8 @@ pandocFiltersResolver = ""
 main = do
 
   pandocFilters <-
-    map ("tools" </>). nub . sort . map (-<.> "") . filter ("pandoc" `isPrefixOf`)
+    map ("doc" </>). nub . sort . map (-<.> "") . filter ("pandoc-" `isPrefixOf`)
-    <$> S.getDirectoryContents "tools"
+    <$> S.getDirectoryContents "doc"
 
   shakeArgs
     shakeOptions{
@@ -114,11 +114,11 @@ main = do
         tmpl = "doc/manpage.nroff"
       need $ md : tmpl : pandocFilters
       cmd pandocExe md "--to man -s --template" tmpl
-        "--filter tools/pandocRemoveHtmlBlocks"
+        "--filter doc/pandoc-drop-html-blocks"
-        "--filter tools/pandocRemoveHtmlInlines"
+        "--filter doc/pandoc-drop-html-inlines"
-        "--filter tools/pandocRemoveLinks"
+        "--filter doc/pandoc-drop-links"
-        "--filter tools/pandocRemoveNotes"
+        "--filter doc/pandoc-drop-notes"
-        "--filter tools/pandocCapitalizeHeaders"
+        "--filter doc/pandoc-capitalize-headers"
         "-o" out
 
     phony "webmanual" $ need manpageMdsForHakyll
@@ -130,7 +130,7 @@ main = do
         tmpl = "doc/manpage.html"
       need $ md : tmpl : pandocFilters
       cmd pandocExe md "--to markdown"
-        "--filter tools/pandocRemoveManonlyBlocks"
+        "--filter doc/pandoc-drop-man-blocks"
         "-o" out
 
     phony "pandocfilters" $ need pandocFilters

doc/pandoc-drop-html-blocks.hs

@@ -0,0 +1,11 @@
+#!/usr/bin/env stack
+{- stack runghc --verbosity info --package pandoc-types-1.16.1 -}
+
+import Text.Pandoc.JSON
+
+main :: IO ()
+main = toJSONFilter dropHtmlBlocks
+
+dropHtmlBlocks :: Block -> Block
+dropHtmlBlocks (RawBlock (Format "html") _) = Plain []
+dropHtmlBlocks x = x

doc/pandoc-drop-html-inlines.hs

@@ -0,0 +1,12 @@
+#!/usr/bin/env stack
+{- stack runghc --verbosity info --package pandoc-types-1.16.1 -}
+
+import Text.Pandoc.JSON
+
+main :: IO ()
+main = toJSONFilter dropHtmlInlines
+
+dropHtmlInlines :: Inline -> Inline
+dropHtmlInlines (RawInline (Format "html") _) = Str ""
+dropHtmlInlines x = x
+

doc/pandoc-drop-links.hs

@@ -4,9 +4,9 @@
 import Text.Pandoc.JSON
 
 main :: IO ()
-main = toJSONFilter removeNotes
+main = toJSONFilter dropLinks
 
-removeNotes :: Inline -> Inline
+dropLinks :: Inline -> [Inline]
-removeNotes (Note _) = Str ""
+dropLinks (Link _ is _) = is
-removeNotes x = x
+dropLinks x = [x]
 

doc/pandoc-drop-man-blocks.hs

@@ -0,0 +1,12 @@
+#!/usr/bin/env stack
+{- stack runghc --verbosity info --package pandoc-types-1.16.1 -}
+
+import Text.Pandoc.Builder
+import Text.Pandoc.JSON
+
+main :: IO ()
+main = toJSONFilter dropManonlyBlocks
+
+dropManonlyBlocks :: Block -> Block
+dropManonlyBlocks (Div ("",["manonly"],[]) _) = Plain []
+dropManonlyBlocks x = x

doc/pandoc-drop-notes.hs

@@ -4,9 +4,9 @@
 import Text.Pandoc.JSON
 
 main :: IO ()
-main = toJSONFilter removeLinks
+main = toJSONFilter dropNotes
 
-removeLinks :: Inline -> [Inline]
+dropNotes :: Inline -> Inline
-removeLinks (Link _ is _) = is
+dropNotes (Note _) = Str ""
-removeLinks x = [x]
+dropNotes x = x
 

doc/pandoc-drop-web-blocks.hs

@@ -0,0 +1,12 @@
+#!/usr/bin/env stack
+{- stack runghc --verbosity info --package pandoc-types-1.16.1 -}
+
+import Text.Pandoc.Builder
+import Text.Pandoc.JSON
+
+main :: IO ()
+main = toJSONFilter dropWebonlyBlocks
+
+dropWebonlyBlocks :: Block -> Block
+dropWebonlyBlocks (Div ("",["webonly"],[]) _) = Plain []
+dropWebonlyBlocks x = x

tools/pandocRemoveHtmlBlocks.hs

@@ -1,11 +0,0 @@
-#!/usr/bin/env stack
-{- stack runghc --verbosity info --package pandoc-types-1.16.1 -}
-
-import Text.Pandoc.JSON
-
-main :: IO ()
-main = toJSONFilter removeHtmlBlocks
-
-removeHtmlBlocks :: Block -> Block
-removeHtmlBlocks (RawBlock (Format "html") _) = Plain []
-removeHtmlBlocks x = x

tools/pandocRemoveHtmlInlines.hs

@@ -1,12 +0,0 @@
-#!/usr/bin/env stack
-{- stack runghc --verbosity info --package pandoc-types-1.16.1 -}
-
-import Text.Pandoc.JSON
-
-main :: IO ()
-main = toJSONFilter removeHtmlInlines
-
-removeHtmlInlines :: Inline -> Inline
-removeHtmlInlines (RawInline (Format "html") _) = Str ""
-removeHtmlInlines x = x
-

tools/pandocRemoveManonlyBlocks.hs

@@ -1,12 +0,0 @@
-#!/usr/bin/env stack
-{- stack runghc --verbosity info --package pandoc-types-1.16.1 -}
-
-import Text.Pandoc.Builder
-import Text.Pandoc.JSON
-
-main :: IO ()
-main = toJSONFilter removeManonlyBlocks
-
-removeManonlyBlocks :: Block -> Block
-removeManonlyBlocks (Div ("",["manonly"],[]) _) = Plain []
-removeManonlyBlocks x = x

tools/pandocRemoveWebonlyBlocks.hs

@@ -1,12 +0,0 @@
-#!/usr/bin/env stack
-{- stack runghc --verbosity info --package pandoc-types-1.16.1 -}
-
-import Text.Pandoc.Builder
-import Text.Pandoc.JSON
-
-main :: IO ()
-main = toJSONFilter removeWebonlyBlocks
-
-removeWebonlyBlocks :: Block -> Block
-removeWebonlyBlocks (Div ("",["webonly"],[]) _) = Plain []
-removeWebonlyBlocks x = x