[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Denemo-devel] Scheme script debugging
From: |
Richard Shann |
Subject: |
Re: [Denemo-devel] Scheme script debugging |
Date: |
Thu, 23 May 2013 21:28:34 +0100 |
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).
>
- Re: [Denemo-devel] Scheme script debugging, (continued)
- Re: [Denemo-devel] Scheme script debugging, Andreas Schneider, 2013/05/22
- Re: [Denemo-devel] Scheme script debugging, Richard Shann, 2013/05/22
- Re: [Denemo-devel] Scheme script debugging, Richard Shann, 2013/05/22
- Re: [Denemo-devel] Scheme script debugging, Andreas Schneider, 2013/05/23
- Re: [Denemo-devel] Scheme script debugging, Richard Shann, 2013/05/23
- Re: [Denemo-devel] Scheme script debugging, Andreas Schneider, 2013/05/23
- Re: [Denemo-devel] Scheme script debugging, Richard Shann, 2013/05/23
- Re: [Denemo-devel] Scheme script debugging, Andreas Schneider, 2013/05/23
- Re: [Denemo-devel] Scheme script debugging, Richard Shann, 2013/05/23
- Re: [Denemo-devel] Scheme script debugging, Andreas Schneider, 2013/05/23
- Re: [Denemo-devel] Scheme script debugging,
Richard Shann <=
- Re: [Denemo-devel] Scheme script debugging, Andreas Schneider, 2013/05/23
- Re: [Denemo-devel] Scheme script debugging, Richard Shann, 2013/05/23
- Re: [Denemo-devel] Scheme script debugging, Andreas Schneider, 2013/05/24
- Re: [Denemo-devel] Scheme script debugging, Richard Shann, 2013/05/24
- Message not available
- Message not available
- Re: [Denemo-devel] Scheme script debugging, Andreas Schneider, 2013/05/28