[elpa] externals/org 6887851401 11/17: * lisp/ob-lilypond.el: Add support for :prologue/:epilogue parameters

[ELPA Syncer]

branch: externals/org
commit 6887851401e8c49bfde2f234a111e1bfb1d77ecc
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    * lisp/ob-lilypond.el: Add support for :prologue/:epilogue parameters
    
    (org-babel-expand-body:lilypond):
---
 lisp/ob-lilypond.el | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/lisp/ob-lilypond.el b/lisp/ob-lilypond.el
index 445d61bd9f..bd09ddbfb6 100644
--- a/lisp/ob-lilypond.el
+++ b/lisp/ob-lilypond.el
@@ -131,7 +131,9 @@ blocks.")
 
 (defun org-babel-expand-body:lilypond (body params)
   "Expand BODY according to PARAMS, return the expanded body."
-  (let ((vars (org-babel--get-vars params)))
+  (let ((vars (org-babel--get-vars params))
+        (prologue (cdr (assq :prologue params)))
+        (epilogue (cdr (assq :epilogue params))))
     (mapc
      (lambda (pair)
        (let ((name (symbol-name (car pair)))
@@ -142,7 +144,10 @@ blocks.")
                (if (stringp value) value (format "%S" value))
                body))))
      vars)
-    body))
+    (concat
+     (and prologue (concat prologue "\n"))
+     body
+     (and epilogue (concat "\n" epilogue "\n")))))
 
 (defun org-babel-execute:lilypond (body params)
   "Execute LilyPond src block according to arrange mode.