From bba4a705cb028643ee76c9e37b0168e8a1152986 Mon Sep 17 00:00:00 2001 From: Adam Porter Date: Sun, 2 Sep 2018 03:53:36 -0500 Subject: [PATCH] org-agenda: Add org-agenda-scatter-days option The new option sets the number of days to prompt with when scattering bulk-selected agenda items. It can be set to a number of days, or to the number of selected items (which scatters the items one-per-day starting on the next day). The default value is 7, so the default behavior is unchanged from previous versions. * lisp/org-agenda.el (org-agenda-scatter-days): Add option. (org-agenda-bulk-action): Use option. * etc/ORG-NEWS: Add entry. --- etc/ORG-NEWS | 9 +++++++++ lisp/org-agenda.el | 10 +++++++++- 2 files changed, 18 insertions(+), 1 deletion(-) diff --git a/etc/ORG-NEWS b/etc/ORG-NEWS index 2a22be0..e489dbc 100644 --- a/etc/ORG-NEWS +++ b/etc/ORG-NEWS @@ -312,6 +312,15 @@ beginning of a headline when using Org speed commands. Now, if there is already a restriction at point, hitting =<= again (or =C-x C-x <=) will remove it. +*** Option =org-agenda-scatter-days= + +The new option, =org-agenda-scatter-days=, sets the number of days to +prompt with when scattering bulk-selected agenda items. It can be set +to a number of days, or to the number of selected items (which +scatters the items one-per-day starting on the next day). The default +value is 7, so the default behavior is unchanged from previous +versions. + ** New commands and functions *** ~org-insert-structure-template~ diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index eaeddb6..6d3799c 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -2042,6 +2042,12 @@ Note that functions in this alist don't need to be quoted." :version "24.1" :group 'org-agenda) +(defcustom org-agenda-scatter-days 7 + "Number of days to scatter bulk-selected items across, by default." + :type '(choice (integer :tag "Number of days") + (const :tag "Number of bulk-selected items" org-agenda-bulk-marked-entries)) + :group 'org-agenda) + (defmacro org-agenda-with-point-at-orig-entry (string &rest body) "Execute BODY with point at location given by `org-hd-marker' property. If STRING is non-nil, the text property will be fetched from position 0 @@ -9967,7 +9973,9 @@ The prefix arg is passed through to the command if possible." (let ((days (read-number (format "Scatter tasks across how many %sdays: " (if arg "week" "")) - 7))) + (pcase org-agenda-scatter-days + ((pred integerp) org-agenda-scatter-days) + ('org-agenda-bulk-marked-entries (length org-agenda-bulk-marked-entries)))))) (setq cmd `(lambda () (let ((distance (1+ (random ,days)))) -- 2.7.4