diff options
Diffstat (limited to 'scripts/delink.hs')
-rw-r--r-- | scripts/delink.hs | 8 |
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 @@ | |||
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] | ||