awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

lang/org: add jupyter support to eval handler

Browse Source
This commit is contained in:
Henrik Lissner
2020-08-07 20:14:27 -04:00
parent 4cbc2abb09
commit 3b13105e0e
1 changed files with 12 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
modules/lang/org/autoload/org-babel.el
View File

@ -8,13 +8,18 @@
if (save-excursion (goto-char pos) (org-in-src-block-p t)) if (save-excursion (goto-char pos) (org-in-src-block-p t))
return (goto-char pos))) return (goto-char pos)))
(message "Nothing to evaluate at point") (message "Nothing to evaluate at point")
(org-babel-where-is-src-block-head) (let ((info (org-babel-get-src-block-info t))
(let ((beg (max beg (match-beginning 5))) (beg (max beg (match-beginning 5)))
(end (min end (match-end 5))) (end (min end (match-end 5))))
(major-mode (cond
(org-src-get-lang-mode (or (org-eldoc-get-src-lang) ((and (string-prefix-p "jupyter-" (car info))
(user-error "No lang specified for this src block"))))) (require 'jupyter nil t))
(+eval/region beg end))))) (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")))))
(+eval/region beg end))))))))
;;;###autoload ;;;###autoload