emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [PATCH] ob-scheme: Handle :epilogue params


From: Neil Jerram
Subject: Re: [PATCH] ob-scheme: Handle :epilogue params
Date: Wed, 18 Dec 2019 12:46:43 +0000



On Wed, 18 Dec 2019, 09:25 oldk1331, <address@hidden> wrote:
Hi all,

This is a simple change that adds support for :epilogue in ob-scheme.

Best wishes,
Qian

==========

* lisp/ob-scheme.el (org-babel-expand-body:scheme): Add :epilogue
  param support.

TINYCHANGE
---
 lisp/ob-scheme.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/lisp/ob-scheme.el b/lisp/ob-scheme.el
index 21d9fad2b..ee0d93c13 100644
--- a/lisp/ob-scheme.el
+++ b/lisp/ob-scheme.el
@@ -71,7 +71,8 @@
 (defun org-babel-expand-body:scheme (body params)
   "Expand BODY according to PARAMS, return the expanded body."
   (let ((vars (org-babel--get-vars params))
-       (prepends (cdr (assq :prologue params))))
+       (prepends (cdr (assq :prologue params)))
+       (postpends (cdr (assq :epilogue params))))
     (concat (and prepends (concat prepends "\n"))
            (if (null vars) body
              (format "(let (%s)\n%s\n)"
@@ -80,7 +81,8 @@
                         (format "%S" (print `(,(car var) ',(cdr var)))))
                       vars
                       "\n      ")
-                     body)))))
+                     body))
+           (and postpends (concat "\n" postpends)))))


 (defvar org-babel-scheme-repl-map (make-hash-table :test #'equal)
--
2.24.0

LGTM as another ob-scheme user. I don't think Scheme code should need the "\n", but it's consistent with the existing handling for prologue.

Best wishes,
      Neil


reply via email to

[Prev in Thread] Current Thread [Next in Thread]