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

Shake.hs

@@ -86,8 +86,8 @@ main = do
         --- "tools" </> "pandoc-drop-html-blocks"
         --- "tools" </> "pandoc-drop-html-inlines"
         --- "tools" </> "pandoc-drop-links"
-         "tools" </> "pandoc-drop-notes"
-        ,"tools" </> "pandoc-drop-toc"
+        --- "tools" </> "pandoc-drop-notes"
+         "tools" </> "pandoc-drop-toc"
         ]
 
   shakeArgs
@@ -207,7 +207,7 @@ main = do
         "--lua-filter tools/pandoc-drop-html-blocks.lua"
         "--lua-filter tools/pandoc-drop-html-inlines.lua"
         "--lua-filter tools/pandoc-drop-links.lua"
-        "--filter tools/pandoc-drop-notes"
+        "--lua-filter tools/pandoc-drop-notes.lua"
         "-o" out
 
     -- render man page nroffs to fixed-width text for embedding in executables, with nroff
@@ -235,7 +235,7 @@ main = do
         "--lua-filter tools/pandoc-drop-html-blocks.lua"
         "--lua-filter tools/pandoc-drop-html-inlines.lua"
         "--lua-filter tools/pandoc-drop-links.lua"
-        "--filter tools/pandoc-drop-notes"
+        "--lua-filter tools/pandoc-drop-notes.lua"
         "-t texinfo |"
         makeinfo "--force --no-split -o" out
 

tools/pandoc-drop-notes.hs

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

tools/pandoc-drop-notes.lua

@@ -0,0 +1,3 @@
+function Note(nt)
+    return pandoc.Str("")
+end