Re: extending event-listener.ly

[Graham Percival]

On Tue, Mar 26, 2013 at 08:12:42PM +0100, Phil Hézaine wrote:
> for NoteEvent:
> 
> #(define (format-note engraver event)
>    (let* ((origin (ly:input-file-line-char-column
>                    (ly:event-property event 'origin))))
>      (print-line engraver
>                  "note"
>                  ;; get a MIDI pitch value.
>                  ;(+ 60 (ly:pitch-semitones
>                         (ly:event-property event 'drum-type) ;))

It would be nice if this was abstracted into a separate function:
  (get-pitch-or-drum
which would pick which type of output to produce.  Then I think we
could accept a patch to this effect without much fuss.

>                  ;; point and click info
>                  ;(ly:format "point-and-click ~a ~a"
>                  ;           (caddr origin)
>                  ;           (cadr origin))

I'm quite curious about this -- do drum events not have
point-and-click info?

- Graham