From 54814727d809dc8ba7d11569d11f465e84908dfe Mon Sep 17 00:00:00 2001 From: hanwen Date: Fri, 8 Jul 2005 20:46:41 +0000 Subject: [PATCH] * scm/define-markup-commands.scm (text): add \text markup command. * ly/music-functions-init.ly: \pitchedTrill * scm/define-markup-commands.scm (pad-markup): pad-markup command. --- ly/music-functions-init.ly | 3 +++ scm/define-markup-commands.scm | 7 +------ 2 files changed, 4 insertions(+), 6 deletions(-) diff --git a/ly/music-functions-init.ly b/ly/music-functions-init.ly index 480fe7713d..47c629d06f 100644 --- a/ly/music-functions-init.ly +++ b/ly/music-functions-init.ly @@ -2,6 +2,9 @@ \version "2.6.0" +%% need SRFI-1 filter + +#(use-modules (srfi srfi-1)) applymusic = #(def-music-function (parser location func music) (procedure? ly:music?) (func music)) diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm index fe3e3ad552..98d2161c37 100644 --- a/scm/define-markup-commands.scm +++ b/scm/define-markup-commands.scm @@ -709,10 +709,6 @@ some punctuation. It doesn't have any letters. " "Set @code{font-shape} to @code{caps}." (interpret-markup layout (prepend-alist-chain 'font-shape 'caps props) arg)) -;(def-markup-command (latin-i layout props arg) (markup?) -; "TEST latin1 encoding." -; (interpret-markup layout (prepend-alist-chain 'font-shape 'latin1 props) arg)) - (def-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 @@ -722,8 +718,7 @@ recommend font for this is bold and italic" layout (prepend-alist-chain 'font-encoding 'fetaDynamic props) arg)) (def-markup-command (text layout props arg) (markup?) - "Use a text font instead of music symbol or music alphabet " - "font." + "Use a text font instead of music symbol or music alphabet font." ;; ugh - latin1 (interpret-markup layout (prepend-alist-chain 'font-encoding 'latin1 props) -- 2.39.2