4 #(define-public (book-title paper scopes)
5 "Generate book title from header strings."
8 (let ((x (ly:modules-lookup scopes sym)))
9 (if (and x (not (unspecified? x))) x "")))
11 (let ((props (page-properties paper)))
17 (#:override '(baseline-skip . 4)
20 (#:normalsize (get 'dedication))
22 (#:huge #:bigger #:bigger #:bigger #:bigger #:bold (get 'title))
23 #:override '(baseline-skip . 3)
26 (#:large #:bigger #:bigger #:bold (get 'subtitle))
27 #:fill-line (#:bigger #:bigger #:bold (get 'subsubtitle)))
28 #:override '(baseline-skip . 5)
30 #:override '(baseline-skip . 2.5)
33 (#:bigger (get 'poet) #:large #:bigger #:caps (get 'composer))
34 #:fill-line (#:bigger (get 'texttranslator) #:bigger (get 'opus))
36 (#:bigger (get 'meter) #:bigger (get 'arranger))
38 #:fill-line (#:large #:bigger (get 'instrument))
40 #:fill-line (#:large #:bigger #:caps (get 'piece) ""))))))))
42 #(define-public (user-title paper markup)
43 "Generate book title from header markup."
45 (let ((props (page-properties paper))
46 (baseline-skip (chain-assoc-get 'baseline-skip props 2)) )
47 (stack-lines DOWN 0 BASELINE-SKIP
48 (list (interpret-markup paper props markup))))))
50 #(define-public (score-title paper scopes)
51 "Generate score title from header strings."
54 (let ((x (ly:modules-lookup scopes sym)))
55 (if (and x (not (unspecified? x))) x "")))
57 (let ((props (page-properties paper)))
63 (#:override '(baseline-skip . 4)
67 #:fill-line (#:large #:bigger #:caps (get 'piece) "")))))))