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 two more notebook functions from ein-notebook.el

Browse source
This commit is contained in:
Takafumi Arakaki 2012-08-28 18:12:51 +02:00
parent 7f0f5ea382
commit 848771a724
2 changed files with 11 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
lisp/ein-notebook.el
View file

@ -457,6 +457,13 @@ This is equivalent to do ``C-c`` in the console program."
(ein:$notebook-kernel notebook)
(ein:$notebook-events notebook)))
(defun ein:notebook--worksheet-render (notebook ws)
(ein:worksheet-render ws)
(with-current-buffer (ein:worksheet-buffer ws)
(ein:notebook-mode)
(ein:notebook-setup-kill-buffer-hook)
(setq ein:%notebook% notebook)))
(defun ein:notebook-from-json (notebook data)
(destructuring-bind (&key metadata nbformat nbformat_minor
&allow-other-keys)
@ -471,9 +478,9 @@ This is equivalent to do ``C-c`` in the console program."
(ein:notebook--worksheet-new notebook) ws-data))
(or (plist-get data :worksheets)
(list nil))))
(ein:worksheet-render (nth 0 (ein:$notebook-worksheets notebook)))
(with-current-buffer (ein:notebook-buffer notebook)
(setq ein:%notebook% notebook)))
(ein:notebook--worksheet-render notebook
(nth 0 (ein:$notebook-worksheets notebook)))
notebook)
(defun ein:notebook-to-json (notebook)
"Return json-ready alist."
@ -611,9 +618,7 @@ as usual."
"Create new scratchsheet in NOTEBOOK."
(let ((ss (ein:notebook--worksheet-new notebook #'ein:scratchsheet-new)))
(push ss (ein:$notebook-scratchsheets notebook))
(ein:worksheet-render ss)
(with-current-buffer (ein:worksheet-buffer ss)
(setq ein:%notebook% notebook))
(ein:notebook--worksheet-render notebook ss)
ss))
(defun ein:notebook-scratchsheet-open (notebook &optional new popup)

4
lisp/ein-worksheet.el
View file

@ -35,8 +35,6 @@
(require 'ein-notification)
(require 'ein-kill-ring)
(declare-function ein:notebook-mode "ein-notebook")
(declare-function ein:notebook-setup-kill-buffer-hook "ein-notebook")
(declare-function ein:notebook-discard-output-p "ein-notebook")
@ -199,8 +197,6 @@ this value."
(setq buffer-undo-list nil) ; clear undo history
(when (eq ein:worksheet-enable-undo 'no)
(setq buffer-undo-list t))
(ein:notebook-mode)
(ein:notebook-setup-kill-buffer-hook)
(oset ws :notification (ein:notification-setup (current-buffer)))
(ein:worksheet-bind-events ws)
(ein:worksheet-set-kernel ws)