need to see websocket output of eldoc call

This commit is contained in:
dickmao 2019-04-14 14:39:46 -04:00
parent a6641f05cf
commit 921b3a94e4
4 changed files with 13 additions and 16 deletions

View file

@ -1,5 +1,5 @@
@eldoc
Scenario: not running server locally
Scenario: remote eldoc (largely unused)
Given I enable "ein:enable-eldoc-support"
Given I clear log expr "ein:log-all-buffer-name"
Given new default notebook

View file

@ -275,23 +275,19 @@
(msg "Cannot go to link '%s' in buffer: %s"))
(should search)
(backward-char)
(let ((was (point)))
(let ((was (widget-at)))
(When "I press \"RET\"")
;; (loop until (/= was (point))
;; do (sleep-for 0 1000))
(sleep-for 5)
))))
(loop until (not (equal was (widget-at)))
do (sleep-for 0 500))))))
(When "^I click on dir \"\\(.+\\)\"$"
(lambda (dir)
(When (format "I go to word \"%s\"" dir))
(re-search-backward "Dir" nil t)
(let ((was (point)))
(let ((was (widget-at)))
(When "I press \"RET\"")
;; (loop until (/= was (point))
;; do (sleep-for 0 1000))
(sleep-for 5)
)))
(loop until (not (equal was (widget-at)))
do (sleep-for 0 500)))))
(When "^old notebook \"\\(.+\\)\"$"
(lambda (path)

View file

@ -133,9 +133,11 @@
(("error" "pyerr")
(ein:log 'verbose "ein:completions--prepare-oinfo: %s"
(plist-get content :traceback)))))
(error (ein:log 'verbose "ein:completions--prepare-oinfo: [%s] %s"
(error-message-string err) output)
(setf (gethash obj (ein:$kernel-oinfo-cache kernel)) :json-false))))
(error
(let (eval-expression-print-length eval-expression-print-level)
(ein:log 'verbose "ein:completions--prepare-oinfo: [%s] %s"
(error-message-string err) output))
(setf (gethash obj (ein:$kernel-oinfo-cache kernel)) :json-false))))
;;; Support for Eldoc

View file

@ -696,9 +696,8 @@ This function is called via `ein:notebook-after-rename-hook'."
:notify (lexical-let ((url-or-port url-or-port)
(path path))
(lambda (&rest ignore)
(run-at-time 3 nil #'ein:notebooklist-reload) ;; TODO using deferred better?
(run-at-time 3 nil #'ein:notebooklist-reload)
(ein:notebook-open url-or-port path)))
"Open")
(widget-insert " ")
(if (gethash path sessions)