[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Discern post-event in music function
From: |
Simon Albrecht |
Subject: |
Re: Discern post-event in music function |
Date: |
Thu, 20 Apr 2017 17:43:16 +0200 |
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