Re: [PATCH] memq mistake in NR 6.5.2?

[Trevor Daniels]

Thanks Mark.  Much better.  Applied and pushed to 
remotes/origin/master.

Trevor

----- Original Message ----- 
From: "Mark Polesky" <address@hidden>
To: "lilypond-devel" <address@hidden>
Sent: Sunday, June 14, 2009 1:18 AM
Subject: [PATCH] memq mistake in NR 6.5.2?


> From NR 6.5.2 Running a function on all layout objects:
>
> #(define (blanker grob grob-origin context)
> (if (and (memq (ly:grob-property grob 'interfaces)
>                note-head-interface)
>          (eq? (ly:grob-property grob 'staff-position) 0))
>     (set! (ly:grob-property grob 'transparent) #t)))
>
> But to get it to work, I had to change lines 2-3 to:
>
> (if (and (memq 'note-head-interface (ly:grob-interfaces grob))
>
>
> Also, the syntax is given as: \applyOutput context proc
> but it would be nice to know that CONTEXT needs a hash-quote
> (#'). Perhaps a tiny example work be enough:
>
> @lilypond[quote,verbatim,ragged-right]
> #(define (blanker grob grob-origin context)
>   (if (and (memq 'note-head-interface (ly:grob-interfaces grob))
>            (eq? (ly:grob-property grob 'staff-position) 0))
>       (set! (ly:grob-property grob 'transparent) #t)))
>
> \relative {
>  e4 g8 \applyOutput #'Voice #blanker b d2
> }
> @end lilypond
>
> If it's a simple as that, the patch I've included should work.
> - Mark


--------------------------------------------------------------------------------


> _______________________________________________
> lilypond-devel mailing list
> address@hidden
> http://lists.gnu.org/mailman/listinfo/lilypond-devel