-#(define (prepend-grob-property grob-name
- grob-prop entry)
- (lambda (context)
- (let*
- ((grob-def (ly:context-property context grob-name)))
- (if (pair? grob-def)
- (ly:context-pushpop-property context grob-name grob-prop
- (cons
- entry
- (assoc-get grob-prop (car grob-def))))))))
-
-#(define (set-extra-space grob-name entry value)
- (prepend-grob-property grob-name 'space-alist
- (cons entry (cons 'extra-space value))))
-