Re: [Denemo-devel] Book with Denemo

[Andreas Schneider]

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