[elpa] externals/org 3bffa96448 06/17: * lisp/ob-dot.el: Add support for :prologue/:epilogue parameters

[ELPA Syncer]

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

    * lisp/ob-dot.el: Add support for :prologue/:epilogue parameters
    
    (org-babel-expand-body:dot):
---
 lisp/ob-dot.el | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/lisp/ob-dot.el b/lisp/ob-dot.el
index db9750e9a3..d1a4897d92 100644
--- a/lisp/ob-dot.el
+++ b/lisp/ob-dot.el
@@ -51,7 +51,9 @@
 
 (defun org-babel-expand-body:dot (body params)
   "Expand BODY according to PARAMS, return the expanded body."
-  (let ((vars (org-babel--get-vars params)))
+  (let ((vars (org-babel--get-vars params))
+        (prologue (cdr (assq :prologue params)))
+        (epilogue (cdr (assq :epilogue params))))
     (mapc
      (lambda (pair)
        (let ((name (symbol-name (car pair)))
@@ -64,7 +66,10 @@
                t
                t))))
      vars)
-    body))
+    (concat
+     (and prologue (concat prologue "\n"))
+     body
+     (and epilogue (concat "\n" epilogue "\n")))))
 
 (defun org-babel-execute:dot (body params)
   "Execute Dot BODY with org-babel according to PARAMS.