Merge pull request #65 from kickingvegas/27-add-org-agenda-set-property

Add command org-agenda-set-property
kickingvegas · Nov 9, 2024 · 5a9b48a · 5a9b48a
2 parents 583b5b3 + 6d4b089
commit 5a9b48a
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 3 deletions.
diff --git a/docs/images/casual-agenda-operations-screenshot.png b/docs/images/casual-agenda-operations-screenshot.png
diff --git 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
@@ -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)