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

jupyter-org-sync-results: Use when-let*

Browse source
This commit is contained in:
Nathaniel Nicandro 2019-02-19 09:33:58 -06:00
parent 19e18f36f8
commit 10b1766035
No known key found for this signature in database
GPG key ID: C34814B309DD06B8
1 changed files with 10 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
jupyter-org-client.el
View file

@ -1217,17 +1217,16 @@ example-block elements."
"Return the result string in org syntax for the results of REQ.
Meant to be used as the return value of
`org-babel-execute:jupyter'."
(let ((results (jupyter-org--coalesce-stream-results
(nreverse (jupyter-org-request-results req)))))
(when results
(let* ((params (jupyter-org-request-block-params req))
(result-params (alist-get :result-params params)))
(org-element-interpret-data
(if (or (and (= (length results) 1)
(jupyter-org-babel-result-p (car results)))
(member "raw" result-params))
(car results)
(apply #'jupyter-org-results-drawer results)))))))
(when-let* ((results (jupyter-org--coalesce-stream-results
(nreverse (jupyter-org-request-results req))))
(params (jupyter-org-request-block-params req))
(result-params (alist-get :result-params params)))
(org-element-interpret-data
(if (or (and (= (length results) 1)
(jupyter-org-babel-result-p (car results)))
(member "raw" result-params))
(car results)
(apply #'jupyter-org-results-drawer results)))))
(provide 'jupyter-org-client)