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-with-src-block-client: Macro hygiene

Browse source
This commit is contained in:
Nathaniel Nicandro 2019-03-27 22:23:13 -05:00
parent ad5113b9a7
commit 9ff1722293
No known key found for this signature in database
GPG key ID: C34814B309DD06B8
1 changed files with 11 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
jupyter-org-client.el
View file

@ -401,15 +401,17 @@ when it is evaluated.
In addition to evaluating BODY with an active Jupyter client set,
the `syntax-table' will be set to that of the REPL buffers."
(declare (debug (body)))
`(jupyter-org-when-in-src-block
(let* ((params (car jupyter-org--src-block-cache))
(jupyter-current-client
(buffer-local-value 'jupyter-current-client
(org-babel-jupyter-initiate-session
(alist-get :session params) params)))
(syntax (jupyter-kernel-language-syntax-table jupyter-current-client)))
(with-syntax-table syntax
,@body))))
(let ((params (make-symbol "params"))
(syntax (make-symbol "syntax")))
`(jupyter-org-when-in-src-block
(let* ((,params (car jupyter-org--src-block-cache))
(jupyter-current-client
(buffer-local-value 'jupyter-current-client
(org-babel-jupyter-initiate-session
(alist-get :session ,params) ,params)))
(,syntax (jupyter-kernel-language-syntax-table jupyter-current-client)))
(with-syntax-table ,syntax
,@body)))))
(cl-defmethod jupyter-code-context ((_type (eql inspect))
&context (major-mode org-mode))