From 36f56859a1198a0c48a6ea85416258f3aea584dd Mon Sep 17 00:00:00 2001
From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Wed, 25 Oct 2006 13:26:04 +0000
Subject: [PATCH] (all-user-translation-properties): noteToFretFunction: Add.
---
ChangeLog | 3 +++
Documentation/user/lilypond-book.itely | 6 +++---
scm/define-context-properties.scm | 1 +
3 files changed, 7 insertions(+), 3 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 5924fa2698..56cebb4644 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
2006-10-25 Jan Nieuwenhuizen <janneke@gnu.org>
+ * scm/define-context-properties.scm (all-user-translation-properties):
+ noteToFretFunction: Add.
+
* scm/define-grobs.scm (all-grob-descriptions): FretBoard: use
fret-diagram-interface (WAS: fret-board-interface). Fixes build.
diff --git a/Documentation/user/lilypond-book.itely b/Documentation/user/lilypond-book.itely
index cbd18b4b63..974d7bf25d 100644
--- a/Documentation/user/lilypond-book.itely
+++ b/Documentation/user/lilypond-book.itely
@@ -512,10 +512,10 @@ Including LilyPond code is possible by using a @code{programlisting}, where the
<inlinemediaobject>
<textobject>
<programlisting language="lilypond" role="fragment verbatim staffsize=16 ragged-right relative=2">
-\context Staff \with {
+\context Staff \with @{
\remove Time_signature_engraver
- \remove Clef_engraver}
- { c4( fis) }
+ \remove Clef_engraver@}
+ @{ c4( fis) @}
</programlisting>
</textobject>
</inlinemediaobject>
diff --git a/scm/define-context-properties.scm b/scm/define-context-properties.scm
index 51f3c95b6f..2e03ec1aae 100644
--- a/scm/define-context-properties.scm
+++ b/scm/define-context-properties.scm
@@ -321,6 +321,7 @@ format as @var{verticalExtent}")
(output ,ly:music-output? "The output produced by a score-level translator during music interpretation")
(ottavation ,string? "If set, the text for an ottava spanner. Changing
this creates a new text spanner. ")
+ (noteToFretFunction ,procedure? "How to produce a fret diagram. Parameters: list of note events and list of tabstring events.")
(pedalSustainStrings ,list? "List of string to print for
sustain-pedal. Format is (@var{up} @var{updown} @var{down}), where
each of the three is the string to print when this is done with the
--
2.39.5