branch: elpa/casual
commit 50b736ec6aed6548bbcf33f6ab443ecfc970a459
Author: Charles Choi <[email protected]>
Commit: Charles Choi <[email protected]>
Add org-agenda-bulk-action to Operations menu
* lisp/casual-agenda.el (casual-agenda-operations-tmenu): Adds command
org-agenda-bulk-action.
---
docs/images/casual-agenda-operations-screenshot.png | Bin 89431 -> 86460 bytes
lisp/casual-agenda.el | 3 ++-
tests/test-casual-agenda.el | 4 +++-
3 files changed, 5 insertions(+), 2 deletions(-)
diff --git a/docs/images/casual-agenda-operations-screenshot.png
b/docs/images/casual-agenda-operations-screenshot.png
index 4d61b33b64..162bffe9de 100644
Binary files a/docs/images/casual-agenda-operations-screenshot.png and
b/docs/images/casual-agenda-operations-screenshot.png differ
diff --git a/lisp/casual-agenda.el b/lisp/casual-agenda.el
index ac3f7be536..9317cc10c6 100644
--- a/lisp/casual-agenda.el
+++ b/lisp/casual-agenda.el
@@ -137,7 +137,8 @@
:pad-keys t
:inapt-if-not (lambda () (casual-agenda-headlinep))
[("t" "Todo…" org-agenda-todo :transient t)
- (":" "Tags…" org-agenda-set-tags :transient t)]
+ (":" "Tags…" org-agenda-set-tags :transient t)
+ ("B" "Bulk Action…" org-agenda-bulk-action :transient t)]
[("s" "Schedule…" org-agenda-schedule :transient t)
("d" "Deadline…" org-agenda-deadline :transient t)]
[("+" "↑ Priority" org-agenda-priority-up
diff --git a/tests/test-casual-agenda.el b/tests/test-casual-agenda.el
index 4399a56d80..37b00df068 100644
--- a/tests/test-casual-agenda.el
+++ b/tests/test-casual-agenda.el
@@ -205,10 +205,12 @@
(casualt-mock #'org-agenda-redo-all)
(casualt-mock #'org-agenda-goto-date)
(casualt-mock #'org-agenda-clock-goto)
- (casualt-mock #'org-agenda-set-property))
+ (casualt-mock #'org-agenda-set-property)
+ (casualt-mock #'org-agenda-bulk-action))
(let ((test-vectors
'((:binding "t" :command org-agenda-todo)
+ (:binding "B" :command org-agenda-bulk-action)
(:binding "s" :command org-agenda-schedule)
(:binding "d" :command org-agenda-deadline)
(:binding ":" :command org-agenda-set-tags)
