Thank you very much, that did the trick!
I tried to extend the script so that the user can choose from different
styles (using the clef chooser script as template):
;ScoreRehearsalMarkFormat
(let ((tag "ScoreRehearsalMarkFormat")
(choice (RadioBoxMenu (cons (_ "alphabetic") "#format-mark-alphabet")
(cons (_ "numeric") "#format-mark-numbers")
(cons (_ "boxed alphabetic") "")
(cons (_ "boxed numeric") "#format-mark-box-numbers")
(cons (_ "circled alphabetic") "#format-mark-circle-alphabet")
(cons (_ "circled numeric") "#format-mark-circle-numbers"))))
(d-DirectivePut-score-postfix tag (string-append "\\set
Score.markFormatter = " choice))
(d-DirectivePut-score-override tag DENEMO_OVERRIDE_GRAPHIC)
(d-SetSaved #f))
However, the choice is not inserted in the lilypond code. What do I do
wrong? Once completed, you can include the script in Denemo if you're
interested.
Andreas
Am 01.04.2015 um 11:28 schrieb Richard Shann:
> On Wed, 2015-04-01 at 10:05 +0100, Richard Shann wrote:
>> hmm, I would guess this would then have to be set on every movement
>> (the
>> \score {} construct in LilyPond is a movement in Denemo).
>
> It seems you need to specify the context (ie Score.markFormatter) thus:
>
>
> (d-DirectivePut-score-postfix "ScoreRehearsalMarkFormat" "\\set
> Score.markFormatter = #format-mark-numbers"))
>
>
> this outputs that lilypond syntax at the start of each movement (ie in
> each \score {} block). That seems a bit odd to me (notice this is
> setting the postfix field, not the prefix one, the latter puts the
> lilypond syntax passed before the \score {} block altogether).
>
> Richard
_______________________________________________
Denemo-devel mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/denemo-devel
