I have a template for hebrew lyrics that I have been using and converting to the newest lilypond versions as the become available.
I just installed a new version and converted the template only to find it doesn't work.
Could someone tell me whats wrong and how to fix it? --------------------------snip---------------------------------------------------- \version "2.1.13" % Thanks, Han-Wen!
% Do you still have problems with the titles?
\header {
title = "Title"
% languague = "hebrew,english" % don't forget to uncomment this!
}#(set-global-staff-size 26)
% General purpose mapping function: applies FUNC to every
% text field in MUSIC.
#(define (text-map func music)
(let ((text (ly:get-mus-property music 'text))
(element (ly:get-mus-property music 'element))
(elements (ly:get-mus-property music 'elements)))
(if (not (null? text))
(ly:set-mus-property! music 'text (func text)))
(if (not (null? element))
(ly:set-mus-property! music 'element (text-map func element)))
(if (not (null? elements))
(ly:set-mus-property! music 'elements
(map (lambda (m) (text-map func m) elements))))
music))% Does Scheme really not include this function? #(define (string-reverse str) (list->string (reverse (string->list str))))
% Reverse every word (in terms of the above two functions) #(define (text-reverse lyric) (text-map string-reverse lyric))
% Sandwich every word between PRE and POST #(define (text-augment pre post) (lambda (lyric) (text-map (lambda (word) (string-append pre word post) lyric))))
% I factored out the lyrics, and also tried setting
% the extra-offset property randomly. It works.
lyr = \lyrics {
Tamm,
\property LyricsVoice . LyricText \override #'extra-offset = #'(5 . 0)
ta
\property LyricsVoice . LyricText \revert #'extra-offset
damm
}\score {
\addlyrics
\notes {
\clef "bass"
\key d \major
\time 3/4
d4. a8 g4
}
\context Lyrics << \lyr \apply #(text-augment "A" "B") \lyr >>
% Here you probably want to use "\\R{" and "}" instead.
\paper {
papersize = "a4"
indent = 0.0\cm
}
}
---------------------------snip------------------------------------
The error:
[EMAIL PROTECTED]:~/.vim/template$ lilypond hebtem.ly
lilypond (GNU LilyPond) 2.1.14
Running usr...
Now processing: `hebtem.ly'
Parsing...ERROR: Wrong number of arguments to #<procedure text-map (func music)>
lilypond: error: LilyPond failed on input file hebtem (exit status 2)
lilypond: warning: Running LilyPond failed. Rerun with --verbose for a trace.
[EMAIL PROTECTED]:~/.vim/template$ gvim hebtem.ly
filetypedetect
[EMAIL PROTECTED]:~/.vim/template$
Thanks Aaron
_______________________________________________ Lilypond-user mailing list [EMAIL PROTECTED] http://mail.gnu.org/mailman/listinfo/lilypond-user
