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

Remove unnecessarily complicated code

Browse source
This commit is contained in:
Nathaniel Nicandro 2020-09-12 07:18:42 -05:00
parent cbd521dc72
commit 0f51e18655
1 changed files with 5 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
jupyter-server-kernel.el
View file

@ -44,8 +44,6 @@ Used in, e.g. a `jupyter-server-kernel-list-mode' buffer.")
(put 'jupyter-current-server 'permanent-local t)
(defvar jupyter--servers-1 (make-hash-table :weakness 'value :test #'equal))
(defvar jupyter--servers nil)
;; TODO: We should really rename `jupyter-server' to something like
@ -61,17 +59,11 @@ Access should be done through `jupyter-available-kernelspecs'.")))
(cl-defmethod make-instance ((class (subclass jupyter-server)) &rest slots)
(cl-assert (plist-get slots :url))
(or (gethash (plist-get slots :url) jupyter--servers-1)
(puthash (plist-get slots :url)
(cl-call-next-method) jupyter--servers-1)))
(cl-defmethod delete-instance ((this jupyter-server))
(let (key)
(maphash (lambda (k v) (when (eq this v) (setq key k)))
jupyter--servers-1)
(when key
(remhash key jupyter--servers-1)))
(cl-call-next-method))
(or (cl-loop
with url = (plist-get slots :url)
for server in jupyter--servers
if (equal url (oref server url)) return server)
(cl-call-next-method)))
(defun jupyter-servers ()
"Return a list of all `jupyter-server's."