From 936290fe1824a8453d6632a48a7980b3ee296690 Mon Sep 17 00:00:00 2001 From: Ihor Radchenko Date: Thu, 19 Oct 2023 11:58:17 +0300 Subject: [PATCH] * lisp/ob-emacs-lisp.el: Add support for :prologue/:epilogue parameters (org-babel-expand-body:emacs-lisp): --- lisp/ob-emacs-lisp.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/lisp/ob-emacs-lisp.el b/lisp/ob-emacs-lisp.el index 088300960..6fbd65ad9 100644 --- a/lisp/ob-emacs-lisp.el +++ b/lisp/ob-emacs-lisp.el @@ -53,14 +53,18 @@ by `org-edit-src-code'.") "Expand BODY according to PARAMS, return the expanded body." (let ((vars (org-babel--get-vars params)) (print-level nil) - (print-length nil)) + (print-length nil) + (prologue (cdr (assq :prologue params))) + (epilogue (cdr (assq :epilogue params)))) (if (null vars) (concat body "\n") - (format "(let (%s)\n%s\n)" + (format "(let (%s)\n%s%s%s\n)" (mapconcat (lambda (var) (format "%S" `(,(car var) ',(cdr var)))) vars "\n ") - body)))) + (if prologue (concat prologue "\n ") "") + body + (if epilogue (concat "\n " epilogue "\n") ""))))) (defun org-babel-execute:emacs-lisp (body params) "Execute emacs-lisp code BODY according to PARAMS."