1 files changed, 8 insertions, 0 deletions
diff --git a/scripts/delink.hs b/scripts/delink.hs
new file mode 100644
index 0000000..735e829
--- /dev/null
+++ b/scripts/delink.hs

@@ -0,0 +1,8 @@
+#!/usr/bin/env runhaskell
+import Text.Pandoc.JSON
+main = toJSONFilter delink
+delink :: Inline -> [Inline]
+delink (Link txt _) = txt
+delink x            = [x]

diff --git a/scripts/delink.hs b/scripts/delink.hs new file mode 100644 index 0000000..735e829 --- /dev/null +++ b/scripts/delink.hs
@@ -0,0 +1,8 @@
	1	#!/usr/bin/env runhaskell
	2	import Text.Pandoc.JSON
	3
	4	main = toJSONFilter delink
	5
	6	delink :: Inline -> [Inline]
	7	delink (Link txt _) = txt
	8	delink x = [x]