From 5b1b94ac4253d44121da9b0da582282df123e36b Mon Sep 17 00:00:00 2001 From: Puneeth Chaganti Date: Tue, 8 Mar 2011 18:28:30 +0000 Subject: [PATCH] * org-agenda.el (org-agenda-bulk-action): Allow the user to run a function. * org-agenda.el (org-agenda-bulk-action): Allow the user to run a function. --- lisp/org-agenda.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 5b48a2fff..0f7fcbc3c 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 -- 2.11.4.GIT