Remove ein:notebook-pp

This commit is contained in:
Takafumi Arakaki 2012-08-26 13:25:47 +02:00
parent b4cc0dae43
commit acff775e4c
2 changed files with 2 additions and 9 deletions

View file

@ -308,12 +308,6 @@ See `ein:notebook-open' for more information."
(ein:log 'info "Notebook %s is ready"
(ein:$notebook-notebook-name notebook))))
(defun ein:notebook-pp (ewoc-data)
(let ((path (ein:$node-path ewoc-data))
(data (ein:$node-data ewoc-data)))
(case (car path)
(cell (ein:cell-pp (cdr path) data)))))
(defun ein:notebook--different-number (n1 n2)
(and (numberp n1) (numberp n2) (not (= n1 n2))))

View file

@ -91,13 +91,12 @@
(if (ein:shared-output-healthy-p)
ein:%shared-output%
(with-current-buffer (ein:shared-output-create-buffer)
;; FIXME: This is a duplication of `ein:notebook-from-json'.
;; FIXME: This is a duplication of `ein:worksheet-render'.
;; Must be merged.
(let* ((inhibit-read-only t)
;; Enable nonsep for ewoc object (the last argument is non-nil).
;; This is for putting read-only text properties to the newlines.
;; FIXME: Do not depend on `ein:notebook-pp'!
(ewoc (ein:ewoc-create 'ein:notebook-pp
(ewoc (ein:ewoc-create 'ein:worksheet-pp
(ein:propertize-read-only "\n")
nil t))
(events (ein:events-new))