3 (define-module (scm framework-pdf))
5 (use-modules (ice-9 regex)
13 (define framework-pdf-module (current-module))
15 ;;(define pdebug stderr)
16 (define (pdebug . rest) #f)
21 (cons (pdf-ify (car lst)) (pdf-ify (cdr lst))))
23 (vector-for-each pdf-ify lst))
24 ((ly:pdf-object? lst) lst)
32 (ly:make-pdf-object '(null)))))
34 (define (make-page-object parent contents)
40 (Contents . ,contents))))))
42 (define (make-page-node root))
45 (define-public (output-framework basename book scopes fields)
46 (let* ((filename (format "~a.pdf" basename))
47 (pdf (ly:open-pdf-file filename))
49 (ly:make-paper-outputter (format "~a.bla.pdf" basename) "pdf"))
50 (paper (ly:paper-book-paper book))
51 (pages (ly:paper-book-pages book))
52 (landscape? (eq? (ly:output-def-lookup paper 'landscape) #t))
53 (page-number (1- (ly:output-def-lookup paper 'firstpagenumber)))
54 (page-count (length pages))
55 (port (ly:outputter-port outputter)))))