slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Shake.hs, tools/pandoc-drop-html-blocks: switch to lua script filter

Browse Source
This commit is contained in:
Everett Hildenbrandt 2018-04-21 16:00:45 -06:00 committed by Simon Michael
parent 33e08a7d86
commit b83240ab6d
3 changed files with 10 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Shake.hs
View File

@ -83,8 +83,8 @@ main = do
let pandocFilters =
[
--- "tools" </> "pandoc-demote-headers"
"tools" </> "pandoc-drop-html-blocks"
,"tools" </> "pandoc-drop-html-inlines"
--- "tools" </> "pandoc-drop-html-blocks"
"tools" </> "pandoc-drop-html-inlines"
,"tools" </> "pandoc-drop-links"
,"tools" </> "pandoc-drop-notes"
,"tools" </> "pandoc-drop-toc"
@ -204,7 +204,7 @@ main = do
"m4 -P -DMAN -I" dir lib src "|"
pandoc "-f markdown -s --template" tmpl
-- "--filter tools/pandoc-drop-web-blocks"
"--filter tools/pandoc-drop-html-blocks"
"--lua-filter tools/pandoc-drop-html-blocks.lua"
"--filter tools/pandoc-drop-html-inlines"
"--filter tools/pandoc-drop-links"
"--filter tools/pandoc-drop-notes"
@ -232,7 +232,7 @@ main = do
"m4 -P -I" dir lib src "|"
pandoc "-f markdown"
-- "--filter tools/pandoc-drop-web-blocks"
"--filter tools/pandoc-drop-html-blocks"
"--lua-filter tools/pandoc-drop-html-blocks.lua"
"--filter tools/pandoc-drop-html-inlines"
"--filter tools/pandoc-drop-links"
"--filter tools/pandoc-drop-notes"

11
tools/pandoc-drop-html-blocks.hs
View File

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

6
tools/pandoc-drop-html-blocks.lua Normal file
View File

@ -0,0 +1,6 @@
function RawBlock(rb)
if rb.format == "html"
then return pandoc.Null()
else return rb
end
end