forked from mirrors/org-mode
* lisp/ob-emacs-lisp.el: Add support for :prologue/:epilogue parameters
(org-babel-expand-body:emacs-lisp):
This commit is contained in:
parent
3bffa96448
commit
936290fe18
|
@ -53,14 +53,18 @@ by `org-edit-src-code'.")
|
|||
"Expand BODY according to PARAMS, return the expanded body."
|
||||
(let ((vars (org-babel--get-vars params))
|
||||
(print-level nil)
|
||||
(print-length nil))
|
||||
(print-length nil)
|
||||
(prologue (cdr (assq :prologue params)))
|
||||
(epilogue (cdr (assq :epilogue params))))
|
||||
(if (null vars) (concat body "\n")
|
||||
(format "(let (%s)\n%s\n)"
|
||||
(format "(let (%s)\n%s%s%s\n)"
|
||||
(mapconcat
|
||||
(lambda (var)
|
||||
(format "%S" `(,(car var) ',(cdr var))))
|
||||
vars "\n ")
|
||||
body))))
|
||||
(if prologue (concat prologue "\n ") "")
|
||||
body
|
||||
(if epilogue (concat "\n " epilogue "\n") "")))))
|
||||
|
||||
(defun org-babel-execute:emacs-lisp (body params)
|
||||
"Execute emacs-lisp code BODY according to PARAMS."
|
||||
|
|
Loading…
Reference in New Issue