From 364d3dc7561ffe7fabc10e06c400007b0e3761c3 Mon Sep 17 00:00:00 2001
From: Everett Hildenbrandt <hildenb2@illinois.edu>
Date: Sat, 21 Apr 2018 16:23:07 -0600
Subject: [PATCH] Shake.hs, tools/pandoc-drop-links: switch to lua script
 filter

---
 Shake.hs                    |  8 ++++----
 tools/pandoc-drop-links.hs  | 12 ------------
 tools/pandoc-drop-links.lua |  3 +++
 3 files changed, 7 insertions(+), 16 deletions(-)
 delete mode 100755 tools/pandoc-drop-links.hs
 create mode 100644 tools/pandoc-drop-links.lua

diff --git a/Shake.hs b/Shake.hs
index d3ee18177..f6efd5283 100755
--- a/Shake.hs
+++ b/Shake.hs
@@ -85,8 +85,8 @@ main = do
         --- "tools" </> "pandoc-demote-headers"
         --- "tools" </> "pandoc-drop-html-blocks"
         --- "tools" </> "pandoc-drop-html-inlines"
-         "tools" </> "pandoc-drop-links"
-        ,"tools" </> "pandoc-drop-notes"
+        --- "tools" </> "pandoc-drop-links"
+         "tools" </> "pandoc-drop-notes"
         ,"tools" </> "pandoc-drop-toc"
         ]
 
@@ -206,7 +206,7 @@ main = do
         -- "--filter tools/pandoc-drop-web-blocks"
         "--lua-filter tools/pandoc-drop-html-blocks.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"
         "-o" out
 
@@ -234,7 +234,7 @@ main = do
         -- "--filter tools/pandoc-drop-web-blocks"
         "--lua-filter tools/pandoc-drop-html-blocks.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"
         "-t texinfo |"
         makeinfo "--force --no-split -o" out
diff --git a/tools/pandoc-drop-links.hs b/tools/pandoc-drop-links.hs
deleted file mode 100755
index c2df0f2cf..000000000
--- a/tools/pandoc-drop-links.hs
+++ /dev/null
@@ -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]
-
diff --git a/tools/pandoc-drop-links.lua b/tools/pandoc-drop-links.lua
new file mode 100644
index 000000000..68bde69ac
--- /dev/null
+++ b/tools/pandoc-drop-links.lua
@@ -0,0 +1,3 @@
+function Link(li)
+    return li.content
+end