Puneeth Chaganti <puncha...@gmail.com> writes: > I'm not sure there's such a short cut, but you can define one for yourself. > > A simple function (without any sort of error checking) like the one > below can be bound to a key-binding of your choice. > > ------------------------------------------------------------------------ > (defun my/collapse-src-block () > "Collapses a source block when called from inside a block." > (interactive) > (org-babel-goto-src-block-head) > (org-cycle)) > ------------------------------------------------------------------------
org-narrow-to-block should do it when modified slightly: #+begin_src emacs-lisp (defun my-org-toggle-current-block () "Un-/Collapses a block when called from inside a block." (interactive) (let* ((case-fold-search t) (blockp (org-between-regexps-p "^[ \t]*#\\+begin_.*" "^[ \t]*#\\+end_.*"))) (if (not blockp) (message "Not in a block") (goto-char (car blockp)) (org-cycle)))) #+end_src