It was DENEMO_OVERRIDE_TAGEDIT that was needed...
I'll add this to git now, but for reference here is the script
Richard
;;;MarkupAtEnd
(let ((tag "MarkupAtEnd")(themarkup ""))
(d-DirectivePut-movementcontrol-override tag (logior
DENEMO_OVERRIDE_GRAPHIC DENEMO_OVERRIDE_TAGEDIT))
(d-DirectivePut-movementcontrol-display tag (_ "Markup At End"))
(disp "checking previous markup ...")
(if (d-Directive-movementcontrol? tag)
(set! themarkup (d-DirectiveGet-movementcontrol-postfix
tag)))
(set! themarkup (d-GetUserInputWithSnippets (_ "Markup At End")
(_ "Edit markup:") themarkup))
(if themarkup
(begin
(set! themarkup (car themarkup))
(disp themarkup)
(d-DirectivePut-movementcontrol-postfix tag themarkup)
(d-SetSaved #f))
(d-InfoDialog "Cancelled")))
On Thu, 2013-05-23 at 21:37 +0200, Andreas Schneider wrote:
> Okay, I have removed the DENEMO_OVERRIDE_EDITOR, but as I tried before,
> it still does not execute the script on pressing the button, but shows
> the default Low Level Denemo Directive Edit window. Here's the script:
>
> ;;;MarkupAtEnd
> (let ((tag "MarkupAtEnd")(themarkup #f))
> (d-DirectivePut-movementcontrol-override tag (logior
> DENEMO_OVERRIDE_GRAPHIC DENEMO_OVERRIDE_AFFIX))
> (d-DirectivePut-movementcontrol-display tag "MarkupAtEnd")
> (disp "checking previous markup ...")
> (if (d-Directive-movementcontrol? tag)
> (set! themarkup (d-DirectiveGet-movementcontrol-postfix
> tag))
>
> (set! themarkup (""))
>
> )
> (set! themarkup (d-GetUserInput (_ "MarkupAtEnd") (_ "Edit
> markup:") themarkup))
> (disp themarkup)
> (d-DirectivePut-movementcontrol-postfix tag themarkup)
> (d-SetSaved #f)
> )
>
> Thanks,
>
> Andreas
>
> Am 23.05.2013 21:20, schrieb Richard Shann:
> > Please send the exact script you have used for your command and the name
> > you gave the command (not the label, but the actual command name).
> > I will be able to say what it is exactly that is going on.
> >
> > (Well, that is if you have gone as far as creating a command to execute
> > the scheme, otherwise, just send the scheme itself).
>
_______________________________________________
Denemo-devel mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/denemo-devel
