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

Fix a bug: retrying save saves random texts

Browse source 
This is because ein:notebook-to-json touches to current buffer and
read the text from there.
This commit is contained in:
Takafumi Arakaki 2012-05-25 22:43:56 +02:00
parent 3385c6fb47
commit be1148ff4a
1 changed files with 8 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
ein-notebook.el
View file

@ -740,11 +740,12 @@ Do not clear input prompts when the prefix argument is given."
(defun ein:notebook-to-json (notebook)
"Return json-ready alist."
(let* ((discard (ein:notebook-discard-output-p notebook))
(cells (mapcar (lambda (c) (ein:cell-to-json c discard))
(ein:notebook-get-cells notebook))))
`((worksheets . [((cells . ,(apply #'vector cells)))])
(metadata . ,(ein:$notebook-metadata notebook)))))
(with-current-buffer (ein:notebook-buffer notebook)
(let* ((discard (ein:notebook-discard-output-p notebook))
(cells (mapcar (lambda (c) (ein:cell-to-json c discard))
(ein:notebook-get-cells notebook))))
`((worksheets . [((cells . ,(apply #'vector cells)))])
(metadata . ,(ein:$notebook-metadata notebook))))))
(defun ein:notebook-save-notebook (notebook retry)
(let ((data (ein:notebook-to-json notebook)))
@ -794,7 +795,8 @@ Do not clear input prompts when the prefix argument is given."
(defun ein:notebook-save-notebook-success (notebook &rest ignore)
(ein:log 'info "Notebook is saved.")
(setf (ein:$notebook-dirty notebook) nil)
(set-buffer-modified-p nil)
(with-current-buffer (ein:notebook-buffer notebook)
(set-buffer-modified-p nil))
(ein:events-trigger (ein:$notebook-events notebook)
'(notebook_saved . Notebook)))