aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rwxr-xr-xdoc/grosciteco.tes4
-rw-r--r--fallback.teco_ini2
-rw-r--r--lib/lexer.tes11
3 files changed, 12 insertions, 5 deletions
diff --git a/doc/grosciteco.tes b/doc/grosciteco.tes
index ce194b7..9be0f1a 100755
--- a/doc/grosciteco.tes
+++ b/doc/grosciteco.tes
@@ -176,11 +176,11 @@ EBN[input]
!cmd.xf!
:M#sa :M#giU.n Q.n+16U.#nt .(:M#sa).X[font] :M#sc
:Q[fonts.\.n]"F F< ' -U[fonts.\.n]
- @:EU[styles]{:Q[lexer.font]"> \.#ntESSTYLESETFONTQ[lexer.font] '^J}
+ @:EU[styles]{\.#ntESSTYLESETFONTQ[lexer.font]^J}
Ocmd.xfQ[font]
!cmd.xfR!
Q.nU[default-style]
- @:EU[styles]{:Q[lexer.font]"> 16ESSTYLESETFONTQ[lexer.font] '^J}
+ @:EU[styles]{16ESSTYLESETFONTQ[lexer.font]^J}
F<
!cmd.xfB!
@:EU[styles]{1,\.nESSTYLESETBOLD 1,\.#ntESSTYLESETBOLD^J}
diff --git a/fallback.teco_ini b/fallback.teco_ini
index 4a20807..edd8b7f 100644
--- a/fallback.teco_ini
+++ b/fallback.teco_ini
@@ -54,7 +54,7 @@ EMQ[$SCITECOPATH]/opener.tes
* Tweak the default font name and size.
* The size unit is 1pt/100
*!
-!![lexer.font]Monospace 1300U[lexer.font]
+!![lexer.font]Monospace 1200U[lexer.font]
!![lexer.woman.font]Serif
!* Enable default function key macros *!
diff --git a/lib/lexer.tes b/lib/lexer.tes
index 2676e1b..2969184 100644
--- a/lib/lexer.tes
+++ b/lib/lexer.tes
@@ -5,12 +5,19 @@
[: 0,(1ESPOSITIONFROMLINE:)::S ]:
}
+!*
+ * The monospaced font for source code and
+ * figures in woman-pages.
+ *!
+[lexer.font]Monospace
+1200U[lexer.font]
+
@[lexer.auto]{
-
- 0EJ-1"> :Q[lexer.font]">
+ 0EJ-1">
32ESSTYLESETFONTQ[lexer.font]
Q[lexer.font],32ESSTYLESETSIZEFRACTIONAL
- ' '
+ '
:M[color.init]
:Q*"=  '
[_