mirror of
https://github.com/vale981/emacs-ipython-notebook
synced 2025-03-06 09:31:39 -05:00
f4d301d8c9
Before: Exit emacs with modified notebooks. Be asked "You have unsaved notebooks. Discard changes?" Respond no, and manually figure out which notebooks haven't been saved. After: Exit emacs with modified notebooks. Be asked "Save A?". Respond yes. Quit without further ado. Also, bugfix killing of buffers in polymode. Must kill host buffer, not indirect buffers.
82 lines
3.2 KiB
EmacsLisp
82 lines
3.2 KiB
EmacsLisp
(eval-when-compile (require 'cl))
|
|
(require 'f)
|
|
(require 'espuds)
|
|
(require 'ert)
|
|
|
|
(let* ((support-path (f-dirname load-file-name))
|
|
(root-path (f-parent (f-parent support-path))))
|
|
(add-to-list 'load-path (concat root-path "/lisp"))
|
|
(add-to-list 'load-path (concat root-path "/test")))
|
|
|
|
(require 'ein-notebooklist)
|
|
(require 'ein-jupyter)
|
|
(require 'ein-dev)
|
|
(require 'ein-testing)
|
|
(require 'ein-ipynb-mode)
|
|
(require 'ein-contents-api)
|
|
(require 'ob-ein)
|
|
|
|
(if (member "timestamp" ecukes-include-tags)
|
|
(require 'ein-timestamp)
|
|
(!cons "timestamp" ecukes-exclude-tags))
|
|
|
|
(unless (member "jupyterhub" ecukes-include-tags)
|
|
(!cons "jupyterhub" ecukes-exclude-tags))
|
|
|
|
(if (eq system-type 'darwin)
|
|
(!cons "switch" ecukes-exclude-tags))
|
|
|
|
(if (> (string-to-number org-version) 9.1) ;; they got rid of easy templates
|
|
(!cons "org" ecukes-exclude-tags))
|
|
|
|
(defvar ein:testing-jupyter-server-root (f-parent (f-dirname load-file-name)))
|
|
|
|
(defun ein:testing-after-scenario ()
|
|
(ein:testing-flush-queries)
|
|
(with-current-buffer (ein:notebooklist-get-buffer (car (ein:jupyter-server-conn-info)))
|
|
(if ein:%notebooklist%
|
|
(loop for notebook in (ein:notebook-opened-notebooks)
|
|
for path = (ein:$notebook-notebook-path notebook)
|
|
do (ein:notebook-kill-kernel-then-close-command notebook)
|
|
do (loop repeat 8
|
|
until (not (ein:notebook-live-p notebook))
|
|
do (sleep-for 0 500)
|
|
finally do (when (ein:notebook-live-p notebook)
|
|
(ein:display-warning (format "cannot close %s" path))))
|
|
do (when (or (search "Untitled" path) (search "Renamed" path))
|
|
(ein:notebooklist-delete-notebook path)
|
|
(loop repeat 8
|
|
with fullpath = (concat (file-name-as-directory ein:testing-jupyter-server-root) path)
|
|
for extant = (file-exists-p fullpath)
|
|
until (not extant)
|
|
do (sleep-for 0 500)
|
|
finally do (when extant
|
|
(ein:display-warning (format "cannot del %s" path))))))))
|
|
(ein:aif (ein:notebook-opened-notebooks)
|
|
(loop for nb in it
|
|
for path = (ein:$notebook-notebook-path nb)
|
|
do (ein:log 'debug "Notebook %s still open" path)
|
|
finally do (assert nil))))
|
|
|
|
(Setup
|
|
(ein:dev-start-debug)
|
|
(setq ein:notebook-autosave-frequency 0)
|
|
(setq ein:notebook-create-checkpoint-on-save nil)
|
|
(setq ein:testing-dump-file-log (concat default-directory "log/ecukes.log"))
|
|
(setq ein:testing-dump-file-messages (concat default-directory "log/ecukes.messages"))
|
|
(setq ein:testing-dump-file-server (concat default-directory "log/ecukes.server"))
|
|
(setq ein:testing-dump-file-request (concat default-directory "log/ecukes.request"))
|
|
(setq org-confirm-babel-evaluate nil)
|
|
(setq transient-mark-mode t)
|
|
(Given "I start and login to the server configured \"\\n\""))
|
|
|
|
(After
|
|
(ein:testing-after-scenario))
|
|
|
|
(Teardown
|
|
(Given "I finally stop the server"))
|
|
|
|
(Fail
|
|
(if noninteractive
|
|
(ein:testing-after-scenario)
|
|
(keyboard-quit))) ;; useful to prevent emacs from quitting
|