ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* 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.
This commit is contained in:
Puneeth Chaganti 2011-03-08 18:28:30 +00:00 committed by Bastien Guerry
parent 0f301d133b
commit 5b1b94ac42
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/org-agenda.el
View File

@ -7969,7 +7969,7 @@ The prefix arg is passed through to the command if possible."
(interactive "P") (interactive "P")
(unless org-agenda-bulk-marked-entries (unless org-agenda-bulk-marked-entries
(error "No entries are marked")) (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)) (let* ((action (read-char-exclusive))
(org-log-refile (if org-log-refile 'time nil)) (org-log-refile (if org-log-refile 'time nil))
(entries (reverse org-agenda-bulk-marked-entries)) (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) (org-agenda-date-later distance)
(error nil))))))) (error nil)))))))
((equal action ?f)
(setq cmd (list (intern
(org-icompleting-read "Function: "
obarray 'fboundp t nil nil)))))
(t (error "Invalid bulk action"))) (t (error "Invalid bulk action")))
;; Sort the markers, to make sure that parents are handled before children ;; Sort the markers, to make sure that parents are handled before children