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

Validate the output of jupyter kernelspec list

Browse source
This commit is contained in:
Nathaniel Nicandro 2018-05-16 15:10:10 -05:00
parent 4dd295cb2c
commit d74a28bc0c
1 changed files with 14 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
jupyter-kernelspec.el
View file

@ -33,6 +33,8 @@
(require 'json)
(declare-function jupyter-read-plist "jupyter-base" (file))
(defvar jupyter--kernelspecs nil
"An alist matching kernel names to their kernelspec directories.")
@ -59,14 +61,18 @@ update of the cached kernelspecs, give a non-nil value to
REFRESH."
(or (and (not refresh) jupyter--kernelspecs)
(setq jupyter--kernelspecs
(mapcar (lambda (s) (let ((s (split-string s " " 'omitnull)))
;; (kernel-name . (dir . spec))
(cons (car s) (cons (cadr s)
(jupyter-read-kernelspec (cadr s))))))
(cdr
(split-string
(shell-command-to-string "jupyter kernelspec list")
"\n" 'omitnull "[ \t]+"))))))
(delq nil
(mapcar (lambda (s)
(let ((s (split-string s " " 'omitnull)))
(when (file-directory-p (cadr s))
(let* ((kernel-name (car s))
(dir (cadr s))
(spec (jupyter-read-kernelspec dir)))
(cons kernel-name (cons dir spec))))))
(cdr
(split-string
(shell-command-to-string "jupyter kernelspec list")
"\n" 'omitnull "[ \t]+")))))))
(defun jupyter-get-kernelspec (name &optional refresh)
"Get the kernelspec for a kernel named NAME.