<<>> <> <> <> <> <<>> BeginStyle (Cedar) AttachStyle (CodeFont) "code font" { "Terminal" family } StyleRule (FontFamily) "main font" { "Classic" family } StyleRule (AlternateFontFamily) "other font" { "Modern" family } StyleRule (Nest) "nop for this style" {} StyleRule (CodeIndent) {0} .cvx .def (TabSize) {CodeFont 8 sp} .cvx .def (HalfTabSize) {CodeFont 4 sp} .cvx .def (root) "for root node" { XeroxCharCodes cedar.root } StyleRule (code) "for code" { standard IF isComment THEN {1 sp restIndent} ELSE {HalfTabSize restIndent} FI } StyleRule (codeExdent) "for exdented code nodes" { code IF nestingLevel 1 .eq .not THEN {TabSize smaller leftIndent} FI } StyleRule (default) "style rule for nodes without explict formats" { code } StyleRule (standard) "shared" { cedar.standard TabSize tabStops IF nestingLevel 1 .eq .not THEN {TabSize bigger leftIndent} FI FontFamily IF isComment THEN {look.c} ELSE {regular face} FI } StyleRule (look.c) "comments" { +italic face AlternateFontFamily 2 pt bigger size} StyleRule (look.t) "used for placeholders" { "xerox/tiogafonts/" fontPrefix "tioga" family regular face 10 bp size} StyleRule EndStyle