diff options
author | Case Duckworth | 2015-04-14 16:36:17 -0700 |
---|---|---|
committer | Case Duckworth | 2015-04-14 16:36:17 -0700 |
commit | 9fce418b46c9f0894f429384ef9e3dabaeffbeb4 (patch) | |
tree | b2339220ee50cf48b8887f0cc1fed4813a95901b /scripts/delink.hs | |
parent | Add toc metadata (diff) | |
download | autocento-9fce418b46c9f0894f429384ef9e3dabaeffbeb4.tar.gz autocento-9fce418b46c9f0894f429384ef9e3dabaeffbeb4.zip |
Change file hierarchy and rewrite makefile
- File hierarchy is now as follows: - / - appendix/ < appendix source files - backlinks/ < backlink sources & builds - hapax/ < *.hapax source files - scripts/ < scripts, like *.js, *.hs, etc. - templates/ < templates for outputs - text/ < source files - trunk/ < assets, like css, images, heads, etc. - index.html - *.html - Makefile
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] | ||