From 3b13105e0ec1d4958b036c963c6afb6b2e1fc279 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Fri, 7 Aug 2020 20:14:27 -0400 Subject: [PATCH] lang/org: add jupyter support to eval handler --- modules/lang/org/autoload/org-babel.el | 19 ++++++++++++------- 1 file changed, 12 insertions(+), 7 deletions(-) diff --git a/modules/lang/org/autoload/org-babel.el b/modules/lang/org/autoload/org-babel.el index 40694a1eb..94739438d 100644 --- a/modules/lang/org/autoload/org-babel.el +++ b/modules/lang/org/autoload/org-babel.el @@ -8,13 +8,18 @@ if (save-excursion (goto-char pos) (org-in-src-block-p t)) return (goto-char pos))) (message "Nothing to evaluate at point") - (org-babel-where-is-src-block-head) - (let ((beg (max beg (match-beginning 5))) - (end (min end (match-end 5))) - (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))))) + (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)) + (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"))))) + (+eval/region beg end)))))))) ;;;###autoload