Re: Discern post-event in music function

[caagr98]

You could just do (let ((post (music-is-of-type? e 'post-event))) 
(stuff)). No point in creating a lambda for it.

On 04/20/17 17:43, Simon Albrecht wrote:
> Am 20.04.2017 um 17:25 schrieb address@hidden:
> > There's a `post-event?` predicate defined in 
> > scm/define-music-display-methods.scm. I don't think that one's easily 
> > accessible outside that module, but you can copy it:
> >
> > (define (post-event? m)
> >   (music-is-of-type? m 'post-event))
>
> Here’s the resulting function:
>
> after =
> #(define-music-function (t e m) (ly:duration? ly:music? ly:music?)
>     (let* ((post-event? (lambda (m)
>                           (music-is-of-type? m 'post-event)))
>            (post (post-event? e)))
>       #{
>         \context Bottom <<
>           #m
>           {
>             \skip $t
>             #(if post
>                  #{ <> -\tweak extra-spacing-width #empty-interval $e #}
>                  e)
>           }
>         >>
>       #}))
>
> Best, Simon