tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

* lisp/ob-emacs-lisp.el: Add support for :prologue/:epilogue parameters 

(org-babel-expand-body:emacs-lisp):
This commit is contained in:
Ihor Radchenko 2023-10-19 11:58:17 +03:00
parent 3bffa96448
commit 936290fe18
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/ob-emacs-lisp.el
View File

@ -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."