about summary refs log tree commit diff stats
path: root/trunk/forceascii.hs
diff options
context:
space:
mode:
Diffstat (limited to 'trunk/forceascii.hs')
-rw-r--r--trunk/forceascii.hs17
1 files changed, 17 insertions, 0 deletions
diff --git a/trunk/forceascii.hs b/trunk/forceascii.hs new file mode 100644 index 0000000..b5f1645 --- /dev/null +++ b/trunk/forceascii.hs
@@ -0,0 +1,17 @@
1-- Preprocessor for hapax.lua writer
2-- because for some damn reason, UTF-8 confuses things
3
4import Text.Pandoc.JSON
5import Data.Char (isAscii)
6
7main :: IO ()
8main = toJSONFilter unFancy
9
10unFancy :: Inline -> Inline
11unFancy (Str s) = Str $ map makeAscii s
12unFancy x = x
13
14makeAscii :: Char -> Char
15makeAscii c
16 | isAscii c = c
17 | otherwise = ' '