forked from mirrors/org-mode
* lisp/ob-dot.el: Add support for :prologue/:epilogue parameters
(org-babel-expand-body:dot):
This commit is contained in:
parent
be59f11435
commit
3bffa96448
|
@ -51,7 +51,9 @@
|
||||||
|
|
||||||
(defun org-babel-expand-body:dot (body params)
|
(defun org-babel-expand-body:dot (body params)
|
||||||
"Expand BODY according to PARAMS, return the expanded body."
|
"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
|
(mapc
|
||||||
(lambda (pair)
|
(lambda (pair)
|
||||||
(let ((name (symbol-name (car pair)))
|
(let ((name (symbol-name (car pair)))
|
||||||
|
@ -64,7 +66,10 @@
|
||||||
t
|
t
|
||||||
t))))
|
t))))
|
||||||
vars)
|
vars)
|
||||||
body))
|
(concat
|
||||||
|
(and prologue (concat prologue "\n"))
|
||||||
|
body
|
||||||
|
(and epilogue (concat "\n" epilogue "\n")))))
|
||||||
|
|
||||||
(defun org-babel-execute:dot (body params)
|
(defun org-babel-execute:dot (body params)
|
||||||
"Execute Dot BODY with org-babel according to PARAMS.
|
"Execute Dot BODY with org-babel according to PARAMS.
|
||||||
|
|
Loading…
Reference in New Issue