projects
/
matthijs
/
master-project
/
report.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Review the first few chapters.
[matthijs/master-project/report.git]
/
pret-lam.lua
diff --git
a/pret-lam.lua
b/pret-lam.lua
index be2c55b02eb18fa30006e64aa554c273e1c3fb7d..97a53761a9247af6f11d76b4ebe721f431a99967 100644
(file)
--- a/
pret-lam.lua
+++ b/
pret-lam.lua
@@
-17,9
+17,12
@@
local colors = {
-- Symbols that should have a different representation
local symbols = {
-- 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 = '\\_'},
- ['->'] = {repr = '\\rightarrow'},
+ ['->'] = {repr = '→'},
+ ['=>'] = {repr = '⇒'},
-- The default * sits very high above the baseline, \ast (u+2217) looks
-- better.
['*'] = {repr = '\\ast'},
-- The default * sits very high above the baseline, \ast (u+2217) looks
-- better.
['*'] = {repr = '\\ast'},
@@
-36,7
+39,7
@@
local keywords = {
['letrec'] = {},
['letnonrec'] = {},
['in'] = {},
['letrec'] = {},
['letnonrec'] = {},
['in'] = {},
- ['DEFAULT'] = {},
+ ['DEFAULT'] = {
small = true
},
}
local in_block = 0
}
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] 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)
else
-- Process any subscripts in the word
word = do_subscripts(word)