tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

org-fold-hide-drawer-all: Make interactive 

* lisp/org-fold.el (org-fold-hide-drawer-all): Convert into
interactive command.  Accept two optional arguments - region
boundaries.
* etc/ORG-NEWS (~org-fold-hide-drawer-all~ is now interactive):
Document the change.

Link: https://orgmode.org/list/CAFmwT7WEMvGVyQhP8NcZY5vZMzz4NcvBjchd4jBqgHCPwjOgFA@mail.gmail.com
This commit is contained in:
Ihor Radchenko 2023-10-19 12:32:49 +03:00
parent c77e7f9c8a
commit 13353f1fa3
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
etc/ORG-NEWS
View File

@ -626,6 +626,11 @@ Maxima's graphics packages (~draw~ or ~plot~); the default remains
of the file-name set in the ~:file~ header argument.
** New functions and changes in function arguments
*** ~org-fold-hide-drawer-all~ is now interactive
~org-fold-hide-drawer-all~ is now a command, accepting two optional
arguments - region to act on.
*** =TYPES= argument in ~org-element-lineage~ can now be a symbol
When =TYPES= is symbol, only check syntax nodes of that type.

9
lisp/org-fold.el
View File

@ -593,10 +593,11 @@ Return a non-nil value when toggling is successful."
(interactive)
(org-block-map (apply-partially #'org-fold-hide-block-toggle 'hide)))
(defun org-fold-hide-drawer-all ()
"Fold all drawers in the current buffer."
(let ((begin (point-min))
(end (point-max)))
(defun org-fold-hide-drawer-all (&optional begin end)
"Fold all drawers in the current buffer or active region BEGIN..END."
(interactive "r")
(let ((begin (or begin (point-min)))
(end (or end (point-max))))
(org-fold--hide-drawers begin end)))
(defun org-fold--hide-drawers (begin end)