Add ein:notebook-to-json (not yet tested)

This commit is contained in:
Takafumi Arakaki 2012-05-08 06:15:23 +02:00
parent 0c8857d044
commit 85c27f1727

View file

@ -335,6 +335,17 @@ Note that SLOT should not be quoted."
(puthash msg-id (ein:$cell-cell-id cell) (ein:@notebook msg-cell-map)))
(setf (ein:@notebook dirty) t)))
;;; Persistance and loading
(defun ein:notebook-to-json (notebook)
"Return json-ready plist."
(list
:worksheets
(list :cells (mapcar #'ein:cell-to-json (ein:notebook-get-cells notebook)))
;; FIXME: Make sure metadata is set at load time! Currently it's not.
:metadata (ein:$notebook-metadata notebook)))
;;; Notebook mode