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

Do more work when enabling jupyter-repl-mode

Browse source
This commit is contained in:
Nathaniel Nicandro 2018-01-13 23:04:52 -06:00
parent b8a1345ab0
commit 718bf7b303
1 changed files with 13 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
jupyter-repl-client.el
View file

@ -1116,11 +1116,20 @@ COMMAND and ARG have the same meaning as the elements of
(define-key map (kbd "M-p") #'jupyter-repl-history-previous) (define-key map (kbd "M-p") #'jupyter-repl-history-previous)
map)) map))
(put 'jupyter-repl-mode 'mode-class 'special)
(define-derived-mode jupyter-repl-mode fundamental-mode (define-derived-mode jupyter-repl-mode fundamental-mode
"Jupyter-REPL" "Jupyter-REPL"
"A major mode for interacting with a Jupyter kernel." "A major mode for interacting with a Jupyter kernel."
(setq-local indent-line-function #'jupyter-repl-indent-line) (setq-local indent-line-function #'jupyter-repl-indent-line)
(setq-local company-backends (cons 'company-jupyter-repl company-backends)) (setq-local left-margin-width jupyter-repl-prompt-margin-width)
(setq-local jupyter-repl-history
(make-ring (1+ jupyter-repl-history-maximum-length)))
;; The sentinel value keeps track of the newest/oldest elements of
;; the history since next/previous navigation is implemented by
;; rotations on the ring.
(ring-insert jupyter-repl-history 'jupyter-repl-history)
(erase-buffer)
(jupyter-repl-interaction-mode)
(add-hook 'after-change-functions 'jupyter-repl-after-buffer-change nil t) (add-hook 'after-change-functions 'jupyter-repl-after-buffer-change nil t)
(add-hook 'window-configuration-change-hook 'jupyter-repl-preserve-window-margins nil t)) (add-hook 'window-configuration-change-hook 'jupyter-repl-preserve-window-margins nil t))
@ -1174,19 +1183,13 @@ kernel."
(oref km kernel-info) (oref km kernel-info)
(cl-destructuring-bind (&key name file_extension &allow-other-keys) (cl-destructuring-bind (&key name file_extension &allow-other-keys)
language_info language_info
(erase-buffer)
(jupyter-repl-mode) (jupyter-repl-mode)
(setq-local left-margin-width jupyter-repl-prompt-margin-width) (jupyter-set kc 'jupyter-include-other-output t)
(setq-local jupyter-repl-current-client kc) (setq-local jupyter-repl-current-client kc)
(setq-local jupyter-repl-kernel-manager km) (setq-local jupyter-repl-kernel-manager km)
(setq-local jupyter-repl-history
(make-ring (1+ jupyter-repl-history-maximum-length)))
;; The sentinel value keeps track of the newest/oldest elements of
;; the history since next/previous navigation is implemented by
;; rotations on the ring.
(ring-insert jupyter-repl-history 'jupyter-repl-history)
(setq-local jupyter-repl-lang-buffer (setq-local jupyter-repl-lang-buffer
(get-buffer-create (format " *jupyter-repl-lang-%s*" name))) (get-buffer-create
(format " *jupyter-repl-lang-%s*" name)))
(let (mode) (let (mode)
(with-jupyter-repl-lang-buffer (with-jupyter-repl-lang-buffer
(let ((buffer-file-name (let ((buffer-file-name