Re: Start work on adding annotations for horizontal paper variables.

[Michael Käppler]

> > http://codereview.appspot.com/143071/diff/1/2#newcode38
> > Line 38: (define (annotate-x? layout)
> > What about
> > (define (annotate? layout . dir)
> >    (eq? #t (case dir
> >              (('X) (ly:output-def-lookup layout 'annotate-x-spacing))
> >              (('Y) (ly:output-def-lookup layout 'annotate-y-spacing))
> >              (('()) (or (annotate? layout X) (annotate? layout Y)))
> >              (else #f)))
>
> I can't get this to work, unfortunately.  The rest argument will be a
> list, and `case' doesn't want to match '(X) or '(Y).
Hmm... I did not test this.
Try this:

(define annotate? layout . dir)
     (case (and (pair? dir) (car dir))
        (('X) (ly:output-def-lookup layout 'annotate-x-spacing))
        (('Y) (ly:output-def-lookup layout 'annotate-y-spacing))
        ((#f) (or (annotate? layout X) (annotate? layout Y))
        (else #f)))

Regards,
Michael