Re: Guitar Barre'

[Maurizio Monge]

Thanx, i am now triying to write a macro to realize barre 
comfortably. I also found the following code in an older
port, but i doesn't compile (2.5.20). What's wrong?
I really would like to end up with a function like:
   \barre #"IV" { c d e }
or at least
   \barre #"IV"  c \startTextSpan d e  \stopTextSpan
Any suggestion?
Thanks

------------------------------------------------------------
#(use-modules (ice-9 optargs)
              (srfi srfi-13)
              (lilypond music))

#(define (barre str)
  (ly:export 
    (mus:seq
     (mus:context-override Voice TextSpanner edge-text 
       (cons (string-concatenate (list "C " str)) "") #:once #t)
     (mus:context-override Voice TextSpanner direction 1 #:once #t)
     (mus:context-override Voice TextSpanner style 'line #:once #t)
     (mus:context-override Voice TextSpanner edge-height '(0 . 0.5)
                           #:once #t) 
     (mus:context-override Voice TextSpanner padding 1 #:once #t)
     (mus:context-override Voice TextSpanner enclose-bounds #t 
                           #:once #t)))) 

\score { \notes {
    c' c'#(barre "II") c'\startTextSpan c'\stopTextSpan
    c' c'#(barre "IV") c'\startTextSpan c'\stopTextSpan }}
------------------------------------------------------------