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

ob-lisp: turning vector results into lists for easy elisp reading 

* lisp/ob-lisp.el (org-babel-execute:lisp): Turn vectors into lists
  before reading by elisp
  (org-bable-lisp-vector-to-list): Stub of a vector->list function,
  should be replaced with a cl-vector->el-vector function.
This commit is contained in:
Eric Schulte 2011-04-07 12:31:10 -06:00
parent ad976c66cb
commit fa9464ede2
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

@ -69,7 +69,9 @@
((lambda (result)
(if (member "output" (cdr (assoc :result-params params)))
(car result)
(condition-case nil (read (cadr result)) (error (cadr result)))))
(condition-case nil
(read (org-bable-lisp-vector-to-list (cadr result)))
(error (cadr results)))))
(slime-eval `(swank:eval-and-grab-output
,(buffer-substring-no-properties (point-min) (point-max)))
(cdr (assoc :package params)))))
@ -78,6 +80,10 @@
(org-babel-pick-name (cdr (assoc :rowname-names params))
(cdr (assoc :rownames params)))))
(defun org-bable-lisp-vector-to-list (results)
;; TODO: better would be to replace #(...) with [...]
(replace-regexp-in-string "#(" "(" results))
(provide 'ob-lisp)
;; arch-tag: 18086168-009f-4947-bbb5-3532375d851d