ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* lisp/ob-lilypond.el: Add support for :prologue/:epilogue parameters 

(org-babel-expand-body:lilypond):
This commit is contained in:
Ihor Radchenko 2023-10-19 11:59:27 +03:00
parent f0a2531bb4
commit 6887851401
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/ob-lilypond.el
View File

@ -131,7 +131,9 @@ blocks.")
(defun org-babel-expand-body:lilypond (body params) (defun org-babel-expand-body:lilypond (body params)
"Expand BODY according to PARAMS, return the expanded body." "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 (mapc
(lambda (pair) (lambda (pair)
(let ((name (symbol-name (car pair))) (let ((name (symbol-name (car pair)))
@ -142,7 +144,10 @@ blocks.")
(if (stringp value) value (format "%S" value)) (if (stringp value) value (format "%S" value))
body)))) body))))
vars) vars)
body)) (concat
(and prologue (concat prologue "\n"))
body
(and epilogue (concat "\n" epilogue "\n")))))
(defun org-babel-execute:lilypond (body params) (defun org-babel-execute:lilypond (body params)
"Execute LilyPond src block according to arrange mode. "Execute LilyPond src block according to arrange mode.