Re: [O] [PATCH] Allow using a custom function for Bulk actions
Puneeth Chaganti puncha...@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 puncha...@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
Re: [O] [PATCH] Allow using a custom function for Bulk actions
On Tue, Mar 8, 2011 at 6:36 PM, Bernt Hansen be...@norang.ca wrote: Puneeth Chaganti puncha...@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 puncha...@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 From d997a0bb5c399d203059fb5e60db630eab95e003 Mon Sep 17 00:00:00 2001 From: Puneeth Chaganti puncha...@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
Re: [O] [PATCH] Allow using a custom function for Bulk actions
Puneeth Chaganti puncha...@gmail.com writes: On Tue, Mar 8, 2011 at 6:36 PM, Bernt Hansen be...@norang.ca wrote: Puneeth Chaganti puncha...@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 puncha...@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
[O] [PATCH] Allow using a custom function for Bulk actions
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 puncha...@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 From d997a0bb5c399d203059fb5e60db630eab95e003 Mon Sep 17 00:00:00 2001 From: Puneeth Chaganti puncha...@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