From 2865bc1ff5504250f93cbb3c7620f2738d6a2a79 Mon Sep 17 00:00:00 2001 From: Takafumi Arakaki Date: Tue, 4 Dec 2012 11:06:04 +0100 Subject: [PATCH] Refactor ein:kernel--kernel-started --- lisp/ein-kernel.el | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/lisp/ein-kernel.el b/lisp/ein-kernel.el index c854378..ff25e23 100644 --- a/lisp/ein-kernel.el +++ b/lisp/ein-kernel.el @@ -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)))