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

Add :dont-save-cells slot

Browse source
This commit is contained in:
Takafumi Arakaki 2012-08-30 16:18:56 +02:00
parent 841ec71e41
commit 3313f97325
1 changed files with 18 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
lisp/ein-worksheet.el
View file

@ -86,6 +86,8 @@ this value."
(saved-cells :initarg :saved-cells :initform nil
:documentation
"Slot to cache cells for worksheet without buffer")
(dont-save-cells :initarg :dont-save-cells :initform nil :type boolean
:documentation "Don't cache cells when this flag is on.")
(ewoc :initarg :ewoc :type ewoc)
(kernel :initarg :kernel :type ein:$kernel)
(dirty :initarg :dirty :type boolean :initform nil)
@ -243,14 +245,27 @@ current buffer."
before killing the buffer.
You don't need to set current buffer to call this function.
Do nothing when the worksheet WS has no buffer."
(when (ein:worksheet-has-buffer-p ws)
Do nothing when the worksheet WS has no buffer or `:dont-save-cells'
flag is on (`ein:worksheet-dont-save-cells' is called). Calling
this function unconditionally resets `:dont-save-cells' flag.
\(fn ws deactivate)"
(when (and (ein:worksheet-has-buffer-p ws)
(not (oref ws :dont-save-cells)))
(let ((cells (ein:worksheet-get-cells ws)))
(with-current-buffer (ein:worksheet-buffer ws)
(mapc #'ein:cell-save-text cells))
(when deactivate
(mapc #'ein:cell-deactivate cells))
(oset ws :saved-cells cells))))
(oset ws :saved-cells cells)))
(oset ws :dont-save-cells nil))
(defmethod ein:worksheet-dont-save-cells ((ws ein:worksheet))
"Turn on `:dont-save-cells' flag so that next call on
`ein:worksheet-save-cells' actually do nothing.
\(fn ws)"
(oset ws :dont-save-cells t))
;;; Cell indexing, retrieval, etc.