mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2025-01-14 16:51:15 +00:00
Code

Ruby version of previous commit.

Browse Source 
Bug fix: I was missing out org-babel-table-or-string with external
    process evaluation (non-session).

    Also, I have renamed org-babel-ruby-table-or-results to org-babel-ruby-table-or-string.

    (the previous commit's message should have read org-babel-python-table-or-results...)
This commit is contained in:
Dan Davison 2009-07-05 19:59:24 -04:00
parent e45cf15b06
commit 9750226de7
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/langs/org-babel-ruby.el
View File

@ -83,7 +83,7 @@ specifying a var of the same value."
(concat "[" (mapconcat #'org-babel-ruby-var-to-ruby var ", ") "]")
(format "%S" var)))
(defun org-babel-ruby-table-or-results (results)
(defun org-babel-ruby-table-or-string (results)
"If the results look like a table, then convert them into an
Emacs-lisp table, otherwise return the results as a string."
(org-babel-read
@ -140,7 +140,8 @@ last statement in BODY."
(insert (format org-babel-ruby-wrapper-method body tmp-file))
;; (message "buffer=%s" (buffer-string)) ;; debugging
(shell-command-on-region (point-min) (point-max) "ruby"))
(with-temp-buffer (insert-file-contents tmp-file) (buffer-string))))))
(org-babel-ruby-table-or-string
(with-temp-buffer (insert-file-contents tmp-file) (buffer-string)))))))
;; comint session evaluation
(message "session evaluation")
(let* ((full-body
@ -154,7 +155,7 @@ last statement in BODY."
(mapcar #'org-babel-trim raw)))))))
(case result-type
(output (mapconcat #'identity (reverse (cdr results)) "\n"))
(value (org-babel-ruby-table-or-results (car results)))))))
(value (org-babel-ruby-table-or-string (car results)))))))
(defun org-babel-ruby-read-string (string)
"Strip \\\"s from around ruby string"