Hi David,
thank you!
Am 12.12.2017 um 15:14 schrieb David Kastrup:
Why not just
\paper {
#(for-each (lambda (p)
(ly:parser-define! (car p) (primitive-eval (cdr p))))
paper-values)
}
or some suitably similar wrapper?
Jan-Peter
\version "2.19.80"
% store the value in an alist
myValues.indent = #'#{ 5\cm #}
myValues.top-margin = #'#{ 5\cm #}
myValues = #`(,@myValues
(left-margin . #{ 3\cm #}))
% function to calculate the value for the paper block
paperValues =
#(define-scheme-function (vals)(list?)
(for-each (lambda (p)
(ly:parser-define! (car p) (primitive-eval (cdr p))))
vals))
% test
\paper {
\paperValues #myValues
}
\relative { bes' a c b }
_______________________________________________
lilypond-user mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/lilypond-user
