|
From: | Andreas Schneider |
Subject: | Re: [Denemo-devel] Book with Denemo |
Date: | Sun, 8 May 2016 12:06:57 +0200 |
User-agent: | Mozilla/5.0 (X11; Linux x86_64; rv:38.0) Gecko/20100101 Icedove/38.7.0 |
Thank you! I have now come to the following scripts which work as desired: ;;;StartBookpart (let ((tag "StartBookpart")(thetitle "")) (d-DirectivePut-movementcontrol-override tag (logior DENEMO_OVERRIDE_GRAPHIC DENEMO_OVERRIDE_TAGEDIT)) (disp "checking previous bookpart title ...") (if (d-Directive-movementcontrol? tag) (set! thetitle (d-DirectiveGet-movementcontrol-data tag))) (set! thetitle (d-GetUserInputWithSnippets (_ "Start Bookpart")(_ "Give chapter title::") thetitle)) (if thetitle (begin (set! thetitle (car thetitle)) (disp thetitle) (d-DirectivePut-movementcontrol-data tag (scheme-escape thetitle)) (d-DirectivePut-movementcontrol-prefix tag (string-append " \\bookpart { %start of bookpart\n \\header {\n title = { " thetitle " }\n }\n")) (d-SetSaved #f) ) (d-InfoDialog "Cancelled") ) ) ;;;EndBookpart (let ((tag "EndBookpart")) (d-DirectivePut-movementcontrol-override tag (logior DENEMO_OVERRIDE_GRAPHIC DENEMO_OVERRIDE_TAGEDIT)) (d-DirectivePut-movementcontrol-postfix tag "\n} %end of bookpart\n") (d-SetSaved #f) ) Andreas
[Prev in Thread] | Current Thread | [Next in Thread] |