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

Removing results processing from org-babel-sh.el

Browse source
This commit is contained in:
Dan Davison 2009-07-05 19:10:45 -04:00
parent 2fb922aaa7
commit afdf02b910
1 changed files with 2 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/langs/org-babel-sh.el
View file

@ -52,16 +52,8 @@ function is called by `org-babel-execute-src-block'."
(car pair)
(org-babel-sh-var-to-sh (cdr pair))))
vars "\n") "\n" body "\n\n")) ;; then the source block body
(session (org-babel-sh-initiate-session (cdr (assoc :session params))))
(results (org-babel-sh-evaluate session full-body result-type)))
(if (member "scalar" result-params)
results
(setq results (let ((tmp-file (make-temp-file "org-babel-shell")))
(with-temp-file tmp-file (insert results))
(org-babel-import-elisp-from-file tmp-file)))
(if (and (member "vector" results) (not (listp results)))
(list (list results))
results))))
(session (org-babel-sh-initiate-session (cdr (assoc :session params)))))
(org-babel-sh-evaluate session full-body result-type)))
(defun org-babel-prep-session:sh (session params)
"Prepare SESSION according to the header arguments specified in PARAMS."