[elpa] externals/org be59f11435 05/17: * lisp/ob-calc.el: Add support for :prologue/:epilogue parameters

[ELPA Syncer]

branch: externals/org
commit be59f11435592a5b2fd0b0b5a53bca6a3becf019
Author: Ihor Radchenko <yantar92@posteo.net>
Commit: Ihor Radchenko <yantar92@posteo.net>

    * 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