From 389ac7b8029d9ed4d0b862481465e3edfa8515de Mon Sep 17 00:00:00 2001 From: Rodrigo Morales Date: Tue, 6 Jul 2021 06:26:11 -0500 Subject: [PATCH] org-agenda.el: Added defcustom for visiblity of drawers in text entries * lisp/org-agenda.el: Added boolean defcustom for visibility of drawers in text entries in Org Agenda buffers. --- lisp/org-agenda.el | 18 ++++++++++++------ 1 file changed, 12 insertions(+), 6 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 44acd035a..c558e7fcd 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -1074,6 +1074,11 @@ removed from entry text before it is shown in the agenda." :group 'org-agenda :type 'string) +(defcustom org-agenda-entry-text-hide-drawers t + "Non-nil means hide drawers in entry text in agenda buffers." + :group 'org-agenda + :type 'boolean) + (defvar org-agenda-entry-text-cleanup-hook nil "Hook that is run after basic cleanup of entry text to be shown in agenda. This cleanup is done in a temporary buffer, so the function may inspect and @@ -3676,12 +3681,13 @@ removed from the entry content. Currently only `planning' is allowed here." (set-text-properties (match-beginning 0) (match-end 0) nil)) (goto-char (point-min)) - (while (re-search-forward drawer-re nil t) - (delete-region - (match-beginning 0) - (progn (re-search-forward - "^[ \t]*:END:.*\n?" nil 'move) - (point)))) + (when org-agenda-entry-text-hide-drawers + (while (re-search-forward drawer-re nil t) + (delete-region + (match-beginning 0) + (progn (re-search-forward + "^[ \t]*:END:.*\n?" nil 'move) + (point))))) (unless (member 'planning keep) (goto-char (point-min)) (while (re-search-forward kwd-time-re nil t) -- 2.32.0