emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

lang/org: fix eval handler

Browse source 
1. Wasn't restricting boundaries to the inside of the src block.
2. Was using a match when no match data was set (whoops).
This commit is contained in:
Henrik Lissner 2020-08-07 22:41:00 -04:00
parent fd3b89854e
commit f686e01f4b
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 17 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

23
modules/lang/org/autoload/org-babel.el
View file

@ -8,17 +8,22 @@
if (save-excursion (goto-char pos) (org-in-src-block-p t))
return (goto-char pos)))
(message "Nothing to evaluate at point")
(let ((info (org-babel-get-src-block-info t))
(beg (max beg (match-beginning 5)))
(end (min end (match-end 5))))
(cond
((and (string-prefix-p "jupyter-" (car info))
(let* ((element (org-element-at-point))
(block-beg (save-excursion
(goto-char (org-babel-where-is-src-block-head element))
(line-beginning-position 2)))
(block-end (save-excursion
(goto-char (org-element-property :end element))
(skip-chars-backward " \t\n")
(line-beginning-position)))
(beg (if beg (max beg block-beg) block-beg))
(end (if end (min end block-end) block-end))
(lang (or (org-eldoc-get-src-lang)
(user-error "No lang specified for this src block"))))
(cond ((and (string-prefix-p "jupyter-" lang)
(require 'jupyter nil t))
(jupyter-eval-region beg end))
((let ((major-mode
(org-src-get-lang-mode
(or (org-eldoc-get-src-lang)
(user-error "No lang specified for this src block")))))
((let ((major-mode (org-src-get-lang-mode lang)))
(+eval/region beg end))))))))