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

Kernel management monadic functions

Browse source
This commit is contained in:
Nathaniel Nicandro 2020-05-11 07:39:54 -05:00
parent 47b33052ae
commit 8865b3c741
1 changed files with 31 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

31
jupyter-monads.el
View file

@ -70,6 +70,37 @@ context."
(lambda (_)
(jupyter-bind io-value io-fn)))
;;; Kernel
;;
;; I/O actions that manage a kernel's lifetime.
;; TODO: Change to `jupyter-kernel', move the old one's definition to
;; `jupyter-make-kernel'.
(defun jupyter--kernel (&rest args)
(lambda (_io)
(apply #'jupyter-kernel args)))
;; TODO: Swap definitions with `jupyter-launch', same for the others.
;; (jupyter-launch :kernel "python")
;; (jupyter-launch :spec "python")
(defun jupyter-kernel-launch (&rest args)
(lambda (_)
(let ((kernel (apply #'jupyter-kernel args)))
(jupyter-launch kernel)
kernel)))
(defun jupyter-kernel-interrupt (io-kernel)
(jupyter-after io-kernel
(lambda (kernel)
(jupyter-interrupt kernel)
(jupyter-return kernel))))
(defun jupyter-kernel-shutdown (kernel)
(jupyter-after (jupyter-return kernel)
(lambda (kernel)
(jupyter-shutdown kernel)
(jupyter-return kernel))))
(defun jupyter-idle (io-req)
(jupyter-after io-req