test(architecture): guard top-level timers + add startup-contract smoke test

Add a tiny source-level architecture suite at
tests/test-architecture-startup-contracts.el with two checks:

- Only keybindings.el may globally own the exact C-; prefix.  Catches
  accidental cross-module rebinding before it ships.
- Top-level timer scheduling (run-with-timer / run-at-time /
  run-with-idle-timer) must be guarded by (unless noninteractive ...)
  so requiring a module in batch / test mode does not schedule
  startup timers.  Timer calls inside defuns are exempt -- the test
  only rejects forms that execute their body when the module loads.

Four modules had unguarded top-level timer scheduling and would have
tripped the new test.  Wrap their startup hooks/timers in
(unless noninteractive ...):

- modules/org-agenda-config.el: 10s idle cache build
- modules/org-refile-config.el: 5s idle cache build
- modules/quick-video-capture.el: after-init-hook + 2s fallback
- modules/wrap-up.el: emacs-startup-hook bury-buffers delay

The contract being protected is "requiring a module in batch should
not start a clock running."  Test failures will now point straight at
the offending file/form.

1 files changed, 7 insertions, 6 deletions

diff --git a/modules/quick-video-capture.el b/modules/quick-video-capture.el
index 4e62309e..0e9567dd 100644
--- a/modules/quick-video-capture.el
+++ b/modules/quick-video-capture.el
@@ -125,12 +125,13 @@ It's designed to be idempotent - safe to call multiple times."
 ;; Deferred initialization strategy:
 ;; 1. Try to load shortly after Emacs is idle following init
 ;; 2. Fallback timer ensures loading within 2 seconds regardless
-(add-hook 'after-init-hook
-          (lambda ()
-            (run-with-idle-timer 0.5 nil #'cj/setup-video-download)))
+(unless noninteractive
+  (add-hook 'after-init-hook
+            (lambda ()
+              (run-with-idle-timer 0.5 nil #'cj/setup-video-download)))
 
-;; Fallback: ensure initialization within 2 seconds of loading this file
-(run-with-timer 2 nil #'cj/setup-video-download)
+  ;; Fallback: ensure initialization within 2 seconds of loading this file
+  (run-with-timer 2 nil #'cj/setup-video-download))
 
 ;; If someone manually triggers capture before initialization
 (with-eval-after-load 'org-capture
@@ -145,4 +146,4 @@ It's designed to be idempotent - safe to call multiple times."
 ;; the download through yt-dlp and task-spooler.
 
 (provide 'quick-video-capture)
-;;; quick-video-capture.el ends here
\ No newline at end of file
+;;; quick-video-capture.el ends here