From d997a0bb5c399d203059fb5e60db630eab95e003 Mon Sep 17 00:00:00 2001 From: Puneeth Chaganti 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