hiro/emacs-ipython-notebook
1
0
Fork 0
mirror of https://github.com/vale981/emacs-ipython-notebook synced 2025-03-06 01:21:38 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Remove traceback method from ein$notebook

Browse source 
This simplifies the dependency.
This commit is contained in:
Takafumi Arakaki 2012-08-13 18:47:21 +02:00
parent 1ad316cdf1
commit 2199309759
1 changed files with 8 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
lisp/ein-notebook.el
View file

@ -218,9 +218,7 @@ Current buffer for these functions is set to the notebook buffer.")
`ein:$notebook-notification' : `ein:notification'
Notification widget.
`ein:$notebook-traceback' : `ein:traceback'
Traceback viewer."
"
url-or-port
notebook-id
data
@ -234,7 +232,6 @@ Current buffer for these functions is set to the notebook buffer.")
nbformat-minor
events
notification
traceback
)
(ein:deflocal ein:notebook nil
@ -397,7 +394,6 @@ See `ein:notebook-open' for more information."
(setf (ein:$notebook-notification ein:notebook)
(ein:notification-setup (current-buffer)))
(ein:notebook-bind-events ein:notebook (ein:events-new (current-buffer)))
(ein:notebook-setup-traceback ein:notebook)
(ein:notebook--check-nbformat (ein:$notebook-data ein:notebook))
(ein:notebook-start-kernel)
(ein:log 'info "Notebook %s is ready"
@ -475,13 +471,6 @@ of minor mode."
(ein:cell-set-text new-cell text)
(setf (ein:$notebook-dirty notebook) t)))
(defun ein:notebook-setup-traceback (notebook)
(setf (ein:$notebook-traceback notebook)
(ein:tb-new
(format ein:notebook-tb-buffer-name-template
(ein:$notebook-url-or-port notebook)
(ein:$notebook-notebook-name notebook)))))
;;; Cell indexing, retrieval, etc.
@ -868,6 +857,12 @@ output."
;;; Traceback
(defun ein:notebook-tb-new (notebook)
(ein:tb-new
(format ein:notebook-tb-buffer-name-template
(ein:$notebook-url-or-port notebook)
(ein:$notebook-notebook-name notebook))))
(defun ein:notebook-view-traceback ()
"Open traceback viewer for the traceback at point."
(interactive)
@ -877,7 +872,7 @@ output."
when (equal (plist-get out :output_type) "pyerr")
return (plist-get out :traceback))))
(if tb-data
(ein:tb-popup (ein:$notebook-traceback ein:notebook) tb-data)
(ein:tb-popup (ein:notebook-tb-new ein:notebook) tb-data)
(ein:log 'info "No Traceback found for the current cell.")))))