mirror of
https://github.com/vale981/emacs-ipython-notebook
synced 2025-03-06 09:31:39 -05:00
435d001b03
``` "http://localhost:8888" "http://localhost:8888/" "http://127.0.0.1:8888" "http://127.0.0.1:8888/" "8888" 8888 ``` Ideally these should converge to the same thing. Since many hash tables are keyed off `url-or-port`, forgetting to normalize `url-or-port` with `ein:url` leads to missed cache hits and general malaise. So we try to do that. Address a FIXME: apply callbacks to `ein:notebook-list-login-and-open`. Removed py3.5 from travis build matrix to reduce developer strain.
152 lines
6 KiB
EmacsLisp
152 lines
6 KiB
EmacsLisp
(When "^I clear log expr \"\\(.+\\)\"$"
|
|
(lambda (log-expr)
|
|
(with-current-buffer (symbol-value (intern log-expr))
|
|
(let ((inhibit-read-only t))
|
|
(erase-buffer)))))
|
|
|
|
(When "^I switch to log expr \"\\(.+\\)\"$"
|
|
(lambda (log-expr)
|
|
(switch-to-buffer (symbol-value (intern log-expr)))))
|
|
|
|
(When "^I am in notebooklist buffer$"
|
|
(lambda ()
|
|
(multiple-value-bind (url-or-port token) (ein:jupyter-server-conn-info)
|
|
(switch-to-buffer (ein:notebooklist-get-buffer url-or-port))
|
|
(sit-for 0.8)
|
|
)))
|
|
|
|
(When "^I wait \\([.0-9]+\\) seconds$"
|
|
(lambda (seconds)
|
|
(sit-for (string-to-number seconds))))
|
|
|
|
(When "^I am in log buffer$"
|
|
(lambda ()
|
|
(switch-to-buffer ein:log-all-buffer-name)))
|
|
|
|
(When "^new \\(.+\\) notebook$"
|
|
(lambda (kernel)
|
|
(multiple-value-bind (url-or-port token) (ein:jupyter-server-conn-info)
|
|
(lexical-let ((ks (ein:get-kernelspec url-or-port kernel)) notebook)
|
|
(ein:notebooklist-new-notebook url-or-port ks nil
|
|
(lambda (nb created &rest ignore)
|
|
(setq notebook nb)))
|
|
(ein:testing-wait-until (lambda () (and notebook
|
|
(ein:aand (ein:$notebook-kernel notebook)
|
|
(ein:kernel-live-p it))))
|
|
nil 10000 2000)
|
|
(let ((buf-name (format ein:notebook-buffer-name-template
|
|
(ein:$notebook-url-or-port notebook)
|
|
(ein:$notebook-notebook-name notebook))))
|
|
(switch-to-buffer buf-name)
|
|
(Then "I should be in buffer \"%s\"" buf-name))))))
|
|
(When "^I login if necessary"
|
|
(lambda ()
|
|
(multiple-value-bind (url-or-port token) (ein:jupyter-server-conn-info)
|
|
(when token
|
|
(When "I call \"ein:notebooklist-login\"")
|
|
(And "I wait for the smoke to clear")))))
|
|
|
|
(When "^I wait for the smoke to clear"
|
|
(lambda ()
|
|
(ein:testing-flush-queries)))
|
|
|
|
(When "^I enter the prevailing port"
|
|
(lambda ()
|
|
(multiple-value-bind (url-or-port token) (ein:jupyter-server-conn-info)
|
|
(let ((parsed-url (url-generic-parse-url url-or-port)))
|
|
(When "I type \"%d\"") (url-port parsed-url)))))
|
|
|
|
(When "^I wait for the smoke to clear"
|
|
(lambda ()
|
|
(ein:testing-flush-queries)))
|
|
|
|
(When "^I open notebooklist"
|
|
(lambda ()
|
|
(multiple-value-bind (url-or-port token) (ein:jupyter-server-conn-info)
|
|
(cl-letf (((symbol-function 'ein:notebooklist-ask-url-or-port)
|
|
(lambda (&rest args) url-or-port)))
|
|
(When "I call \"ein:notebooklist-open\"")
|
|
(And "I wait for the smoke to clear")))))
|
|
|
|
(When "^I login if necessary"
|
|
(lambda ()
|
|
(multiple-value-bind (url-or-port token) (ein:jupyter-server-conn-info)
|
|
(when token
|
|
(cl-letf (((symbol-function 'ein:notebooklist-ask-url-or-port)
|
|
(lambda (&rest args) url-or-port))
|
|
((symbol-function 'read-passwd)
|
|
(lambda (&rest args) token)))
|
|
(When "I call \"ein:notebooklist-login\"")
|
|
(And "I wait for the smoke to clear"))))))
|
|
|
|
(When "^I wait for the smoke to clear"
|
|
(lambda ()
|
|
(ein:testing-flush-queries)))
|
|
|
|
(When "^I enter the prevailing port"
|
|
(lambda ()
|
|
(multiple-value-bind (url-or-port token) (ein:jupyter-server-conn-info)
|
|
(let ((parsed-url (url-generic-parse-url url-or-port)))
|
|
(When "I type \"%d\"") (url-port parsed-url)))))
|
|
|
|
(When "^I wait for the smoke to clear"
|
|
(lambda ()
|
|
(ein:testing-flush-queries)))
|
|
|
|
(When "^I click on \"\\(.+\\)\"$"
|
|
(lambda (word)
|
|
;; from espuds "go to word" without the '\\b's
|
|
(goto-char (point-min))
|
|
(let ((search (re-search-forward (format "\\[%s\\]" word) nil t))
|
|
(message "Cannot go to link '%s' in buffer: %s"))
|
|
(cl-assert search nil message word (buffer-string))
|
|
(backward-char)
|
|
(When "I press \"RET\"")
|
|
(sit-for 0.8)
|
|
(When "I wait for the smoke to clear"))))
|
|
|
|
(When "^I click on dir \"\\(.+\\)\"$"
|
|
(lambda (dir)
|
|
(When (format "I go to word \"%s\"" dir))
|
|
(re-search-backward "Dir" nil t)
|
|
(When "I press \"RET\"")
|
|
(sit-for 0.8)
|
|
(When "I wait for the smoke to clear")))
|
|
|
|
(When "^old notebook \"\\(.+\\)\"$"
|
|
(lambda (path)
|
|
(multiple-value-bind (url-or-port token) (ein:jupyter-server-conn-info)
|
|
(with-current-buffer (ein:notebooklist-get-buffer url-or-port)
|
|
(lexical-let (notebook)
|
|
(ein:notebooklist-open-notebook ein:%notebooklist% path
|
|
(lambda (nb created &rest -ignore-)
|
|
(setq notebook nb)))
|
|
(ein:testing-wait-until (lambda () (and (not (null notebook))
|
|
(ein:aand (ein:$notebook-kernel notebook)
|
|
(ein:kernel-live-p it)))))
|
|
(let ((buf-name (format ein:notebook-buffer-name-template
|
|
(ein:$notebook-url-or-port notebook)
|
|
(ein:$notebook-notebook-name notebook))))
|
|
(switch-to-buffer buf-name)
|
|
(Then "I should be in buffer \"%s\"" buf-name)))))))
|
|
|
|
(When "^I dump buffer"
|
|
(lambda () (message "%s" (buffer-string))))
|
|
|
|
(When "^I wait for cell to execute$"
|
|
(lambda ()
|
|
(let ((cell (call-interactively #'ein:worksheet-execute-cell)))
|
|
(ein:testing-wait-until (lambda () (not (slot-value cell 'running)))))))
|
|
|
|
(When "^I undo again$"
|
|
(lambda ()
|
|
(undo-more 1)))
|
|
|
|
(When "^I enable \"\\(.+\\)\"$"
|
|
(lambda (flag-name)
|
|
(set (intern flag-name) t)))
|
|
|
|
(When "^I undo demoting errors$"
|
|
(lambda ()
|
|
(with-demoted-errors "demoted: %s"
|
|
(undo))))
|