branch: externals/org
commit be59f11435592a5b2fd0b0b5a53bca6a3becf019
Author: Ihor Radchenko <[email protected]>
Commit: Ihor Radchenko <[email protected]>
* lisp/ob-calc.el: Add support for :prologue/:epilogue parameters
(org-babel-expand-body:calc):
---
lisp/ob-calc.el | 10 ++++++++--
1 file changed, 8 insertions(+), 2 deletions(-)
diff --git a/lisp/ob-calc.el b/lisp/ob-calc.el
index 02a33384b2..b1d090a0a3 100644
--- a/lisp/ob-calc.el
+++ b/lisp/ob-calc.el
@@ -44,8 +44,14 @@
(defvar org-babel-default-header-args:calc nil
"Default arguments for evaluating a calc source block.")
-(defun org-babel-expand-body:calc (body _params)
- "Expand BODY according to PARAMS, return the expanded body." body)
+(defun org-babel-expand-body:calc (body params)
+ "Expand BODY according to PARAMS, return the expanded body."
+ (let ((prologue (cdr (assq :prologue params)))
+ (epilogue (cdr (assq :epilogue params))))
+ (concat
+ (and prologue (concat prologue "\n"))
+ body
+ (and epilogue (concat "\n" epilogue "\n")))))
(defvar org--var-syms) ; Dynamically scoped from org-babel-execute:calc
