]> git.donarmstrong.com Git - lilypond.git/blob - scm/titling.scm
Update makelsr script.
[lilypond.git] / scm / titling.scm
1 ;;;; titling.scm -- titling functions
2 ;;;;
3 ;;;;  source file of the GNU LilyPond music typesetter
4 ;;;;
5 ;;;; (c) 2004--2006 Jan Nieuwenhuizen <janneke@gnu.org>
6 ;;;;          Han-Wen Nienhuys <hanwen@xs4all.nl>
7
8 (define-public (layout-extract-page-properties layout)
9   (list (append `((line-width . ,(ly:paper-get-number
10                                  layout 'line-width)))
11                 (ly:output-def-lookup layout 'text-font-defaults))))
12
13 ;;;;;;;;;;;;;;;;;;
14
15 (define-public ((marked-up-headfoot what-odd what-even) layout scopes page-number last?)
16
17   "Read variables WHAT-ODD, WHAT-EVEN from LAYOUT, and interpret them
18 as markup. The PROPS argument will include variables set in SCOPES and
19 page:last?, page:page-number-string and page:page-number
20
21
22   (define (get sym)
23     (ly:output-def-lookup layout sym))
24
25   (define (interpret-in-page-env potential-markup)
26     (if (markup? potential-markup)
27         (let* ((alists (map ly:module->alist scopes))
28                (prefixed-alists
29                 (map (lambda (alist)
30                        (map (lambda (entry)
31                               (cons
32                                (string->symbol
33                                 (string-append
34                                  "header:"
35                                  (symbol->string (car entry))))
36                                (cdr entry)))
37                             alist))
38                      alists))
39                (pgnum-alist
40                 (list
41                  (cons 'header:tagline
42                        (ly:modules-lookup scopes 'tagline
43                                           (ly:output-def-lookup layout 'tagline)))
44                  (cons 'page:last? last?)
45                  (cons 'page:page-number-string
46                        (number->string page-number))
47                  (cons 'page:page-number page-number)))
48                (props (append
49                        (list pgnum-alist)
50                        prefixed-alists
51                        (layout-extract-page-properties layout))))
52           
53           (interpret-markup layout props potential-markup))
54
55         empty-stencil))
56
57   (interpret-in-page-env
58    (if (and (even? page-number)
59             (markup? (get what-even)))
60        (get what-even)
61        (get what-odd))))
62
63 (define-public ((marked-up-title what) layout scopes)
64   "Read variables WHAT from SCOPES, and interpret it as markup. The
65 PROPS argument will include variables set in SCOPES (prefixed with
66 `header:'
67 "
68   
69   (define (get sym)
70     (let ((x (ly:modules-lookup scopes sym)))
71       (if (markup? x) x #f)))
72
73   (let* ((alists (map ly:module->alist scopes))
74          (prefixed-alist
75           (map (lambda (alist)
76                  (map (lambda (entry)
77                         (cons
78                          (string->symbol
79                           (string-append
80                            "header:"
81                            (symbol->string (car entry))))
82                          (cdr entry)))
83                       alist))
84                alists))
85          (props (append prefixed-alist
86                         (layout-extract-page-properties layout)))
87
88          (markup (ly:output-def-lookup layout what)))
89
90     (if (markup? markup)
91         (interpret-markup layout props markup)
92         (ly:make-stencil '() '(1 . -1) '(1 . -1)))))