Re: [Lilypond-auto] Issue 185 in lilypond: RhythmicStaff squishing chords should produce single notes

[lilypond]

Comment #2 on issue 185 by reedmace...@gmail.com: RhythmicStaff squishing  
chords should produce single notes
http://code.google.com/p/lilypond/issues/detail?id=185
Workaround: pass your music expression through a function that discards all  
notes but one from chords before putting it on a RhythmicStaff. Several  
such functions have been posted on the mailing list, for example:



% From  
<http://lists.gnu.org/archive/html/lilypond-user/2012-07/msg00244.html>
% by David Kastrup. For a variant that works with older versions check
% <http://lists.gnu.org/archive/html/lilypond-user/2011-11/msg00196.html>
% by Thomas Morley.

thinout =
#(define-music-function (parser location music) (ly:music?)
   (for-some-music
    (lambda (m)
      (and (music-is-of-type? m 'event-chord)
           (let ((elts (ly:music-property m 'elements)))
             (if (pair? elts)
                 (set-cdr!
                  elts
                  (filter!
                   (lambda (m) (not (ly:music-property m 'duration #f)))
                   (cdr elts))))
             #t)))
    music)
   music)

\new RhythmicStaff
\thinout
\relative c  { <d, g d'>4 e f8 g a4 <d b g>2. c4 d4. e8 f4 g }