From 3bffa964482ed50de3229a1f03e52bc440242819 Mon Sep 17 00:00:00 2001 From: Ihor Radchenko Date: Thu, 19 Oct 2023 11:58:07 +0300 Subject: [PATCH] * 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 db9750e9a..d1a4897d9 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.