Re: Issue 1482 in lilypond: \caps and \smallCaps don't work with \fromproperty

[lilypond]

Comment #4 on issue 1482 by address@hidden: \caps and \smallCaps don't  
work with \fromproperty
http://code.google.com/p/lilypond/issues/detail?id=1482

Here's a possible workaround using redefined \fromproperty and \caps  
commands:

#(define-markup-command (fromproperty layout props symbol)
   (symbol?)
   (let ((m (chain-assoc-get symbol props))
         (caps? (chain-assoc-get 'caps props)))
     (if (markup? m)
         (interpret-markup layout props
                           (if caps?
                               (make-smallCaps-markup m)
                               m))
         empty-stencil)))

#(define-markup-command (caps layout props arg) (markup?)
   (interpret-markup layout (prepend-alist-chain 'caps #t props)
                     (make-smallCaps-markup arg)))