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

Refactor ein:kernel--kernel-started

Browse source
This commit is contained in:
Takafumi Arakaki 2012-12-04 11:06:04 +01:00
parent 0576e54486
commit 2865bc1ff5
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/ein-kernel.el
View file

@ -132,13 +132,13 @@
(defun* ein:kernel--kernel-started (kernel &key data &allow-other-keys)
(ein:log 'info "Kernel started: %s" (plist-get data :kernel_id))
(setf (ein:$kernel-running kernel) t)
(setf (ein:$kernel-kernel-id kernel) (plist-get data :kernel_id))
(setf (ein:$kernel-ws-url kernel) (plist-get data :ws_url))
(setf (ein:$kernel-kernel-url kernel)
(concat (ein:$kernel-base-url kernel) "/"
(ein:$kernel-kernel-id kernel)))
(destructuring-bind (&key kernel_id ws_url &allow-other-keys) data
(ein:log 'info "Kernel started: %s" kernel_id)
(setf (ein:$kernel-running kernel) t)
(setf (ein:$kernel-kernel-id kernel) kernel_id)
(setf (ein:$kernel-ws-url kernel) ws_url)
(setf (ein:$kernel-kernel-url kernel)
(concat (ein:$kernel-base-url kernel) "/" kernel_id)))
(ein:kernel-start-channels kernel)
(let ((shell-channel (ein:$kernel-shell-channel kernel))
(iopub-channel (ein:$kernel-iopub-channel kernel)))