[elpa] externals/embark 134e6c219b 1/3: Add support for org babel calls

[ELPA Syncer]

branch: externals/embark
commit 134e6c219b4d7176d1f72f3ff39d08ae28122436
Author: Omar Antolín Camarena <omar.antolin@gmail.com>
Commit: Omar Antolín Camarena <omar.antolin@gmail.com>

    Add support for org babel calls
---
 embark-org.el | 23 ++++++++++++++++++++++-
 1 file changed, 22 insertions(+), 1 deletion(-)

diff --git a/embark-org.el b/embark-org.el
index 690c2094bd..f35ae9f352 100644
--- a/embark-org.el
+++ b/embark-org.el
@@ -399,7 +399,7 @@ bound to i."
 
 (add-to-list 'embark-keymap-alist '(org-heading embark-org-heading-map))
 
-;;; Source blocks and babel calls
+;;; Source blocks
 
 (defun embark-org-copy-block-contents ()
   "Save contents of source block at point to the `kill-ring'."
@@ -446,6 +446,15 @@ of the arguments."
 (dolist (motion '(org-babel-next-src-block org-babel-previous-src-block))
   (add-to-list 'embark-repeat-actions motion))
 
+(dolist (cmd '(org-babel-execute-maybe
+               org-babel-lob-execute-maybe
+               org-babel-execute-src-block
+               org-babel-execute-src-block-maybe
+               org-babel-execute-buffer
+               org-babel-execute-subtree))
+  (cl-pushnew #'embark--ignore-target
+              (alist-get cmd embark-target-injection-hooks)))
+
 (add-to-list 'embark-keymap-alist '(org-src-block embark-org-src-block-map))
 
 ;;; Inline source blocks
@@ -460,6 +469,18 @@ of the arguments."
 (add-to-list 'embark-keymap-alist
              '(org-inline-src-block embark-org-inline-src-block-map))
 
+;;; Babel calls
+
+(defvar-keymap embark-org-babel-call-map
+  :doc "Keymap for actions on Org babel calls."
+  :parent embark-general-map
+  "RET" #'org-babel-lob-execute-maybe
+  "'" #'org-edit-inline-src-code
+  "k" #'org-babel-remove-result)
+
+(add-to-list 'embark-keymap-alist
+             '(org-babel-call embark-org-babel-call-map))
+
 ;;; List items
 
 (defvar-keymap embark-org-item-map