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

1 files changed, 17 insertions, 0 deletions

@@ -0,0 +1,17 @@
+-- Preprocessor for hapax.lua writer
+-- because for some damn reason, UTF-8 confuses things
+
+import Text.Pandoc.JSON
+import Data.Char (isAscii)
+
+main :: IO ()
+main = toJSONFilter unFancy
+
+unFancy :: Inline -> Inline
+unFancy (Str s) = Str $ map makeAscii s
+unFancy x       = x
+
+makeAscii :: Char -> Char
+makeAscii c
+    | isAscii c = c
+    | otherwise = ' '