- From: Victor Porton <address@hidden>
- To: François Poulain <address@hidden>, "address@hidden" <address@hidden>
- Subject: Re: [TeXmacs] Please help me to create a Scheme script
- Date: Thu, 31 Oct 2013 14:43:12 +0200
- Envelope-from: address@hidden
31.10.2013, 10:07, "François Poulain" <address@hidden>:
>
Hi,
>
>
See TeXmacs/progs/generic/document-menu.scm for details.
>
>
Le Thu, 31 Oct 2013 00:16:25 +0200,
>
Victor Porton <address@hidden> a écrit :
>
>
> - switch page type to "Paper"
>
>
This is done with : (init-page-medium "paper")
>
>
> - call "Update All" 6 times (or how many is enough?)
>
>
This is done with :
>
(begin
>
(generate-all-aux)
>
(inclusions-gc)
>
(wait-update-current-buffer))
>
>
> - switch page type back
>
>
This is done with : (init-page-medium "papyrus")
>
>
> Also help to attach this script to the user's toolbar.
>
>
I don't advise you to to this. You can very simply add a shortcut with
>
something like : (kbd-map ("C-U" (my-refresh-buffer)))
(define my-refresh-buffer
(begin
(init-page-medium "paper")
(generate-all-aux)
(inclusions-gc)
(wait-update-current-buffer))
(generate-all-aux)
(inclusions-gc)
(wait-update-current-buffer))
(generate-all-aux)
(inclusions-gc)
(wait-update-current-buffer))
(generate-all-aux)
(inclusions-gc)
(wait-update-current-buffer))
(generate-all-aux)
(inclusions-gc)
(wait-update-current-buffer))
(generate-all-aux)
(inclusions-gc)
(wait-update-current-buffer)
(init-page-medium "papyrus"))
)
/home/porton/.TeXmacs/progs/my-init-texmacs.scm:11:1: In procedure
memoization in expression (define my-refresh-buffer (init-page-medium
"paper") ...):
/home/porton/.TeXmacs/progs/my-init-texmacs.scm:11:1: In file
"/home/porton/.TeXmacs/progs/my-init-texmacs.scm", line 10: Missing or extra
expression in (define my-refresh-buffer (init-page-medium "paper")
(generate-all-aux) (inclusions-gc) (wait-update-current-buffer)).
What's wrong?
--
Victor Porton -
http://portonvictor.org
Archive powered by MHonArc 2.6.19.