[O] [PATCH] Allow using a custom function for Bulk actions

[Puneeth Chaganti]

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 <address@hidden>
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

0001-org-agenda-Allow-specifying-a-function-for-bulk-acti.patch
Description: Text Data