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

Use pcase-let to reduce verbosity

Browse source 
* ob-jupyter.el
(org-babel-jupyter-initiate-client) [org-babel-jupyter-remote-session]: Do it.
This commit is contained in:
Nathaniel Nicandro 2020-04-07 09:00:35 -05:00
parent 8c840d42d3
commit 16ea58e59e
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
ob-jupyter.el
View file

@ -298,10 +298,10 @@ session."
'unique)))))))
(cl-defmethod org-babel-jupyter-initiate-client ((session org-babel-jupyter-remote-session) kernel)
(let ((session-name (org-babel-jupyter-remote-session-name session)))
(if (org-babel-jupyter-remote-session-connect-repl-p session)
(jupyter-connect-repl session-name nil nil 'jupyter-org-client)
(let ((default-directory (file-remote-p session-name)))
(pcase-let (((cl-struct org-babel-jupyter-remote-session name connect-repl-p) session))
(if connect-repl-p
(jupyter-connect-repl name nil nil 'jupyter-org-client)
(let ((default-directory (file-remote-p name)))
(org-babel-jupyter-aliases-from-kernelspecs)
(jupyter-run-repl kernel nil nil 'jupyter-org-client)))))