mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-29 22:07:49 +00:00
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:
parent
ad976c66cb
commit
fa9464ede2
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue