From a2d3e77f82ccf5701d9490c1d1fc2d3c75916eae Mon Sep 17 00:00:00 2001 From: Craig Jennings Date: Mon, 27 Jul 2026 10:25:16 -0500 Subject: fix: restore Full Agenda controls and clean startup I restored controlled agenda task mutations and filtered completed items from the dedicated frame. I replaced the treesit-auto revision setter that aborted startup with a runtime slot lookup. --- tests/test-integration-org-agenda-frame-load-order.el | 15 ++++++++++++--- 1 file changed, 12 insertions(+), 3 deletions(-) (limited to 'tests/test-integration-org-agenda-frame-load-order.el') diff --git a/tests/test-integration-org-agenda-frame-load-order.el b/tests/test-integration-org-agenda-frame-load-order.el index 6541d250..a8eeaa47 100644 --- a/tests/test-integration-org-agenda-frame-load-order.el +++ b/tests/test-integration-org-agenda-frame-load-order.el @@ -23,7 +23,8 @@ ;; ;; Validates: ;; - d/w/g/r keep their allowlist commands in the org-first load order -;; - a real mutation key (t) is still denied (the read-only guarantee holds) +;; - the controlled status/priority mutations survive the shadow walk +;; - a non-allowlisted mutation key (t) is still denied ;; ;;; Code: @@ -65,14 +66,22 @@ Returns an alist of (KEY . BINDING-SYMBOL-NAME-OR-nil)." (ert-deftest test-integration-org-agenda-frame-allowlist-survives-org-first-load () "Integration: with org-agenda loaded before the frame module, the allowlisted -view/redo keys keep their commands and a mutation key stays denied." +view/redo and controlled task-mutation keys survive while t stays denied." (skip-unless (file-exists-p (expand-file-name "modules/org-agenda-frame.el" test-oaf--repo-root))) - (let ((got (test-oaf--lookup-in-subprocess '("d" "w" "g" "r" "t")))) + (let ((got (test-oaf--lookup-in-subprocess + '("d" "w" "g" "r" "C-c t" "C-c C-t" + "M-" "M-" "s-" "s-" "t")))) (should (equal "cj/--agenda-frame-day-view" (cdr (assoc "d" got)))) (should (equal "cj/--agenda-frame-week-view" (cdr (assoc "w" got)))) (should (equal "cj/--agenda-frame-safe-redo" (cdr (assoc "g" got)))) (should (equal "cj/--agenda-frame-safe-redo" (cdr (assoc "r" got)))) + (should (equal "org-agenda-todo" (cdr (assoc "C-c t" got)))) + (should (equal "org-agenda-todo" (cdr (assoc "C-c C-t" got)))) + (should (equal "org-agenda-priority-up" (cdr (assoc "M-" got)))) + (should (equal "org-agenda-todo-nextset" (cdr (assoc "M-" got)))) + (should (equal "org-agenda-priority-down" (cdr (assoc "s-" got)))) + (should (equal "org-agenda-todo-previousset" (cdr (assoc "s-" got)))) ;; t is a real org mutation key; it must be denied, not allowlisted. (should (equal "cj/--agenda-frame-denied-readonly" (cdr (assoc "t" got)))))) -- cgit v1.2.3