Consist engraver within loop

[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