8ae0e79918
With this, gr and gR will now work in babel blocks to execute a subset of the block (or the whole thing, if you'd like). Results are displayed in a popup buffer (or overlay if :tools (eval +overlay) is enabled).
29 lines
983 B
EmacsLisp
29 lines
983 B
EmacsLisp
;;; lang/org/autoload/org-babel.el -*- lexical-binding: t; -*-
|
|
|
|
;;;###autoload
|
|
(defun +org-eval-handler (beg end)
|
|
"TODO"
|
|
(save-excursion
|
|
(if (not (cl-loop for pos in (list beg (point) end)
|
|
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)))))
|
|
|
|
|
|
;;
|
|
;;; Hooks
|
|
|
|
;;;###autoload
|
|
(defun +org-clear-babel-results-h ()
|
|
"Remove the results block for the org babel block at point."
|
|
(when (and (org-in-src-block-p t)
|
|
(org-babel-where-is-src-block-result))
|
|
(org-babel-remove-result)
|
|
t))
|