[Lilypond-auto] Issue 3985 in lilypond: pretty-printing for textual representations of music objects

[lilypond]

Status: Accepted
Owner: ----
Labels: Type-Enhancement

New issue 3985 by address@hidden: pretty-printing for textual  
representations of music objects
http://code.google.com/p/lilypond/issues/detail?id=3985

When I do this...

\version "2.19.9"
#(use-modules (ice-9 pretty-print))
{
  \override NoteHead.before-line-breaking =
  #(lambda (x) (pretty-print (ly:grob-property x 'cause)))
  c'
}

...I get this...

#<Prob: Stream_event C++: Stream_event((music-cause . #<Prob: Music C++:  
Music((length . #<Mom 1/4>) (pitch . #<Pitch c' >) (duration . #<Duration 4  
> ) (origin . #<location file.ly:6:3>))((display-methods #<procedure #f  
(note parser)>) (name . NoteEvent) (iterator-ctor . #<primitive-procedure  
ly:rhythmic-music-iterator::constructor>) (types general-music event  
note-event rhythmic-event melodic-event)) >
) (length . #<Mom 1/4>))((class note-event melodic-event rhythmic-event  
music-event StreamEvent) (length . #<Mom 1/4>) (pitch . #<Pitch c' >)  
(duration . #<Duration 4 >) (origin . #<location file.ly:6:3>)) >

I have no idea how to do it, but it would be nicer to get something like  
this:

#<Prob:
   Stream_event C++:
     Stream_event
       ((music-cause
         .
         #<Prob:
            Music C++:
              Music((length . #<Mom 1/4>)
                    (pitch . #<Pitch c' >)
                    (duration . #<Duration 4 >)
                    (origin . #<location file.ly:6:3>))
              ((display-methods #<procedure #f (note parser)>)
               (name . NoteEvent)
               (iterator-ctor
                .
                #<primitive-procedure  
ly:rhythmic-music-iterator::constructor>)
               (types
                general-music
                event
                note-event
                rhythmic-event
                melodic-event)) >)
        (length . #<Mom 1/4>))
     ((class note-event melodic-event rhythmic-event music-event  
StreamEvent)
      (length . #<Mom 1/4>)
      (pitch . #<Pitch c' >)
      (duration . #<Duration 4 >)
      (origin . #<location file.ly:6:3>)) >

Similarly, in the IR, there are lines like this:

Set grob-property X-offset in DynamicText to #<simple-closure  
(#<primitive-generic +> #<simple-closure (#<primitive-procedure  
ly:self-alignment-interface::centered-on-note-columns>) > #<simple-closure  
(#<primitive-procedure ly:self-alignment-interface::x-aligned-on-self>) >)  
> .

And it would be nicer to get something like this:

Set grob-property X-offset in DynamicText to:
#<simple-closure
  (#<primitive-generic +>
   #<simple-closure
     (#<primitive-procedure
         ly:self-alignment-interface::centered-on-note-columns>) >
   #<simple-closure
     (#<primitive-procedure
         ly:self-alignment-interface::x-aligned-on-self>) >) >

--
You received this message because this project is configured to send all  
issue notifications to this address.
You may adjust your notification preferences at:
https://code.google.com/hosting/settings