diff --git a/modules/lang/org/autoload/org-babel.el b/modules/lang/org/autoload/org-babel.el
index 061722770..544b0b0c1 100644
--- a/modules/lang/org/autoload/org-babel.el
+++ b/modules/lang/org/autoload/org-babel.el
@@ -66,6 +66,19 @@
             ((user-error "Documentation lookup in SRC blocks isn't supported yet"))))))
 
 
+;;
+;;; Commands
+
+;;;###autoload
+(defun +org/remove-result-blocks (remove-all)
+  "Remove all result blocks located after current point."
+  (interactive "P")
+  (let ((pos (point)))
+    (org-babel-map-src-blocks nil
+      (if (or remove-all (< pos end-block))
+          (org-babel-remove-result)))))
+
+
 ;;
 ;;; Hooks
 
diff --git a/modules/lang/org/config.el b/modules/lang/org/config.el
index 8af4bec67..0bd985979 100644
--- a/modules/lang/org/config.el
+++ b/modules/lang/org/config.el
@@ -844,6 +844,8 @@ between the two."
         "h" #'org-toggle-heading
         "i" #'org-toggle-item
         "I" #'org-id-get-create
+        "k" #'org-babel-remove-result
+        "K" #'+org/remove-result-blocks
         "n" #'org-store-link
         "o" #'org-set-property
         "q" #'org-set-tags-command