4 (define-public (simple-markup grob props . rest)
5 (Text_item::text_to_molecule grob props (car rest))
8 (define-public (line-markup grob props . rest)
11 (map (lambda (x) (interpret_markup grob props x)) (car rest)))
14 (define (combine-molecule-list lst)
15 (if (null? (cdr lst)) (car lst)
16 (ly:add-molecule (car lst) (combine-molecule-list (cdr lst)))
19 (define-public (combine-markup grob props . rest)
20 (combine-molecule-list (map (lambda (x) (interpret_markup grob props x)) (car rest))))
22 (define-public (bold-markup grob props . rest)
23 (interpret_markup grob (cons '((font-series . bold)) props) (car rest))
26 (define-public (column-markup grob props . rest)
29 (map (lambda (x) (interpret_markup grob props x)) (car rest)))
37 (eval (string->symbol (string-append (symbol->string x) "-markup")) (current-module))
38 'markup-function? #t))
40 '(simple column bold combine line )
43 (define-public (brew-new-markup-molecule grob)
44 (interpret_markup grob
45 (Font_interface::get_property_alist_chain grob)
46 (ly:get-grob-property grob 'text)
50 (define (interpret_markup grob props markup)
57 (apply func (cons grob (cons props args)) )
60 (define (new-markup? x)
61 (markup-function? (car x))
64 (define (markup-function? x)
65 (object-property 'markup-function? x))