mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

make insert-src-block handle #+NAME:d blocks

Browse source 
the name of a src block is part of the org-element, so need to go down a
line if it's present
This commit is contained in:
Griffin Smith 2020-05-27 10:17:14 -04:00
parent 699da9cebd
commit 9a430d5844
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
+bindings.el
View file

@ -1253,7 +1253,11 @@ If invoked with a prefix ARG eval the expression after inserting it"
(src-block-head (save-excursion (src-block-head (save-excursion
(goto-char (org-element-property (goto-char (org-element-property
:begin current-src-block)) :begin current-src-block))
(thing-at-point 'line t))) (let ((line (thing-at-point 'line t)))
(if (not (s-starts-with? "#+NAME:" (s-trim line)))
line
(forward-line)
(thing-at-point 'line t)))))
(point-to-insert (point-to-insert
(if-let (results-loc (org-babel-where-is-src-block-result)) (if-let (results-loc (org-babel-where-is-src-block-result))
(save-excursion (save-excursion