Following your hints (I didn't quite understand the part about the local
variables) I progressed to this version:
;;;MarkupAtEnd
(let ((tag "MarkupAtEnd")(themarkup #f))
(d-DirectivePut-movementcontrol-override tag DENEMO_OVERRIDE_GRAPHIC)
(d-DirectivePut-movementcontrol-display tag "MarkupAtEnd")
(disp "checking previous markup ...")
(if (d-Directive-movementcontrol? tag)
((let themarkup (d-DirectiveGet-movementcontrol-postfix
tag))(disp
"previous markup:" themarkup)
((let themarkup (""))(disp "first call detected"))
)
(set! themarkup (d-GetUserInput (_ "MarkupAtEnd") (_ "Edit markup:")
themarkup))
(disp themarkup)
(d-DirectivePut-movementcontrol-postfix tag themarkup)
(d-DirectivePut-movementcontrol-override tag DENEMO_OVERRIDE_AFFIX)
(d-SetSaved #f)
)
There is still an error in lines 6 to 9 which prevents the script from
running, but I don't see what it is:
** (denemo:3105): WARNING **:
A script error for file/script
[...]
the throw arguments are
(scm_i_lreadparen #<unknown port>:14:2: end of file () #f)
** (denemo:3105): WARNING **:
The tag is
read-error
When I take those lines (6 to 9) out, it runs. A movement directive is
created, but the markup is put inside the movement after the layout
block, not directly after the movement (the "} %End of Movement" part in
the lilypond file) as I intended. No button is created (I remember I had
this (last) problem before, I will look into that when I got some sleep).
Andreas
_______________________________________________
Denemo-devel mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/denemo-devel
