From: David Kastrup <dak@gnu.org>
Date: Sat, 28 Jan 2017 00:16:54 +0000 (+0100)
Subject: Issue 1375/3: Register scheme engravers
X-Git-Url: https://git.donarmstrong.com/lilypond.git?a=commitdiff_plain;h=df854ae456ad2e57139ddcb345760b4c321e1cbb;p=lilypond.git

Issue 1375/3: Register scheme engravers

This registers Measure_counter_engraver and Span_stem_engraver
to make them documented and callable like C++ engravers.
---

diff --git a/scm/scheme-engravers.scm b/scm/scheme-engravers.scm
index 1dd534344e..f4902cb94b 100644
--- a/scm/scheme-engravers.scm
+++ b/scm/scheme-engravers.scm
@@ -94,3 +94,26 @@ receive a count with @code{\\startMeasureCount} and
             (ly:grob-suicide! count-spanner)
             (set! count-spanner '())
             (ly:warning "measure count left unfinished")))))))
+
+(ly:register-translator
+ Measure_counter_engraver 'Measure_counter_engraver
+ '((grobs-created . (MeasureCounter))
+   (events-accepted . (measure-counter-event))
+   (properties-read . (currentCommandColumn
+                       measurePosition
+                       currentBarNumber))
+   (properties-written . ())
+   (description . "\
+This engraver numbers ranges of measures, which is useful in parts as an
+aid for counting repeated measures.  There is no requirement that the
+affected measures be repeated, however.  The user delimits the area to
+receive a count with @code{\\startMeasureCount} and
+@code{\\stopMeasureCount}.")))
+
+(ly:register-translator
+ Span_stem_engraver 'Span_stem_engraver
+ '((grobs-created . (Stem))
+   (events-accepted . ())
+   (properties-read . ())
+   (properties-written . ())
+   (description . "Connect cross-staff stems to the stems above in the system")))