X-Git-Url: https://git.stderr.nl/gitweb?p=matthijs%2Fmaster-project%2Freport.git;a=blobdiff_plain;f=pret-lam.lua;h=97a53761a9247af6f11d76b4ebe721f431a99967;hp=be2c55b02eb18fa30006e64aa554c273e1c3fb7d;hb=1b9665a243799137f9b3f2b04e13489ba6f66e5e;hpb=8418ab35f35aed3322a0d70f7c70b13916b8ce32

diff --git a/pret-lam.lua b/pret-lam.lua
index be2c55b..97a5376 100644
--- a/pret-lam.lua
+++ b/pret-lam.lua
@@ -17,9 +17,12 @@ local colors = {
 
 -- Symbols that should have a different representation
 local symbols = {
-    [' '] = {repr = '\\obs '},
+    -- Note, the space we replace with is a Unicode non-breaking space
+    -- (U+00A0).
+    [' '] = {repr = ' '},
     ['_'] = {repr = '\\_'},
-    ['->'] = {repr = '\\rightarrow'},
+    ['->'] = {repr = '→'},
+    ['=>'] = {repr = '⇒'},
     -- The default * sits very high above the baseline, \ast (u+2217) looks
     -- better.
     ['*'] = {repr = '\\ast'},
@@ -36,7 +39,7 @@ local keywords = {
     ['letrec'] = {},
     ['letnonrec'] = {},
     ['in'] = {},
-    ['DEFAULT'] = {},
+    ['DEFAULT'] = {small = true},
 }
 
 local in_block = 0
@@ -222,6 +225,9 @@ function vis.flush_line(str,nested)
             if keywords[res] then
                 -- Make all keywords bold
                 word = "{\\bold " .. word ..  "}"
+                if keywords[res].small then
+                    word = "\\small" .. word -- Curlies were added above
+                end
             else
                 -- Process any subscripts in the word
                 word = do_subscripts(word)