branch: externals/org
commit 6887851401e8c49bfde2f234a111e1bfb1d77ecc
Author: Ihor Radchenko <yanta...@posteo.net>
Commit: Ihor Radchenko <yanta...@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.
