Re: [Denemo-devel] Scheme script debugging

[Richard Shann]

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).
>