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 comments on ein:cell-insert-output

Browse source
This commit is contained in:
Takafumi Arakaki 2012-05-20 21:14:42 +02:00
parent 8f125daa39
commit 8b8d12924c
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
ein-cell.el
View file

@ -329,17 +329,18 @@ Called from ewoc pretty printer via `ein:cell-pp'."
(ein:insert-read-only "\n"))) (ein:insert-read-only "\n")))
(let ((out (nth index (oref cell :outputs))) (let ((out (nth index (oref cell :outputs)))
(dynamic ein:cell-output-dynamic)) (dynamic ein:cell-output-dynamic))
;; Handle newline for stream. ;; Handle newline for previous stream output.
;; In IPython JS, it is handled in `append_stream' because JS ;; In IPython JS, it is handled in `append_stream' because JS
;; does not need to care about newline (DOM does it for JS). ;; does not need to care about newline (DOM does it for JS).
;; FIXME: Maybe I should abstract ewoc in some way and get rid ;; FIXME: Maybe I should abstract ewoc in some way and get rid
;; of this. ;; of this.
(let ((last-out (and (> index 0) (let ((last-out (and (> index 0)
(nth (1- index) (oref cell :outputs))))) (nth (1- index) (oref cell :outputs)))))
;; Check if the last output is from the same stream. ;; If previous output is stream type, consider adding newline
;; If so, do *NOT* insert newline, otherwise insert newline.
(when (and last-out (when (and last-out
(equal (plist-get last-out :output_type) "stream")) (equal (plist-get last-out :output_type) "stream"))
;; Check if the last output is from the same stream.
;; If so, do *NOT* insert newline, otherwise insert newline.
(unless (and (equal (plist-get out :output_type) "stream") (unless (and (equal (plist-get out :output_type) "stream")
(equal (plist-get out :stream) (equal (plist-get out :stream)
(plist-get last-out :stream))) (plist-get last-out :stream)))