BeginStyle
(BeachThesis) AttachStyle
(tableNestingLevel) 1 StyleParam
(
Nest) "display nesting level" {
nestingLevel the tableNestingLevel .gt { 0 leftIndent } { ParaIndent bigger leftIndent } .ifelse .cvx .exec
} PrintRule
(look.
d) "
down for subscript" {
DoubleIncrement BasicIncrement .add .neg vShift
BasicIncrement smaller size} StyleRule
(look
.u) "
up, for superscript" {
DoubleIncrement BasicIncrement .add vShift
BasicIncrement smaller size} StyleRule
(
entry) "one of my table entries" {
block
centered lineFormatting
.75 in lineLength
} StyleRule
(
table) "one of my tables" {
nestingLevel 1 .add tableNestingLevel
center
} StyleRule