From 9a7ca21618b2f37dd06ae729b9d97dbc8e1a5b23 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Wed, 1 Nov 2006 21:02:35 +0100 Subject: [PATCH] make \caps markup default to smallCaps --- scm/define-markup-commands.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm index 4d87479283..73e243a6a1 100644 --- a/scm/define-markup-commands.scm +++ b/scm/define-markup-commands.scm @@ -896,7 +896,7 @@ some punctuation. It doesn't have any letters. " "Set font size to -3." (interpret-markup layout (prepend-alist-chain 'font-size -3 props) arg)) -(define-markup-command (caps layout props arg) (markup?) +(define-markup-command (fontCaps layout props arg) (markup?) "Set @code{font-shape} to @code{caps}." (interpret-markup layout (prepend-alist-chain 'font-shape 'caps props) arg)) @@ -966,6 +966,9 @@ some punctuation. It doesn't have any letters. " #f #f))) +(define-markup-command (caps layout props arg) (markup?) + (interpret-markup layout props (make-smallCaps-markup arg))) + (define-markup-command (dynamic layout props arg) (markup?) "Use the dynamic font. This font only contains @b{s}, @b{f}, @b{m}, @b{z}, @b{p}, and @b{r}. When producing phrases, like ``pi@`{u} @b{f}'', the -- 2.39.2