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

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

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

8
Shake.hs
View File

@ -85,8 +85,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"
] ]
@ -206,7 +206,7 @@ main = do
-- "--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"
"--lua-filter tools/pandoc-drop-html-inlines.lua" "--lua-filter tools/pandoc-drop-html-inlines.lua"
"--filter tools/pandoc-drop-links" "--lua-filter tools/pandoc-drop-links.lua"
"--filter tools/pandoc-drop-notes" "--filter tools/pandoc-drop-notes"
"-o" out "-o" out
@ -234,7 +234,7 @@ main = do
-- "--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"
"--lua-filter tools/pandoc-drop-html-inlines.lua" "--lua-filter tools/pandoc-drop-html-inlines.lua"
"--filter tools/pandoc-drop-links" "--lua-filter tools/pandoc-drop-links.lua"
"--filter tools/pandoc-drop-notes" "--filter tools/pandoc-drop-notes"
"-t texinfo |" "-t texinfo |"
makeinfo "--force --no-split -o" out makeinfo "--force --no-split -o" out

12
tools/pandoc-drop-links.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 dropLinks
dropLinks :: Inline -> [Inline]
dropLinks (Link _ is _) = is
dropLinks x = [x]

3
tools/pandoc-drop-links.lua Normal file
View File

@ -0,0 +1,3 @@
function Link(li)
return li.content
end