ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

org-babel: adding python support (along the same lines as ruby)

This commit is contained in:
Eric Schulte 2009-10-16 16:51:46 -06:00
parent 770305a650
commit 28e6ff8d66
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
contrib/babel/lisp/langs/org-babel-python.el
View File

@ -149,8 +149,10 @@ last statement in BODY, as elisp."
tmp-file)) tmp-file))
;; (message "buffer=%s" (buffer-string)) ;; debugging ;; (message "buffer=%s" (buffer-string)) ;; debugging
(shell-command-on-region (point-min) (point-max) "python")) (shell-command-on-region (point-min) (point-max) "python"))
(org-babel-python-table-or-string (let ((raw (with-temp-buffer (insert-file-contents tmp-file) (buffer-string))))
(with-temp-buffer (insert-file-contents tmp-file) (buffer-string))))))) (if (member "code" result-params)
raw
(org-babel-python-table-or-string raw)))))))
;; comint session evaluation ;; comint session evaluation
(org-babel-comint-in-buffer buffer (org-babel-comint-in-buffer buffer
(let* ((raw (org-babel-comint-with-output buffer org-babel-python-eoe-indicator t (let* ((raw (org-babel-comint-with-output buffer org-babel-python-eoe-indicator t
@ -168,7 +170,10 @@ last statement in BODY, as elisp."
(setq results (mapcar #'org-babel-python-read-string results)) (setq results (mapcar #'org-babel-python-read-string results))
(case result-type (case result-type
(output (org-babel-trim (mapconcat #'identity (reverse (cdr results)) "\n"))) (output (org-babel-trim (mapconcat #'identity (reverse (cdr results)) "\n")))
(value (org-babel-python-table-or-string (org-babel-trim (car results))))))))) (value
(if (member "code" result-params)
(car results)
(org-babel-python-table-or-string (org-babel-trim (car results))))))))))
(defun org-babel-python-read-string (string) (defun org-babel-python-read-string (string)
"Strip 's from around ruby string" "Strip 's from around ruby string"