From 320b0e5b1fcca01b1820608ea3ea6ca76305349c Mon Sep 17 00:00:00 2001 From: Ihor Radchenko Date: Thu, 19 Oct 2023 11:59:37 +0300 Subject: [PATCH] * 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 b1d1b1804..5799791d6 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)