[-- Attachment #1: Type: text/plain, Size: 1672 bytes --] Hi, Here's a patch that allows choosing or specifying any arbitrary function to be used for Bulk actions from agenda view. From d997a0bb5c399d203059fb5e60db630eab95e003 Mon Sep 17 00:00:00 2001 From: Puneeth Chaganti <punchagan@gmail.com> Date: Mon, 7 Mar 2011 15:54:20 +0530 Subject: [PATCH] org-agenda: Allow specifying a function for bulk action * lisp/org-agenda.el: (org-agenda-bulk-action) A function can be specified, to be used for bulk action on marked items. --- lisp/org-agenda.el | 7 ++++++- 1 files changed, 6 insertions(+), 1 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index e6afbb0..0297d36 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -7969,7 +7969,7 @@ The prefix arg is passed through to the command if possible." (interactive "P") (unless org-agenda-bulk-marked-entries (error "No entries are marked")) - (message "Bulk: [r]efile [$]arch [A]rch->sib [t]odo [+/-]tag [s]chd [S]catter [d]eadline") + (message "Bulk: [r]efile [$]arch [A]rch->sib [t]odo [+/-]tag [s]chd [S]catter [d]eadline [f]unction") (let* ((action (read-char-exclusive)) (org-log-refile (if org-log-refile 'time nil)) (entries (reverse org-agenda-bulk-marked-entries)) @@ -8059,6 +8059,11 @@ The prefix arg is passed through to the command if possible." (org-agenda-date-later distance) (error nil))))))) + ((equal action ?f) + (setq cmd (list (intern + (org-icompleting-read "Function: " + obarray 'fboundp t nil nil))))) + (t (error "Invalid bulk action"))) ;; Sort the markers, to make sure that parents are handled before children -- 1.7.4.1 -- Puneeth [-- Attachment #2: 0001-org-agenda-Allow-specifying-a-function-for-bulk-acti.patch --] [-- Type: text/x-patch, Size: 1538 bytes --] From d997a0bb5c399d203059fb5e60db630eab95e003 Mon Sep 17 00:00:00 2001 From: Puneeth Chaganti <punchagan@gmail.com> Date: Mon, 7 Mar 2011 15:54:20 +0530 Subject: [PATCH] org-agenda: Allow specifying a function for bulk action * lisp/org-agenda.el: (org-agenda-bulk-action) A function can be specified, to be used for bulk action on marked items. --- lisp/org-agenda.el | 7 ++++++- 1 files changed, 6 insertions(+), 1 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index e6afbb0..0297d36 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -7969,7 +7969,7 @@ The prefix arg is passed through to the command if possible." (interactive "P") (unless org-agenda-bulk-marked-entries (error "No entries are marked")) - (message "Bulk: [r]efile [$]arch [A]rch->sib [t]odo [+/-]tag [s]chd [S]catter [d]eadline") + (message "Bulk: [r]efile [$]arch [A]rch->sib [t]odo [+/-]tag [s]chd [S]catter [d]eadline [f]unction") (let* ((action (read-char-exclusive)) (org-log-refile (if org-log-refile 'time nil)) (entries (reverse org-agenda-bulk-marked-entries)) @@ -8059,6 +8059,11 @@ The prefix arg is passed through to the command if possible." (org-agenda-date-later distance) (error nil))))))) + ((equal action ?f) + (setq cmd (list (intern + (org-icompleting-read "Function: " + obarray 'fboundp t nil nil))))) + (t (error "Invalid bulk action"))) ;; Sort the markers, to make sure that parents are handled before children -- 1.7.4.1
Puneeth Chaganti <punchagan@gmail.com> writes:
> Hi,
>
> Here's a patch that allows choosing or specifying any arbitrary
> function to be used for Bulk actions from agenda view.
>
> From d997a0bb5c399d203059fb5e60db630eab95e003 Mon Sep 17 00:00:00 2001
> From: Puneeth Chaganti <punchagan@gmail.com>
> Date: Mon, 7 Mar 2011 15:54:20 +0530
> Subject: [PATCH] org-agenda: Allow specifying a function for bulk action
>
> * lisp/org-agenda.el: (org-agenda-bulk-action) A function can be
> specified, to be used for bulk action on marked items.
> ---
> lisp/org-agenda.el | 7 ++++++-
> 1 files changed, 6 insertions(+), 1 deletions(-)
Hi Puneeth,
This patch is whitespace damaged by your MUA. Please resend as an
attachment.
Thanks,
--
Bernt
[-- Attachment #1: Type: text/plain, Size: 955 bytes --] On Tue, Mar 8, 2011 at 6:36 PM, Bernt Hansen <bernt@norang.ca> wrote: > Puneeth Chaganti <punchagan@gmail.com> writes: > >> Hi, >> >> Here's a patch that allows choosing or specifying any arbitrary >> function to be used for Bulk actions from agenda view. >> >> From d997a0bb5c399d203059fb5e60db630eab95e003 Mon Sep 17 00:00:00 2001 >> From: Puneeth Chaganti <punchagan@gmail.com> >> Date: Mon, 7 Mar 2011 15:54:20 +0530 >> Subject: [PATCH] org-agenda: Allow specifying a function for bulk action >> >> * lisp/org-agenda.el: (org-agenda-bulk-action) A function can be >> specified, to be used for bulk action on marked items. >> --- >> lisp/org-agenda.el | 7 ++++++- >> 1 files changed, 6 insertions(+), 1 deletions(-) > > Hi Puneeth, > > This patch is whitespace damaged by your MUA. Please resend as an > attachment. The previous mail had it as an attachment, also. But, anyway, here it is, again. -- Puneeth [-- Attachment #2: 0001-org-agenda-Allow-specifying-a-function-for-bulk-acti.txt --] [-- Type: text/plain, Size: 1538 bytes --] From d997a0bb5c399d203059fb5e60db630eab95e003 Mon Sep 17 00:00:00 2001 From: Puneeth Chaganti <punchagan@gmail.com> Date: Mon, 7 Mar 2011 15:54:20 +0530 Subject: [PATCH] org-agenda: Allow specifying a function for bulk action * lisp/org-agenda.el: (org-agenda-bulk-action) A function can be specified, to be used for bulk action on marked items. --- lisp/org-agenda.el | 7 ++++++- 1 files changed, 6 insertions(+), 1 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index e6afbb0..0297d36 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -7969,7 +7969,7 @@ The prefix arg is passed through to the command if possible." (interactive "P") (unless org-agenda-bulk-marked-entries (error "No entries are marked")) - (message "Bulk: [r]efile [$]arch [A]rch->sib [t]odo [+/-]tag [s]chd [S]catter [d]eadline") + (message "Bulk: [r]efile [$]arch [A]rch->sib [t]odo [+/-]tag [s]chd [S]catter [d]eadline [f]unction") (let* ((action (read-char-exclusive)) (org-log-refile (if org-log-refile 'time nil)) (entries (reverse org-agenda-bulk-marked-entries)) @@ -8059,6 +8059,11 @@ The prefix arg is passed through to the command if possible." (org-agenda-date-later distance) (error nil))))))) + ((equal action ?f) + (setq cmd (list (intern + (org-icompleting-read "Function: " + obarray 'fboundp t nil nil))))) + (t (error "Invalid bulk action"))) ;; Sort the markers, to make sure that parents are handled before children -- 1.7.4.1
Puneeth Chaganti <punchagan@gmail.com> writes:
> On Tue, Mar 8, 2011 at 6:36 PM, Bernt Hansen <bernt@norang.ca> wrote:
>> Puneeth Chaganti <punchagan@gmail.com> writes:
>>
>>> Here's a patch that allows choosing or specifying any arbitrary
>>> function to be used for Bulk actions from agenda view.
>>>
>>> From d997a0bb5c399d203059fb5e60db630eab95e003 Mon Sep 17 00:00:00 2001
>>> From: Puneeth Chaganti <punchagan@gmail.com>
>>> Date: Mon, 7 Mar 2011 15:54:20 +0530
>>> Subject: [PATCH] org-agenda: Allow specifying a function for bulk action
>>>
>>
>> This patch is whitespace damaged by your MUA. Please resend as an
>> attachment.
>
> The previous mail had it as an attachment, also. But, anyway, here it
> is, again.
So you did. My mistake - It was a problem on my end not yours. I had
my Gnus set up to hide to the attachment part when it was displayed
inline. Sorry for the noise.
Thanks,
--
Bernt
Hi Puneeth,
Puneeth Chaganti <punchagan@gmail.com> writes:
> Here's a patch that allows choosing or specifying any arbitrary
> function to be used for Bulk actions from agenda view.
I have applied this patch now, thanks.
This led me to think about an Org "Expert" mode.
I'm writing a separate email to explain this idea and to see whether
it's worth digging into that direction.
Best,
--
Bastien