diff --git a/lisp/ob-lilypond.el b/lisp/ob-lilypond.el index 9693b89e2..3cbdd2b27 100644 --- a/lisp/ob-lilypond.el +++ b/lisp/ob-lilypond.el @@ -183,6 +183,12 @@ specific arguments to =org-babel-tangle=." (in-file (org-babel-temp-file "lilypond-"))) (with-temp-file in-file + ;; To create music fragments suitable for mixing music and text, + ;; newer versions of lilypond require setting at least the + ;; following two variables introduced in version 2.22. + (insert "#(if (ly:get-option 'use-paper-size-for-page) +(begin (ly:set-option 'use-paper-size-for-page #f) +(ly:set-option 'tall-page-formats 'pdf)))\n") (insert (org-babel-expand-body:generic body params))) (org-babel-eval (concat @@ -199,7 +205,9 @@ specific arguments to =org-babel-tangle=." (file-name-sans-extension out-file) " " cmdline - in-file) "")) nil) + in-file) + "")) + nil) (defun org-babel-prep-session:lilypond (_session _params) "Return an error because LilyPond exporter does not support sessions."