From 10b1766035cf33612008ebe5cbd69dad3b941fc6 Mon Sep 17 00:00:00 2001 From: Nathaniel Nicandro Date: Tue, 19 Feb 2019 09:33:58 -0600 Subject: [PATCH] jupyter-org-sync-results: Use `when-let*` --- jupyter-org-client.el | 21 ++++++++++----------- 1 file changed, 10 insertions(+), 11 deletions(-) diff --git a/jupyter-org-client.el b/jupyter-org-client.el index a1d87cd..757ad13 100644 --- a/jupyter-org-client.el +++ b/jupyter-org-client.el @@ -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)