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 @@
+-- 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 = ' '

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
	4	import Text.Pandoc.JSON
	5	import Data.Char (isAscii)
	6
	7	main :: IO ()
	8	main = toJSONFilter unFancy
	9
	10	unFancy :: Inline -> Inline
	11	unFancy (Str s) = Str $ map makeAscii s
	12	unFancy x = x
	13
	14	makeAscii :: Char -> Char
	15	makeAscii c
	16	\| isAscii c = c
	17	\| otherwise = ' '