branch: externals/org
commit 320b0e5b1fcca01b1820608ea3ea6ca76305349c
Author: Ihor Radchenko <yanta...@posteo.net>
Commit: Ihor Radchenko <yanta...@posteo.net>
* lisp/ob-lisp.el: Add support for :prologue/:epilogue parameters
(org-babel-expand-body:lisp):
---
lisp/ob-lisp.el | 8 +++++++-
1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/lisp/ob-lisp.el b/lisp/ob-lisp.el
index b1d1b1804a..5799791d61 100644
--- a/lisp/ob-lisp.el
+++ b/lisp/ob-lisp.el
@@ -74,13 +74,19 @@ current directory string."
(let* ((vars (org-babel--get-vars params))
(result-params (cdr (assq :result-params params)))
(print-level nil) (print-length nil)
+ (prologue (cdr (assq :prologue params)))
+ (epilogue (cdr (assq :epilogue params)))
(body (if (null vars) (org-trim body)
(concat "(let ("
(mapconcat
(lambda (var)
(format "(%S (quote %S))" (car var) (cdr var)))
vars "\n ")
- ")\n" body ")"))))
+ ")\n"
+ (and prologue (concat prologue "\n"))
+ body
+ (and epilogue (concat "\n" epilogue "\n"))
+ ")"))))
(if (or (member "code" result-params)
(member "pp" result-params))
(format "(pprint %s)" body)
