From 77ac4cf88a1c956e973bf74ff13510792bc0a4e8 Mon Sep 17 00:00:00 2001 From: Neil Puttock Date: Wed, 28 Apr 2010 00:42:15 +0100 Subject: [PATCH] Add display method for repeated chords. --- input/regression/display-lily-tests.ly | 5 +++-- scm/define-music-display-methods.scm | 3 +++ 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/input/regression/display-lily-tests.ly b/input/regression/display-lily-tests.ly index 1a88515126..2e0aa7c23a 100644 --- a/input/regression/display-lily-tests.ly +++ b/input/regression/display-lily-tests.ly @@ -1,4 +1,4 @@ -\version "2.13.19" +\version "2.13.20" #(use-modules (srfi srfi-13) (ice-9 format)) @@ -41,7 +41,7 @@ result-info "BUG") input output)) (make-music 'SequentialMusic 'void #t))))) - + test = #(define-music-function (parser location result-info strings) (string? pair?) (test-function parser location result-info strings)) @@ -76,6 +76,7 @@ stderr of this run." \test "" ##[ R1.*2/3 #] % MultiMeasureRestMusicGroup, MultiMeasureRestEvent \test "" ##[ \skip 2.*3/4 #] % SkipMusic \test "" ##[ < c\1 e\3 >4.*3/4-. #] % EventChord, NoteEvent, StringNumberEvent, ArticulationEvent +\test "NOT A BUG" ##[ { < c e g c' > q8-. } #] % RepeatedChord %% tags \test "" ##[ { \tag #'foo { c4 d } } #] diff --git a/scm/define-music-display-methods.scm b/scm/define-music-display-methods.scm index e0df840e89..53bddaac93 100644 --- a/scm/define-music-display-methods.scm +++ b/scm/define-music-display-methods.scm @@ -563,6 +563,9 @@ Otherwise, return #f." (define-display-method SkipEvent (rest parser) "s") +(define-display-method RepeatedChord (chord parser) + (music->lily-string (ly:music-property chord 'element) parser)) + (define-display-method MarkEvent (mark parser) (let ((label (ly:music-property mark 'label))) (if (null? label) -- 2.11.4.GIT