On Thu, 2013-05-23 at 22:55 +0200, Andreas Schneider wrote: > Thank you very much. > > I copied and pasted your version of the script into the scheme script > editor and ran it. When I click the MarkupAtEnd button, still the Low > Level Denemo Directive Edit window appears (instead that the script is > re-executed). What am I doing wrong? Left click should be good, right click low-level. (Also perhaps shift left click ...) Richard
> > Andreas > > > Am 23.05.2013 22:28, schrieb 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"))) _______________________________________________ Denemo-devel mailing list [email protected] https://lists.gnu.org/mailman/listinfo/denemo-devel
