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

Set metadata in ein:notebook-init

Browse source
This commit is contained in:
Takafumi Arakaki 2012-05-13 04:24:30 +02:00
parent b020c0bda6
commit 386aa997e9
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
ein-notebook.el
View file

@ -96,6 +96,10 @@ is `nil', BODY is executed with any cell types."
(defun ein:notebook-init (notebook data)
"Initialize NOTEBOOK with DATA from the server."
(setf (ein:$notebook-data notebook) data)
(let* ((metadata (plist-get data :metadata))
(notebook-name (plist-get metadata :name)))
(setf (ein:$notebook-metadata notebook) metadata)
(setf (ein:$notebook-notebook-name notebook) notebook-name))
(setf (ein:$notebook-pager notebook)
(ein:pager-new
(format "*ein: %s/pager*" (ein:$notebook-notebook-id notebook)))))
@ -417,10 +421,6 @@ when the prefix argument is given."
;;; Persistance and loading
(defun ein:notebook-from-json (notebook data)
(let* ((metadata (plist-get data :metadata))
(notebook-name (plist-get metadata :name)))
(setf (ein:$notebook-metadata notebook) metadata)
(setf (ein:$notebook-notebook-name notebook) notebook-name))
(let ((inhibit-read-only t))
(erase-buffer)
;; Enable nonsep for ewoc object (the last argument is non-nil).