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

Add jupyter-requests-pending-p

Browse source
This commit is contained in:
Nathaniel Nicandro 2019-03-14 19:56:00 -05:00
parent 83af335166
commit 1cc29e2ba0
1 changed files with 13 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
jupyter-client.el
View file

@ -731,6 +731,19 @@ reporting progress to the user while waiting."
(declare (indent 1)) (declare (indent 1))
(jupyter-wait-until req msg-type #'identity timeout progress-msg)) (jupyter-wait-until req msg-type #'identity timeout progress-msg))
(defun jupyter-requests-pending-p (client)
"Return non-nil if CLIENT has open requests that the kernel has not handled.
Specifically, this returns non-nil if the last request message
sent to the kernel using CLIENT has not received an idle message
back."
(cl-check-type client jupyter-kernel-client)
(jupyter--drop-idle-requests client)
(with-slots (requests) client
(let ((last-sent (gethash "last-sent" requests)))
(or (> (length requests) 1)
(when last-sent
(not (jupyter-request-idle-received-p last-sent)))))))
;;; Client handlers ;;; Client handlers
(cl-defgeneric jupyter-drop-request ((_client jupyter-kernel-client) _req) (cl-defgeneric jupyter-drop-request ((_client jupyter-kernel-client) _req)