+org/toggle-fold: realign tables

This commit is contained in:
Henrik Lissner 2017-09-07 17:36:18 +02:00
parent 5cdc495a9f
commit 649f3eaf91
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -259,11 +259,16 @@ wrong places)."
;;;###autoload
(defun +org/toggle-fold ()
"Toggle the local fold at the point (as opposed to cycling through all levels
with `org-cycle'). Also removes babel result blocks, if run from a code block."
with `org-cycle'). Also:
+ If in a babel block, removes result blocks.
+ If in a table, realign it, if necessary."
(interactive)
(save-excursion
(org-beginning-of-line)
(cond ((org-in-src-block-p)
(cond ((org-table-p)
(org-table-align))
((org-in-src-block-p)
(org-babel-remove-result))
((org-at-heading-p)
(outline-toggle-children))