Hi, Eric
I'm sorry for that I used `flet' in the patch, It's a easy way to let
function `current-message' work in batch mode, so I used it even I saw that
emacs says `flet' is obsolete, I'm sorry for that.
And I made a new patch(attachment) using `defadvice' for `message' to
capture the message in batch mode, after the message being captured, the
advice function is removed. Is this way OK?
And I also sent a request email to ass...@gnu.org, and now waiting the
reply.
Thanks.
On Fri, Apr 11, 2014 at 10:45 AM, Eric Schulte <schulte.e...@gmail.com>wrote:
> We can no longer use `flet' in the Org-mode code base, please re-work
> this patch w/o flet.
>
> Also, I don't see your name in the list of contributors, and (I believe)
> this patch is too large to apply w/o FSF assignment. See the following
> page on how to contribute to Org-mode.
>
> http://orgmode.org/worg/org-contribute.html
>
> KDr2 <killy.d...@gmail.com> writes:
>
> > The bug:
> > write file ~/scheme-test.org with the content below:
> > -------8<--------------
> > #+BEGIN_SRC scheme :exports results :results output raw
> > (display "Hello Scheme in OrgMode")
> > #+END_SRC
> > -------8<--------------
> >
> > and run:
> >
> > emacs --batch --eval='(load "~/.emacs.d/init.el")' ~/scheme-test.org -f
> > org-html-export-to-html
> >
> > you will find the bug:
> >
> > `org-babel-scheme-execute-with-geiser' uses `current-message' to get the
> > results of scheme code blocks, but `current-message' always returns nil
> in
> > batch mode, and this patch fixes this.
> >
> > --
>
> --
> Eric Schulte
> https://cs.unm.edu/~eschulte
> PGP: 0x614CA05D
>
--
--
KDr2, http://kdr2.com
From fe5549f3f48acf9b51aeb3706eb8dd3d76ab18c1 Mon Sep 17 00:00:00 2001
From: KDr2 <killy.d...@gmail.com>
Date: Fri, 11 Apr 2014 12:56:24 +0800
Subject: [PATCH] lisp/ob-scheme.el: Fix scheme code blocks execution error in
batch mode
* lisp/ob-scheme.el (org-babel-scheme-capture-current-message, org-babel-scheme-execute-with-geiser): Capture scheme code results via current-message both in interactive mode and noninteractive mode.
`org-babel-scheme-execute-with-geiser' uses `current-message' to get the results of scheme code blocks, but `current-message' always returns nil in batch mode, and this patch fixes this.
Modified from a patch proposal by KDr2(killy.d...@gmail.com)
---
lisp/ob-scheme.el | 20 +++++++++++++++++---
1 file changed, 17 insertions(+), 3 deletions(-)
diff --git a/lisp/ob-scheme.el b/lisp/ob-scheme.el
index b7117e9..6b82c6e 100644
--- a/lisp/ob-scheme.el
+++ b/lisp/ob-scheme.el
@@ -118,6 +118,19 @@ org-babel-scheme-execute-with-geiser will use a temporary session."
(name))))
result))
+(defmacro org-babel-scheme-capture-current-message (&rest body)
+ "Capture current message in both interactive and noninteractive mode"
+ `(if noninteractive
+ (let ((current-message nil))
+ (defadvice message (after capture-current-message activate)
+ (setq current-message ad-return-value))
+ ,@body
+ (ad-unadvise #'message)
+ current-message)
+ (progn
+ ,@body
+ (current-message))))
+
(defun org-babel-scheme-execute-with-geiser (code output impl repl)
"Execute code in specified REPL. If the REPL doesn't exist, create it
using the given scheme implementation.
@@ -142,10 +155,11 @@ is true; otherwise returns the last value."
(current-buffer)))))
(setq geiser-repl--repl repl-buffer)
(setq geiser-impl--implementation nil)
- (geiser-eval-region (point-min) (point-max))
+ (setq result (org-babel-scheme-capture-current-message
+ (geiser-eval-region (point-min) (point-max))))
(setq result
- (if (equal (substring (current-message) 0 3) "=> ")
- (replace-regexp-in-string "^=> " "" (current-message))
+ (if (and (stringp result) (equal (substring result 0 3) "=> "))
+ (replace-regexp-in-string "^=> " "" result)
"\"An error occurred.\""))
(when (not repl)
(save-current-buffer (set-buffer repl-buffer)
--
1.9.2
