[nongnu] elpa/casual 5a9b48a060 065/443: Merge pull request #65 from kickingvegas/27-add-org-agenda-set-property

[ELPA Syncer]

branch: elpa/casual
commit 5a9b48a060bba566a3d9018028401b033ef039c6
Merge: 583b5b3b58 6d4b08923d
Author: Charles Choi <kickingve...@gmail.com>
Commit: GitHub <nore...@github.com>

    Merge pull request #65 from kickingvegas/27-add-org-agenda-set-property
    
    Add command org-agenda-set-property
---
 .../images/casual-agenda-operations-screenshot.png | Bin 256156 -> 241379 bytes
 lisp/casual-agenda.el                              |   4 ++--
 tests/test-casual-agenda.el                        |   4 +++-
 3 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/docs/images/casual-agenda-operations-screenshot.png 
b/docs/images/casual-agenda-operations-screenshot.png
index ef41c3dfeb..30dd22e2c7 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 ceaa634953..e56b33e9c8 100644
--- a/lisp/casual-agenda.el
+++ b/lisp/casual-agenda.el
@@ -148,8 +148,8 @@
      :transient t)]
    [("R" "Refile…" org-agenda-refile)
     ("z" "Add Note" org-agenda-add-note)]
-   [("A" "Archive…" org-agenda-archive-default-with-confirmation)]]
-
+   [("S" "Set Property…" org-agenda-set-property)
+    ("A" "Archive…" org-agenda-archive-default-with-confirmation)]]
 
   ["Clock"
    :class transient-row
diff --git a/tests/test-casual-agenda.el b/tests/test-casual-agenda.el
index 0931fe1966..94456f3799 100644
--- a/tests/test-casual-agenda.el
+++ b/tests/test-casual-agenda.el
@@ -204,7 +204,8 @@
             (casualt-mock #'org-agenda-redo)
             (casualt-mock #'org-agenda-redo-all)
             (casualt-mock #'org-agenda-goto-date)
-            (casualt-mock #'org-agenda-clock-goto))
+            (casualt-mock #'org-agenda-clock-goto)
+            (casualt-mock #'org-agenda-set-property))
 
     (let ((test-vectors
            '((:binding "t" :command org-agenda-todo)
@@ -215,6 +216,7 @@
              (:binding "-" :command org-agenda-priority-down)
              (:binding "R" :command org-agenda-refile)
              (:binding "z" :command org-agenda-add-note)
+             (:binding "S" :command org-agenda-set-property)
              (:binding "A" :command 
org-agenda-archive-default-with-confirmation)
 
              (:binding "I" :command casual-agenda-clock-in)