mirror of
https://github.com/simonmichael/hledger.git
synced 2024-10-06 10:57:30 +03:00
Shake.hs, tools/pandoc-drop-html-blocks: switch to lua script filter
This commit is contained in:
parent
33e08a7d86
commit
b83240ab6d
8
Shake.hs
8
Shake.hs
@ -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"
|
||||
|
@ -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
6
tools/pandoc-drop-html-blocks.lua
Normal file
@ -0,0 +1,6 @@
|
||||
function RawBlock(rb)
|
||||
if rb.format == "html"
|
||||
then return pandoc.Null()
|
||||
else return rb
|
||||
end
|
||||
end
|
Loading…
Reference in New Issue
Block a user