hiro/emacs-jupyter
1
0
Fork 0
mirror of https://github.com/vale981/emacs-jupyter synced 2025-03-04 15:41:37 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

jupyter-org--append-result: Handle appending to a table result

Browse source
This commit is contained in:
Nathaniel Nicandro 2019-01-26 18:42:15 -06:00
parent ee1078d0c7
commit 70f0429e07
No known key found for this signature in database
GPG key ID: C34814B309DD06B8
1 changed files with 18 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
jupyter-org-client.el
View file

@ -1095,11 +1095,24 @@ in the drawer. Otherwise do nothing."
;; Append everything else
(t
(jupyter-org--goto-result-insertion-point context)
;; Don't delete the current result if its a drawer or if there aren't
;; any results yet, in this case the context is just the #+RESULTS:
;; keyword.
(unless (memq (org-element-type context) '(keyword drawer))
(jupyter-org--delete-element context))
(cl-case (org-element-type context)
;; Don't delete the current result if its a drawer or if there
;; aren't any results yet, in this case the context is just the
;; #+RESULTS: keyword.
((keyword drawer))
;; The `org-element-contents' of a table is nil which interferes
;; with how `org-element-table-interpreter' works when calling
;; `org-element-interpret-data' below.
(table
(org-element-set-contents
context
(delete-and-extract-region
(org-element-property :contents-begin context)
(jupyter-org-element-end-before-blanks context))))
;; Any other element is the first result that is being appended to,
;; so delete it from the buffer since it will be wrapped in a
;; drawer along with the appended result.
(t (jupyter-org--delete-element context)))
(let ((limit (point)))
(insert (org-element-interpret-data
(jupyter-org--wrap-result-maybe