hiro/emacs-jupyter
1
0
Fork 0
mirror of https://github.com/vale981/emacs-jupyter synced 2025-03-05 07:41:37 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Simplify synchronous output in org-babel-execute:jupyter

Browse source
This commit is contained in:
Nathaniel Nicandro 2018-02-04 17:36:29 -06:00
parent 9fa2d34ec5
commit 0dec139a3a
1 changed files with 15 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
ob-jupyter.el
View file

@ -499,20 +499,21 @@ PARAMS."
(jupyter-wait-until-idle req most-positive-fixnum)
;; Finalize the list of results
(setq results (nreverse results))
(when (eq result-type 'output)
(setq results (list (cons nil (mapconcat #'identity results "\n")))))
(let ((render-param (caar results))
(result (cdar results)))
(org-babel-jupyter--inject-render-params render-param params)
(prog1 result
;; Insert remaining results after the first one has been inserted.
(when (cdr results)
(run-at-time
0.01 nil
(lambda ()
(org-babel-jupyter--clear-render-params render-param params)
(org-babel-jupyter-insert-results
(cdr results) params kernel-lang))))))))))
(if (eq result-type 'output) (mapconcat #'identity results "\n")
(let ((render-param (caar results))
(result (cdar results)))
(org-babel-jupyter--inject-render-param render-param params)
(prog1 result
;; Insert remaining results after the first one has been
;; inserted.
(when (cdr results)
(run-at-time
0.01 nil
(lambda ()
(org-babel-jupyter--clear-render-param render-param params)
(org-babel-jupyter--inject-render-param "append" params)
(org-babel-jupyter-insert-results
(cdr results) params kernel-lang)))))))))))
(defun org-babel-jupyter-make-language-alias (kernel lang)
"Simimilar to `org-babel-make-language-alias' but for Jupyter src-blocks.