mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 21:37:50 +00:00
Code Releases Activity

reading tables from lisp code block output

Browse source 
* lisp/ob-lisp.el (org-babel-execute:lisp): Read tabular results
  written to STDOUT as tables.
This commit is contained in:
Eric Schulte 2013-10-06 17:13:01 -06:00
parent 5afd5d9785
commit 8aaf3c9748
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/ob-lisp.el
View file

@ -79,7 +79,13 @@ current directory string."
(org-babel-result-cond (cdr (assoc :result-params params))
result
(condition-case nil
(read (org-babel-lisp-vector-to-list result))
(if (member "output" (cdr (assoc :result-params params)))
;; read printed output using normal org table parsing
(let ((tmp-file (org-babel-temp-file "lisp-output-")))
(with-temp-file tmp-file (insert result))
(org-babel-import-elisp-from-file tmp-file))
;; read valued output as lisp
(read (org-babel-lisp-vector-to-list result)))
(error result))))
(funcall (if (member "output" (cdr (assoc :result-params params)))
#'car #'cadr)