Fix some more header stuff.
[matthijs/master-project/report.git] / pret-haskell.lua
index f1dc31b..ca3a165 100644 (file)
@@ -14,7 +14,7 @@ local visualizer = buffers.newvisualizer('haskell')
 -- macro's that should be interpreted. Does not insert any automatic
 -- linebreaking.
 local function ctxsprint(str) 
-    tex.sprint(ctxcatcodes, str)
+    tex.sprint(tex.ctxcatcodes, str)
 end
 
 -- Print a string or table of strings almost literal. Each character in the
@@ -40,6 +40,13 @@ function visualizer.flush_line(str,nested)
                 ctxsprint('}')
                 -- Eat the processed characters
                 str = rest
+            elseif utf.match(str, "^%-%-") then
+                ctxsprint('{\\italic{--')
+                -- Recursively call ourselves to handle spaces gracefully.
+                visualizer.flush_line(utf.sub(str, 3))
+                ctxsprint('}}')
+                -- Done with this line
+                str = ''
             else
                 -- Write the first character
                 texwrite(utf.sub(str, 1, 1))