simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-10-06 19:07:27 +03:00
Code Issues Projects Releases Wiki Activity

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

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

8
Shake.hs
View File

@ -84,8 +84,8 @@ main = do
[ [
--- "tools" </> "pandoc-demote-headers" --- "tools" </> "pandoc-demote-headers"
--- "tools" </> "pandoc-drop-html-blocks" --- "tools" </> "pandoc-drop-html-blocks"
"tools" </> "pandoc-drop-html-inlines" --- "tools" </> "pandoc-drop-html-inlines"
,"tools" </> "pandoc-drop-links" "tools" </> "pandoc-drop-links"
,"tools" </> "pandoc-drop-notes" ,"tools" </> "pandoc-drop-notes"
,"tools" </> "pandoc-drop-toc" ,"tools" </> "pandoc-drop-toc"
] ]
@ -205,7 +205,7 @@ main = do
pandoc "-f markdown -s --template" tmpl pandoc "-f markdown -s --template" tmpl
-- "--filter tools/pandoc-drop-web-blocks" -- "--filter tools/pandoc-drop-web-blocks"
"--lua-filter tools/pandoc-drop-html-blocks.lua" "--lua-filter tools/pandoc-drop-html-blocks.lua"
"--filter tools/pandoc-drop-html-inlines" "--lua-filter tools/pandoc-drop-html-inlines.lua"
"--filter tools/pandoc-drop-links" "--filter tools/pandoc-drop-links"
"--filter tools/pandoc-drop-notes" "--filter tools/pandoc-drop-notes"
"-o" out "-o" out
@ -233,7 +233,7 @@ main = do
pandoc "-f markdown" pandoc "-f markdown"
-- "--filter tools/pandoc-drop-web-blocks" -- "--filter tools/pandoc-drop-web-blocks"
"--lua-filter tools/pandoc-drop-html-blocks.lua" "--lua-filter tools/pandoc-drop-html-blocks.lua"
"--filter tools/pandoc-drop-html-inlines" "--lua-filter tools/pandoc-drop-html-inlines.lua"
"--filter tools/pandoc-drop-links" "--filter tools/pandoc-drop-links"
"--filter tools/pandoc-drop-notes" "--filter tools/pandoc-drop-notes"
"-t texinfo |" "-t texinfo |"

12
tools/pandoc-drop-html-inlines.hs
View File

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

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

@ -0,0 +1,6 @@
function RawInline(ri)
if ri.format == "html"
then return pandoc.Str("")
else return ri
end
end