Re: Gnus-FAQ: xml to texi with Scheme prog

[sigurd@12move.de (Karl Pflästerer)]

On 21 Mrz 2005, reinersteib+gmane@imap.cc wrote:


>   (insert "@ignore\n   arch-" "tag: "
> 	  "64dc5692-edb4-4848-a965-7aa0181acbb8"
>           "\n@end ignore")
>
> ... to `main' in `xml2texi.scm'?

You could simply rewrite the rule for the article.

At the moment it is:

               (article . ,(lambda (tag . sects)
                             (cons (boilerplate up1) sects)))

it could be:

               (article . ,(lambda (tag . sects)
                             (list (boilerplate up1) sects
                                    (format "\
~%@c @bye~%\
@ignore~%\
arch-\
tag: 64dc5692-edb4-4848-a965-7aa0181acbb8~%\
@end ignore~%"))))

Clearly what is written as format ... should be defined as variable and
simply included there.

Like e.g.

(define +this-is-the-end-my-friend+
    (format "\
@c @bye~%\
@ignore~%\
arch-\
tag: 64dc5692-edb4-4848-a965-7aa0181acbb8~%\
@end ignore"))

               (article . ,(lambda (tag . sects)
                             (list (boilerplate up1) sects 
                                   +this-is-the-end-my-friend+)))


Or something similar.


   KP