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

jupyter-repl-ret: Use cond

Browse source
This commit is contained in:
Nathaniel Nicandro 2019-02-18 10:20:16 -06:00
parent 76315d74bd
commit 183547403d
No known key found for this signature in database
GPG key ID: C34814B309DD06B8
1 changed files with 22 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

41
jupyter-repl.el
View file

@ -1024,26 +1024,29 @@ execute the current cell."
(when (jupyter-kernel-busy-p jupyter-current-client)
(error "Kernel busy"))
(jupyter-repl-sync-execution-state)
(if force (jupyter-send-execute-request jupyter-current-client)
(if (not jupyter-repl-use-builtin-is-complete)
(let ((res (jupyter-wait-until-received :is-complete-reply
(let ((jupyter-inhibit-handlers '(:status)))
(jupyter-send-is-complete-request
jupyter-current-client
:code (jupyter-repl-cell-code)))
jupyter-repl-maximum-is-complete-timeout)))
(unless res
(message "Kernel did not respond to is-complete-request, using built-in is-complete.
(cond
(force (jupyter-send-execute-request jupyter-current-client))
(jupyter-repl-use-builtin-is-complete
(goto-char (point-max))
(let ((complete-p (equal (buffer-substring-no-properties
(line-beginning-position) (point))
"")))
(jupyter-handle-is-complete-reply
jupyter-current-client
nil (if complete-p "complete" "incomplete") "")))
(t
(let ((res (jupyter-wait-until-received :is-complete-reply
(let ((jupyter-inhibit-handlers '(:status)))
(jupyter-send-is-complete-request
jupyter-current-client
:code (jupyter-repl-cell-code)))
jupyter-repl-maximum-is-complete-timeout)))
(unless res
(message "\
Kernel did not respond to is-complete-request, using built-in is-complete.
Reset `jupyter-repl-use-builtin-is-complete' to nil if this is only temporary.")
(setq jupyter-repl-use-builtin-is-complete t)
(jupyter-repl-ret force)))
(goto-char (point-max))
(let ((complete-p (equal (buffer-substring-no-properties
(line-beginning-position) (point))
"")))
(jupyter-handle-is-complete-reply
jupyter-current-client
nil (if complete-p "complete" "incomplete") ""))))))
(setq jupyter-repl-use-builtin-is-complete t)
(jupyter-repl-ret force)))))))
(beginning-of-buffer
;; No cells in the current buffer, just insert one
(jupyter-repl-insert-prompt 'in))))