*Bump*
Maybe it will be easier to understand the question (and thus provide an
answer) with a more stripped down MWE:
%%%%%%%%%%%%
\version "2.19.38"
removeStaffLines =
#(define-scheme-function (ctx)(symbol?)
#{
\layout {
\context {
% I want to generate the following context def
% from the ctx symbol? argument
\Staff
\remove "Staff_symbol_engraver"
}
}
#})
\removeStaffLines Staff
{
c'
}
%%%%%%%%%%%%
What I ultimately need to base my further work on is a way to replace
the explicit call of \Staff with a procedure that takes the context name
as symbol? and returns the context def that is expected there.
Any ideas?
Thanks
Urs
Am 09.03.2016 um 01:53 schrieb Urs Liska:
Hi all,
I want to write a wrapper function to "install" an engraver in a number
of contexts. It works pretty well, but I want to make it better.
This is what I have so far.
\version "2.19.38"
install =
#(define-scheme-function (contexts)(symbol-list?)
(if (member 'Score contexts)
#{
\layout {
\context {
\Score
\consists "Clef_engraver"
}
}
#})
(if (member 'Staff contexts)
#{
\layout {
\context {
\Staff
\consists "Clef_engraver"
}
}
#})
(if (member 'Voice contexts)
#{
\layout {
\context {
\Voice
\consists "Clef_engraver"
}
}
#}))
\install Staff
{
c'
}
Clef_engraver doesn't make real sense, it's just there to have something
compilable.
In order to complete that I would have to repeat the conditional for all
existing context - and wouldn't even catch custom contexts. So I would
like to iterate over the symbol list to consist the engraver in a
non-redundant manner. The problem is, I don't know how to get from the
symbols like 'Score to the \Score incantation. I think it should go
something like this:
(for-each
(lambda (ctx)
#{
\layout {
\context {
% specify context from ctx
\consists "Clef_engraver"
}
}
#}
)
contexts)
This should work once I can "resolve" the comment
Any pointers or solution would be appreciated
Urs
_______________________________________________
lilypond-user mailing list
address@hidden
https://lists.gnu.org/mailman/listinfo/lilypond-user
_______________________________________________
lilypond-user mailing list
address@hidden
https://lists.gnu.org/mailman/listinfo/lilypond-user