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

jupyter-org-insert-src-block: Preserve whitespace when inserting src-block

Browse source
This commit is contained in:
Nathaniel Nicandro 2019-03-23 22:47:40 -05:00
parent 8c11fc0615
commit 7c2e32dfb4
No known key found for this signature in database
GPG key ID: C34814B309DD06B8
1 changed files with 17 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
jupyter-org-extensions.el
View file

@ -85,17 +85,24 @@ If point is in a block, copy the header to the new block"
(jupyter-org-src-block lang parameters "\n" switches)
:post-blank 1)))
(forward-line -3)))
;; not in a src block, insert a new block, query for jupyter kernel
(beginning-of-line)
(let ((kernelspec (jupyter-completing-read-kernelspec)))
(insert
(org-element-interpret-data
(org-element-put-property
(jupyter-org-src-block
(format "jupyter-%s" (plist-get (cddr kernelspec) :language)) "" "\n")
:post-blank 0))))
(forward-line -2)))
(let* ((kernelspec (jupyter-completing-read-kernelspec))
(lang (format "jupyter-%s" (plist-get (cddr kernelspec) :language)))
(src-block (jupyter-org-src-block lang "" "\n"))
(blank-after-p (not (zerop (save-excursion
(1- (skip-chars-forward "\n")))))))
(beginning-of-line)
;; When there is no blank line before the source block, insert one
(when (zerop (save-excursion
(1+ (skip-chars-backward "\n"))))
(insert "\n"))
(insert (org-element-interpret-data src-block))
;; When there was already blank lines after the source block, delete the
;; newline added by `org-element-interpret-data'
(when blank-after-p
(delete-char 1))
(skip-chars-backward "\n")
(forward-line -1))))
;;;###autoload
(defun jupyter-org-split-src-block (&optional below)