fix: restore Full Agenda controls and clean startupHEADmain

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.

1 files changed, 51 insertions, 0 deletions

diff --git a/tests/test-prog-general--pin-go-treesit-revision.el b/tests/test-prog-general--pin-go-treesit-revision.el
new file mode 100644
index 00000000..42845b4f
--- /dev/null
+++ b/tests/test-prog-general--pin-go-treesit-revision.el
@@ -0,0 +1,51 @@
+;;; test-prog-general--pin-go-treesit-revision.el --- Go grammar pinning -*- lexical-binding: t; -*-
+
+;;; Commentary:
+;; The treesit-auto Go recipe is pinned for compatibility with Emacs 30.2.
+;; Keep the mutation independent of cl-defstruct's compile-time setter
+;; expansion: prog-general is loaded before treesit-auto defines that setter
+;; during a normal startup.
+
+;;; Code:
+
+(require 'ert)
+(require 'cl-lib)
+
+;; Deliberately put `revision' at a different offset from treesit-auto's real
+;; struct.  The production helper must discover the slot rather than hard-code
+;; the package's current vector layout.
+(cl-defstruct treesit-auto-recipe lang revision url)
+
+(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
+(require 'prog-general)
+
+(ert-deftest test-prog-general-pin-go-treesit-revision-updates-go ()
+  "Normal: the Go recipe receives the supported grammar revision."
+  (let* ((go (make-treesit-auto-recipe
+              :lang 'go :revision "main" :url "https://example.test/go"))
+         (python (make-treesit-auto-recipe
+                  :lang 'python :revision "main"
+                  :url "https://example.test/python")))
+    (cj/treesit-auto-pin-go-revision (list python go))
+    (should (equal (treesit-auto-recipe-revision go) "v0.19.1"))
+    (should (equal (treesit-auto-recipe-revision python) "main"))))
+
+(ert-deftest test-prog-general-pin-go-treesit-revision-no-go-is-no-op ()
+  "Boundary: a recipe list without Go remains unchanged."
+  (let ((python (make-treesit-auto-recipe
+                 :lang 'python :revision "main"
+                 :url "https://example.test/python")))
+    (should-not (cj/treesit-auto-pin-go-revision (list python)))
+    (should (equal (treesit-auto-recipe-revision python) "main"))))
+
+(ert-deftest test-prog-general-pin-go-treesit-revision-empty-is-no-op ()
+  "Boundary: an empty recipe list does not signal an error."
+  (should-not (cj/treesit-auto-pin-go-revision nil)))
+
+(ert-deftest test-prog-general-pin-go-treesit-revision-malformed-recipe-errors ()
+  "Error: a malformed recipe signals instead of silently skipping the pin."
+  (should-error (cj/treesit-auto-pin-go-revision '(not-a-recipe))
+                :type 'wrong-type-argument))
+
+(provide 'test-prog-general--pin-go-treesit-revision)
+;;; test-prog-general--pin-go-treesit-revision.el ends here