emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

feat(org): keybinds for removing #+RESULTS blocks

Browse source 
Added new keybinds for easy removal of RESULTS blocks in org-mode.

SPC m k - delete RESULTS block under cursor
SPC m K - delete all RESULTS blocks under cursor
SPC u SPC m K - delete all RESULTS blocks in buffer
This commit is contained in:
Mora Unie Youer 2022-03-19 15:19:54 +00:00 • committed by GitHub
parent 09b3004abe
commit 18f74d277f
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
2 changed files with 15 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

13
modules/lang/org/autoload/org-babel.el
View file

@ -66,6 +66,19 @@
((user-error "Documentation lookup in SRC blocks isn't supported yet")))))) ((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 ;;; Hooks

2
modules/lang/org/config.el
View file

@ -844,6 +844,8 @@ between the two."
"h" #'org-toggle-heading "h" #'org-toggle-heading
"i" #'org-toggle-item "i" #'org-toggle-item
"I" #'org-id-get-create "I" #'org-id-get-create
"k" #'org-babel-remove-result
"K" #'+org/remove-result-blocks
"n" #'org-store-link "n" #'org-store-link
"o" #'org-set-property "o" #'org-set-property
"q" #'org-set-tags-command "q" #'org-set-tags-command